lpadmin/cgi_args.pl

   1
   2 do 'lpadmin-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_printer.cgi') {
   8         return 'new=1';
   9         }
  10 elsif ($cgi eq 'list_jobs.cgi') {
  11         my @plist = grep { &can_edit_jobs($_) } &list_printers();
  12         return @plist ? 'name='.&urlize($plist[0]->{'name'}) : 'none';
  13         }
  14 return undef;
  15 }