at/irix-lib.pl

   1 # solaris-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$/) {
  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, send-mail)
  32 sub create_atjob
  33 {
  34 local @tm = localtime($_[1]);
  35 local $date = strftime "%H:%M %b %d", @tm;
  36 local $mailflag = $_[4] ? "-m" : "";
  37 local $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
  38 local @uinfo = getpwnam($_[0]);
  39 if ($uinfo[2] != $<) {
  40         # Only SU if we are not already the user
  41         $cmd = &command_as_user($_[0], 0, $cmd);
  42         }
  43 &open_execute_command(AT, "$cmd >/dev/null 2>&1", 0);
  44 print AT $_[2];
  45 close(AT);
  46 &additional_log('exec', undef, "su \"$_[0]\" -c \"cd $_[3] ; at $date\"");
  47 }
  48
  49 # delete_atjob(id)
  50 sub delete_atjob
  51 {
  52 &system_logged("at -r ".quotemeta($_[0]));
  53 }
  54