Help for this page

Select Code to Download


  1. or download this
    if ($remove) {
        $remove = lc($remove);
    ...
                die "You chose NOT to remove queue \"$removeq\"\n";
            }
        }
    
  2. or download this
    sub clean_the_file {
        my $sourcefile = "/u/ccsys/CC_print.printers";
    ...
            system("rm -rf $tempfile");
        }
    }
    
  3. or download this
     
    sub cleanthefile {
        my @filehandles;
    ...
            system("cp -R $_[1] $_[3]");
        }
    }
    
  4. or download this
    Command that was run
    mkpq -r queue-03