mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-12-12 01:30:41 +01:00
19 lines
426 B
Perl
19 lines
426 B
Perl
|
#!/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";
|
||
|
|
}
|