home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / text / CNews-Tips / news_misc.lha / newsbin / autoinpaths < prev    next >
Encoding:
AmigaDOS Script File  |  1992-04-24  |  1.2 KB  |  43 lines
  1. .key site/A,MAILTO/K
  2. .def MAILTO "pathsurvey@decwrl.dec.com"
  3. .bra [
  4. .ket ]
  5.  
  6. ;# AUTOINPATHS --  create inpaths' statistik and send it away
  7. ;# Cyvaned Systems 1991/1992
  8. ;# creator Thomas Lotterer (joedust@cyvaned.muc.sub.org) 911228
  9. ;# changed Ralf S. Engelschall (rse@angle.muc.sub.org) 920204
  10.  
  11. uulog "AUTOINPATHS: inpaths (PID:[$$]) startup"
  12. if exists T:autoinpaths.LOCK
  13.     uulog "AUTOINPATHS: inpaths already running - exit"
  14.     quit
  15. endif
  16. echo >T:autoinpaths.LOCK "autoinpaths (PID:[$$])"
  17.  
  18. echo >T:autoinpaths.out "To: [MAILTO]"
  19. echo >>T:autoinpaths.out "Cc: postmaster"
  20. echo >>T:autoinpaths.out "Subject: inpaths statistic (autocreated)"
  21. echo >>T:autoinpaths.out
  22.  
  23. uulog "AUTOINPATHS: collecting files"
  24. find NEWSARTS: -type f -print | sed >T:autoinpaths.files +
  25. -e "s/NEWSARTS://" +
  26. -e "s/in.coming/d" +
  27. -e "s/out.going/d" +
  28. -e "s/local.archived/d"
  29.  
  30. uulog "AUTOINPATHS: building inpaths"
  31. assign AUTOINPATH[$$]: ""
  32. cd NEWSARTS:
  33. inpaths <T:autoinpaths.files >>T:autoinpaths.out -l [site]
  34. cd AUTOINPATH[$$]:
  35. assign AUTOINPATH[$$]:
  36.  
  37. uulog "AUTOINPATHS: sending result to '[MAILTO]'"
  38. sendmail <T:autoinpaths.out -f inpaths -R "INPATHS-DAEMON"
  39.  
  40. uulog "AUTOINPATHS: cleanup"
  41. delete T:autoinpaths.files T:autoinpaths.out T:autoinpaths.LOCK
  42. uulog "AUTOINPATHS: exit"
  43.