source: trunk/phpgwapi/themes/theme2template.pl @ 2

Revision 2, 487 bytes checked in by niltonneto, 17 years ago (diff)

Removida todas as tags usadas pelo CVS ($Id, $Source).
Primeira versão no CVS externo.

  • Property svn:executable set to *
  • Property svn:mime-type set to application/octet-stream
Line 
1#!/usr/bin/perl
2# Takes a theme file and parses out the properties
3# and makes a template file from it.
4# Use it like so:
5# theme2template.pl < infile > outfile
6# by Stephan
7# $Id: theme2template.pl,v 1.5 2003/08/28 14:29:08 ralfbecker Exp $
8
9$t=localtime;
10print << 'EOF';
11# template file for making phpGroupWare themes using template2theme.pl
12
13EOF
14while( $_ = <STDIN> ) {
15  chomp($_);
16  next unless ( $_ =~ /\$phpgw_info\[\'theme\'\]\[\'(.*)\'\].*=.*\'(.*)\'.*/ );
17  print '$1=$2\n';
18}
Note: See TracBrowser for help on using the repository browser.