mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-11-16 13:03:16 +01:00
24 lines
466 B
Perl
24 lines
466 B
Perl
|
#!/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 "?>";
|