DataMuseum.dk

Presents historical artifacts from the history of:

RC9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: @ T l

⟦4b683f7a8⟧ TextFile

    Length: 984 (0x3d8)
    Types: TextFile
    Notes: @(#)listatjobs.csh 13.1 (RC International) 91/09/06
    Names: »listatjobs«

Derivation

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/sysadm/backup_service/schedule/later_time/remove/listatjobs« 

TextFile

#!/bin/csh
# Ident: @(#)listatjobs.csh	13.1 (RC International) 91/09/06
@ count = 0
set l_user=""
set file_name=""
foreach name ( ` /usr/bin/at -l ` )
  if ( $count == 0 && $name == "user" ) then
    @ count = 9
  else if ( $count == 0 ) then
    @ count = 6
  endif
  switch ( $count )
    case 8,9:
    breaksw
    case 7:
      set l_user=$name
    breaksw
    case 6:
      set file_name=$name
    breaksw
    case 5:
      set day=$name
    breaksw
    case 4:
      set month=$name
    breaksw
    case 3:
      set date=$name
    breaksw
    case 2:
      set hms=$name
    breaksw
    case 1:
      set year=$name
      echo -n "$file_name "
      echo -n "$day $month $date $hms ${year}: " 
      /usr/ucb/tail -2 /usr/spool/cron/atjobs/${file_name} | /usr/ucb/head -1 | awk '{printf"%4s%11s%5s%3s%5s %s ",substr($1,6,32),$2,$3,$4,$5,$6;if ( substr($7,1,7) == "/dev/lv" ) print substr($7,8,32) ; else print $7}' -
    breaksw
    default:
    breaksw
  endsw
  @ count--
end