home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #5 / AmigaPlus_Extra-CD_5-97.iso / online-tools / mail / mailserver / sys / usr / aminetsearch next >
Text File  |  1995-04-06  |  840b  |  28 lines
  1. /*  Simple ARexx script search your Aminet Index file for a   */
  2. /*  Keyword specified in the arguments. The minimum length    */
  3. /*  of the keyword is set to 4 chars, to stop people          */
  4. /*  searching for single characters and producing VERY long   */
  5. /*  outputs!  - Dominic                                       */
  6.  
  7.  
  8. /* The path to your index file(s) */
  9. aminetindex = 'dh1:aminet/#?'
  10. parse arg line
  11.  
  12. writeln(stdout,"Aminet search utility")
  13. writeln(stdout,"---------------------")
  14. writeln(stdout,"")
  15. writeln(stdout,"Search keyword: "line)
  16. writeln(stdout,"")
  17.  
  18.  
  19. if length(line)<4 then
  20.   writeln(stdout,"(Sorry, specified keyword must be at least 4 characters long.")
  21.    else
  22.   address command 'search 'aminetindex' 'line' pattern nonum'
  23.  
  24. writeln(stdout,"")
  25. writeln(stdout,"--")
  26. writeln(stdout,"Aminet search utility by D. Ramsey.")
  27.  
  28.