Remove useless program
authorJamie Cameron <jcameron@webmin.com>
Thu, 15 Nov 2007 08:24:54 +0000 (08:24 +0000)
committerJamie Cameron <jcameron@webmin.com>
Thu, 15 Nov 2007 08:24:54 +0000 (08:24 +0000)
lpadmin/cancel_job.cgi [deleted file]

diff --git a/lpadmin/cancel_job.cgi b/lpadmin/cancel_job.cgi
deleted file mode 100755 (executable)
index 3cb4d6b..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/local/bin/perl
-# cancel_job.cgi
-# Cancel an existing print job
-
-require './lpadmin-lib.pl';
-&ReadParse();
-&error_setup($text{'cancel_err'});
-
-@jobs = &get_jobs($in{'name'});
-($j) = grep { $_->{'id'} eq $in{'id'} } @jobs;
-if ($j) {
-       # print job exists.. cancel it
-       ($ju = $j->{'user'}) =~ s/\!.*$//;
-       &can_edit_jobs($in{'name'}, $ju) || &error($text{'cancel_ecannot'});
-       &cancel_job($in{'name'}, $in{'id'});
-       &webmin_log("cancel", "job", $in{'name'}, \%in);
-       &redirect("list_jobs.cgi?name=$in{'name'}");
-       }
-else {
-       &error(&text('cancel_egone', $in{'id'}));
-       }
-