mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-12-17 20:21:18 +01:00
19 lines
424 B
Perl
Executable File
19 lines
424 B
Perl
Executable File
#!/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 eGroupWare themes using template2theme.pl
|
|
|
|
EOF
|
|
while( $_ = <STDIN> ) {
|
|
chomp($_);
|
|
next unless ( $_ =~ /\$phpgw_info\[\'theme\'\]\[\'(.*)\'\].*=.*\'(.*)\'.*/ );
|
|
print '$1=$2\n';
|
|
}
|