egroupware_official/phpgwapi/themes/theme2template.pl

19 lines
426 B
Perl
Raw Normal View History

#!/usr/bin/perl
# Takes a theme file and parses out the properties
# and makes a template file from it.
# Use it like so:
# theme2template.pl < infile > outfile
# by Stephan
# $Id$
$t=localtime;
print << 'EOF';
# template file for making phpGroupWare themes using template2theme.pl
EOF
while( $_ = <STDIN> ) {
chomp($_);
next unless ( $_ =~ /\$phpgw_info\[\'theme\'\]\[\'(.*)\'\].*=.*\'(.*)\'.*/ );
print '$1=$2\n';
}