home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / comm / EazyBBS-2.17.lha / EazyBBS / c / NuucpList.all < prev    next >
Text File  |  1994-09-16  |  2KB  |  63 lines
  1. .BRA {
  2. .KET }
  3.  
  4. ; Create directory listing for Anonymous UUCP.
  5. ; Don't show groups, secret areas and uninteresting things.
  6. ;
  7. ; We need two files.  One which shows all files we have,
  8. ; and one which shows only files of the last (for example) 10 days.
  9. ;
  10. ; Optional we generate a third listing with new files of the
  11. ; last 24 hours. This is useful for posting to a network.
  12.  
  13.  
  14. Copy UUPUB:readme.1st t:anon-list.1day     CLONE QUIET >nil:
  15. Copy UUPUB:readme.1st t:anon-list.index    CLONE QUIET >nil:
  16. Copy UUPUB:readme.1st t:anon-list.index_xp CLONE QUIET >nil:
  17. Copy UUPUB:readme.1st t:anon-list.recent   CLONE QUIET >nil:
  18.  
  19. MB:C/NuucpList.one "Amiga/Audio"
  20. MB:C/NuucpList.one "Amiga/CD-ROM"
  21. MB:C/NuucpList.one "Amiga/Comm"
  22. MB:C/NuucpList.one "Amiga/Gfx"
  23. MB:C/NuucpList.one "Amiga/Misc"
  24. MB:C/NuucpList.one "Amiga/Packer"
  25. MB:C/NuucpList.one "Amiga/Text"
  26. MB:C/NuucpList.one "Pictures/Misc"
  27. ;MB:C/NuucpList.one "Pictures/GIF"
  28. ;MB:C/NuucpList.one "Pictures/IFF"
  29. ;MB:C/NuucpList.one "Pictures/JPG"
  30. MB:C/NuucpList.one "Sound/Misc"
  31. MB:C/NuucpList.one "Sound/Modules"
  32. MB:C/NuucpList.one "System/EazyBBS"
  33. MB:C/NuucpList.one "Text/Misc"
  34.  
  35. Copy t:anon-list.index    UUPUB:index    CLONE QUIET >nil:
  36. Copy t:anon-list.index_xp UUPUB:index_xp CLONE QUIET >nil:
  37. Copy t:anon-list.recent   UUPUB:recent   CLONE QUIET >nil:
  38.  
  39. ; GZip is a very cool file compression utility.
  40. ; Available under GNU license.
  41.  
  42. gzip -9 -c UUPUB:index    >UUPUB:index.gz
  43. gzip -9 -c UUPUB:index_xp >UUPUB:index_xp.gz
  44. gzip -9 -c UUPUB:recent   >UUPUB:recent.gz
  45.  
  46. ; Post listing of last 24 hours (only if new files are available).
  47.  
  48. MB:C/Cmp UUPUB:readme.1st t:anon-list.1day >NIL:
  49. If WARN
  50.     Set currentdate `Date`
  51.     Echo "Subject: New files on ZikZak, ${currentdate}" >t:anon-list.1day_post
  52.     Echo "From: root@zikzak.in-berlin.de (ZikZak Archive)" >>t:anon-list.1day_post
  53.     Echo "Newsgroups: eazy.lists" >>t:anon-list.1day_post
  54.     Echo "Followup-To: eazy.uucp" >>t:anon-list.1day_post
  55.     Echo "*N" NOLINE >>t:anon-list.1day_post
  56.     Type t:anon-list.1day >>t:anon-list.1day_post
  57.     inews -h -W <t:anon-list.1day_post
  58.     ;inews -h -W -f "root@zikzak.in-berlin.de (ZikZak Archive)" -t "New files on ZikZak, ${currentdate}" -n eazy.lists <t:anon-list.1day
  59. EndIf
  60.  
  61. Delete t:anon-list.index t:anon-list.index_xp t:anon-list.recent t:anon-list.1day QUIET
  62.  
  63.