egroupware_official/phpgwapi/themes/template2theme.pl

24 lines
466 B
Perl
Raw Normal View History

#!/usr/bin/perl
# Takes a simple text file of properties and turns them
# into a themes files.
# Use it like so:
# template2theme.pl < infile > outfile
# by Stephan
# $Id$
$wrap='$phpgw_info['theme']['_KEY_']= '_VAL_'';
print '<?\n';
print << 'EOF';
# phpGroupWare Theme file
EOF
while( $_ = <STDIN> ) {
next unless ( $_ =~ /^\s*(\w+)\s*=(.+)/ );
$k=$1;
$v=$2;
my $foo = $wrap;
$foo =~ s/_KEY_/$k/;
$foo =~ s/_VAL_/$v/;
print '$foo;\n';
}
print '?>';