fsdump/newtape.cgi

   1 #!/usr/local/bin/perl
   2 # newtape.cgi
   3 # Indicate that a new tape is loaded for a backup job
   4
   5 require './fsdump-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'newtape_err'});
   8
   9 &foreign_require("proc", "proc-lib.pl");
  10 @procs = &proc::list_processes();
  11 @running = &running_dumps(\@procs);
  12
  13 ($job) = grep { $_->{'id'} eq $in{'id'} &&
  14                 $_->{'pid'} == $in{'pid'} } @running;
  15 $job || &error($text{'newtape_egone'});
  16 &can_edit_dir($job) || &error($text{'newtape_ecannot'});
  17 $job->{'status'}->{'status'} eq 'tape' || &error($text{'newtape_estatus'});
  18
  19 kill('HUP', $job->{'status'}->{'tapepid'});
  20 &redirect("");
  21