home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DAT-WW5C.DMS / in.adf / Archive / WwTools.lha / Snoop < prev    next >
Encoding:
Text File  |  1996-02-09  |  2.7 KB  |  92 lines
  1. FailAt 21
  2.  
  3. Echo "*nDigita System Report v1.2"
  4. Echo "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
  5. Echo "This utility will create a file containing"
  6. Echo "information that will help Digita Technical"
  7. Echo "Support track down any problems you may be"
  8. Echo "having.*n"
  9. Echo "Run this program and send a printout, with"
  10. Echo "covering letter, to Digita Technical Support.*n*n"
  11.  
  12. Ask "Do you wish to Snoop your system (y/n) ? "
  13. IF WARN
  14.     Ask "*n*nWould you like to generate the*nSnoop report to your Printer (y/n) ? "
  15.     IF WARN
  16.       SetEnv ReportOutput "RAM:DigitaReport"
  17.       Echo "*n*nGenerating Report. Please wait..."
  18.     ELSE
  19.       SetEnv ReportOutput *
  20.     ENDIF
  21.  
  22.     Echo "*nDigita System Report v1.2" >$ReportOutput
  23.     Echo "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯" >>$ReportOutput
  24.  
  25.     Echo "*n" >>$ReportOutput
  26.     Version >>$ReportOutput
  27.  
  28.     Echo "*n*n############ Memory:" >>$ReportOutput
  29.     Avail >>$ReportOutput
  30.  
  31.     Echo "*n*n############ Configuration:" >>$ReportOutput
  32.     CPU >>$ReportOutput
  33.  
  34.     Echo "*n*n############ Libraries Loaded:" >>$ReportOutput
  35.     LibList >>$ReportOutput
  36.  
  37.     Echo "*n*n############ Libraries on disk:" >>$ReportOutput
  38.     List LIBS: NODATES >>$ReportOutput
  39.  
  40.     Echo "*n*n############ Assigns:" >>$ReportOutput
  41.     Assign >>$ReportOutput
  42.  
  43.     Echo "*n*n############ Volumes:" >>$ReportOutput
  44.     Info >>$ReportOutput
  45.  
  46.     Echo "*n*n############ WwFonts ENV" >>$ReportOutput
  47.     GetEnv Wordworth/WwFonts >ENV:WwFontsDir
  48.     Echo "WwFontsDir points to: "$WwFontsDir >>$ReportOutput
  49.  
  50.     CD >ENV:SnoopCD   ;get current dir
  51.     Echo "*n*n############ Wordworth 5 drawer contents" >>$ReportOutput
  52.     CD $WwFontsDir    ;go to WwFonts drawer
  53.     CD /              ;go back one to Wordworth drawer
  54.     List PAT="~(#?.info)" NODATES ALL >>$ReportOutput
  55.     CD $SnoopCD       ;restore current dir
  56.  
  57.     Echo "*n*n############ FONTS Contents:" >>$ReportOutput
  58.     Dir FONTS:~(#?.info) >>$ReportOutput
  59.  
  60.     Echo "*n*n############ ENV Contents:" >>$ReportOutput
  61.     Dir ENV:~(#?.info) ALL >>$ReportOutput
  62.  
  63.     Echo "*n*n############ ENVARC Contents:" >>$ReportOutput
  64.     Dir ENVARC:~(#?.info) ALL >>$ReportOutput
  65.  
  66.     Echo "*n*n############ SYS Contents:" >>$ReportOutput
  67.     Dir SYS:~(#?.info) >>$ReportOutput
  68.  
  69.     Echo "*n*n############ Startup-sequence:" >>$ReportOutput
  70.     Type S:Startup-Sequence >>$ReportOutput
  71.  
  72.     Echo "*n*n############ User-startup:" >>$ReportOutput
  73.     Type S:User-Startup >>$ReportOutput
  74.  
  75.     Echo "*n*n############ WB Startup:" >>$ReportOutput
  76.     Dir SYS:WBStartup >>$ReportOutput
  77.  
  78.     Echo "*n*n*nEnd of Digita System Report*n*n" >>$ReportOutput
  79.     IF $ReportOutput EQ *
  80.       Ask "Please press RETURN to finish."
  81.     ELSE
  82.       Echo "*n*nPrinting Report. Please wait..."
  83.       Type RAM:DigitaReport >PRT:
  84.       Delete >NIL: RAM:DigitaReport
  85.       Delete >NIL: ENV:WwFontsDir
  86.       Delete >NIL: ENV:ReportOutput
  87.     ENDIF
  88. ELSE
  89.   Echo "*n*nUser Aborted..."
  90.   Ask "*nPlease press RETURN to finish."
  91. ENDIF
  92.