Viewing file:  parseconfig.pl (1.07 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
my $configpath = "/etc/foomatic";
sub readConfFile
{
my ($file) = @_;
my %conf;
# Read config file if present
if (open CONF, "< $file")
{
while (<CONF>)
{
$conf{$1}="$2" if (m/^\s*([^\#\s]\S*)\s*:\s*(.*)\s*$/);
}
close CONF;
}
return %conf;
}
%conf = readConfFile("$configpath/filter.conf");
print( 'db_set foomatic-filters/filter_debug ',
$conf{debug} > 0 ? 'true' : 'false', ";\n") if exists $conf{debug};
if (exists $conf{textfilter})
{
if ($conf{textfilter} =~ m/^(a2ps|enscript|mpage)$/)
{
print "db_set foomatic-filters/textfilter $1;\n";
}
elsif ($conf{textfilter} =~ m/^\s*$/)
{
print "db_set foomatic-filters/textfilter Automagic;\n";
}
else
{
print "db_set foomatic-filters/textfilter Custom;\n";
print "db_set foomatic-filters/custom_textfilter $conf{textfilter};\n";
}
}
print( 'db_set foomatic-filters/ps_accounting ',
$conf{ps_accounting} ? 'true' : 'false',
"\n") if exists $conf{ps_accounting};
|