package printer::default; use strict; use run_program; use common; #-configuration directory of Foomatic my $FOOMATICCONFDIR = "/etc/foomatic"; #-location of the file containing the default spooler's name my $FOOMATIC_DEFAULT_SPOOLER = "$FOOMATICCONFDIR/defaultspooler"; sub set_printer { my ($printer) = $_[0]; my $spooler = $printer->{SPOOLER}; if ($spooler eq "rcups") { run_program::rooted($::prefix, "lpoptions", "-d", $printer->{DEFAULT}) or return 0; } else { run_program::rooted($::prefix, "foomatic-configure", "-D", "-q", "-s", $spooler, "-n", $printer->{DEFAULT}) or return 0; } return 1; } sub get_printer { my $printer = $_[0]; my $spooler = $printer->{SPOOLER}; $spooler = "cups" if $spooler eq "rcups"; local *F; open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "foomatic-configure -Q -q -s $spooler |" or return undef; my $line; while ($line = ) { if ($line =~ m!^\s*(.*)\s*$!) { return $1; } } return undef; } sub printer_type() { "LOCAL" } sub get_spooler () { if (-f "$::prefix$FOOMATIC_DEFAULT_SPOOLER") { my $spool = cat_("$::prefix$FOOMATIC_DEFAULT_SPOOLER"); chomp $spool; if ($spool =~ /cups/) { my ($daemonless_cups, $_remote_cups_server) = printer::main::read_client_conf(); $spool = ($daemonless_cups > 0 ? "rcups" : "cups"); } return $spool if $spool =~ /cups|lpd|lprng|pdq/; } } sub set_spooler ($) { my ($printer) = @_; # Mark the default driver in a file output_p("$::prefix$FOOMATIC_DEFAULT_SPOOLER", $printer->{SPOOLER}); } 1;