home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / guardamy / rexx / gasend.rexx
Encoding:
OS/2 REXX Batch file  |  1999-12-13  |  843 b   |  30 lines
  1. /* GASend.rexx support script for GuardAmy */
  2. /* by Diego de Felice (dx0) */
  3.  
  4. parse arg urla descro browsero
  5. options results
  6.  
  7. if browsero="IB" then do
  8.                       address IBROWSE 'Query URL'
  9.                       urla = result
  10.                       address IBROWSE 'Query TITLE'
  11.                       descro = result
  12.                       end
  13.  
  14. if browsero="AW" then do
  15.                       say "aoooooo"
  16.                       ADDRESS AWEB.1;
  17.                       GET ACTIVEPORT VAR actp;
  18.                       ADDRESS VALUE actp;
  19.                       GET URL VAR urlaz;
  20.                       urla = urlaz
  21.                       ADDRESS VALUE actp;
  22.                       GET TITLE VAR descroz;
  23.                       descro = descroz
  24.                       end
  25.  
  26.  
  27. address GUARDAMY
  28. 'add url 'urla' descr 'space(descro,1,'§')' sendchl'
  29.  
  30.