mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-11-28 02:43:22 +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 '?>';
|