at/openserver-lib.pl

   1 # openserver-lib.pl
   2
   3 use POSIX;
   4
   5 sub list_atjobs
   6 {
   7 local @rv;
   8 opendir(DIR, $config{'at_dir'});
   9 while($f = readdir(DIR)) {
  10         local $p = "$config{'at_dir'}/$f";
  11         if ($f =~ /^(\d+)\.a(\S+)$/) {
  12                 local @st = stat($p);
  13                 local $job = { 'id' => $f,
  14                                'date' => $1,
  15                                'user' => scalar(getpwuid($st[4])),
  16                                'created' => $st[9] };
  17                 open(FILE, $p);
  18                 while(<FILE>) {
  19                         $job->{'cmd'} .= $_;
  20                         }
  21                 close(FILE);
  22                 $job->{'realcmd'} = $job->{'cmd'};
  23                 $job->{'realcmd'} =~ s/^[\000-\177]+#ident.*\ncd\s+\S+\nulimit\s+\S+\numask\s+\S+\n//;
  24                 push(@rv, $job);
  25                 }
  26         }
  27 closedir(DIR);
  28 return @rv;
  29 }
  30
  31 # create_atjob(user, time, commands, directory)
  32 sub create_atjob
  33 {
  34 local @tm = localtime($_[1]);
  35 local $date = strftime "%H:%M %b %d", @tm;
  36 &open_execute_command(AT, "su \"$_[0]\" -c \"cd $_[3] ; at $date\"", 0);
  37 print AT $_[2];
  38 close(AT);
  39 &additional_log('exec', undef, "su \"$_[0]\" -c \"cd $_[3] ; at $date\"");
  40 }
  41
  42 # delete_atjob(id)
  43 sub delete_atjob
  44 {
  45 &system_logged("at -r \"$_[0]\"");
  46 }
  47