lib/Foomatic/DB.pm

1100     my $ppdfile;
1109 	    $ppdfile = $d->{'ppd'} if defined($d->{'ppd'});
1118 	$ppdfile = $p->{'ppdurl'} if defined($p->{'ppdurl'});
1124     if ($ppdfile) {
1125 	$ppdfile =~ s,^http://.*/(PPD/.*)$,$1,;
1126 	$ppdfile = $libdir . "/db/source/" . $ppdfile;
1127 	$ppdfile = "${ppdfile}.gz" if (! -r $ppdfile);
1128 	if (-r $ppdfile) {
1129 	    $this->getdatfromppd($ppdfile);
1130 	    $this->{'dat'}{'ppdfile'} = $ppdfile;
1165     my ($this, $ppdfile, $parameters) = @_;
1167     my $dat = ppdtoperl($ppdfile, $parameters);
1170 	die ("Unable to open PPD file \'$ppdfile\'\n");
1181     my ($ppdfile, $parameters) = @_;
1184     open PPD, ($ppdfile !~ /\.gz$/i ? "< $ppdfile" :
1185 	       "$sysdeps->{'gzip'} -cd \'$ppdfile\' |") or return undef;
1188     $parameters->{'ppdfile'} = $ppdfile if $parameters;
1222 	    my $ppdfile = $parameters->{'ppdfile'};
1229 		if (! -r $ppdfile) {
1230 		    $ppddlpath = $ppdfile;
1231 		    $ppdfile = $basedir . "/" . $ppdfile;
1232 		    if (! -r $ppdfile) {
1233 			die ("Given PPD file not found, neither as $ppddlpath nor as $ppdfile!\n");
1236 		    $ppddlpath = $1 if $ppdfile =~ m:$basedir/(.*)$:;
1239 		if (! -r $ppdfile) {
1240 		    die ("Given PPD file $ppdfile not found!\n");
1242 		$ppddlpath = $ppdfile;
1247 		my $ppd = $ppdfile;
2493     my ($this, $ppdfile) = @_;
2496     open PPD, ($ppdfile !~ /\.gz$/i ? "< $ppdfile" :
2497 	       "$sysdeps->{'gzip'} -cd \'$ppdfile\' |") or
2498 	       die ("Unable to open PPD file \'$ppdfile\'\n");
2726     my ($this, $ppdfile) = @_;
2729     open PPD, ($ppdfile !~ /\.gz$/i ? "< $ppdfile" :
2730 	       "$sysdeps->{'gzip'} -cd \'$ppdfile\' |") or
2731 	       die ("Unable to open PPD file \'$ppdfile\'\n");
2739     open PPD, ($ppdfile !~ /\.gz$/i ? "> $ppdfile" :
2740 	       "| $sysdeps->{'gzip'} > \'$ppdfile\'") or
2741 	die ("Unable to open PPD file \'$ppdfile\' for writing\n");
3554 	my $ppdfile = $dat->{'ppdfile'};
3555 	$ppdfile = "${ppdfile}.gz" if (! -r $ppdfile);
3556 	if (-r $ppdfile) {
3558 	    if (open PPD, ($ppdfile !~ /\.gz$/i ? "< $ppdfile" :
3559 			   "$sysdeps->{'gzip'} -cd \'$ppdfile\' |")) {