home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / filedocs / simcvt2.awk < prev    next >
Text File  |  1994-03-04  |  1KB  |  42 lines
  1. #! /usr/bin/awk -f
  2.  
  3. # simcvt2.awk is an Awk script which converts SimTel .IDX index files to
  4. # .LST list files.  It is freely distributable.
  5.  
  6. # Usage:  awk -f simcvt2.awk simibm.idx > simibm.lst
  7. # Author: Daniel Lewart (d-lewart@uiuc.edu) 1 Jan 1994
  8.  
  9. BEGIN {
  10.     FS = "\""
  11. print "These files are available by anonymous FTP from the SimTel Software"
  12. print "Repository primary mirror site OAK.Oakland.Edu (141.210.10.117) and"
  13. print "its mirrors wuarchive.wustl.edu (128.252.135.4), archive.orst.edu"
  14. print "(128.193.2.13), ftp.uu.net (192.48.96.9), ftp.funet.fi (128.214.6.100),"
  15. print "src.doc.ic.ac.uk (146.169.2.1), ftp.switch.ch (130.59.1.40), archie.au"
  16. print "(139.130.4.6) or NCTUCCCA.edu.tw (140.111.1.10), ftp.technion.ac.il"
  17. print "(132.68.1.10), or by e-mail through the BITNET/EARN file servers."
  18.     print ""
  19.     print "NOTE: Type B is Binary; Type A is ASCII"
  20.     print ""
  21. }
  22.  
  23. {
  24.     dir2 = $2$4
  25.     if ( dir1 != dir2 ) {
  26.         if ( dir1 != "" ) print ""
  27.         print "Directory", dir2
  28.         print " Filename   Type Length   Date    Description"
  29.         print "=============================================="
  30.         dir1 = dir2
  31.     }
  32.     Name = $6
  33.     split($7,a,",")
  34.     Type = "?"
  35.     if (a[4] == 7) Type = "A"
  36.     if (a[4] == 8) Type = "B"
  37.     Size = a[3]
  38.     Date = a[5]
  39.     Description = $8
  40.     printf("%-12s  %s %7d  %6d  %s\n",Name,Type,Size,Date,Description)
  41. }
  42.