home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / wCNews_1.0.30.lha / bin / gensys.maf < prev    next >
Encoding:
Text File  |  1993-12-19  |  2.0 KB  |  74 lines
  1. /* gensys.maf, (c) Sun, 19 Dec 1993 03:42:42 +0100 by "Kai 'wusel' Siering" <wusel@3jean[.uucp|.hanse.de]> */
  2. /*
  3.  * $Header: Death:src/wail/CNews/gensys/RCS/gensys.maf,v 1.1 1993/12/19 02:53:11 wusel Exp wusel $
  4.  * $Log: gensys.maf,v $
  5.  * Revision 1.1  1993/12/19  02:53:11  wusel
  6.  * Initial revision
  7.  *
  8.  * $Id: gensys.maf,v 1.1 1993/12/19 02:53:11 wusel Exp wusel $
  9.  *
  10.  */
  11.  
  12. HostName    = ''
  13. DomainName  = ''
  14. NewsMaster  = ''
  15. UserName    = ''
  16. Organization= ''
  17. TmpFileName = 't:gensys.'pragma('ID')'.tmp'
  18. TargetSite  = 'MAF-host'
  19. Passwd      = 'MAF-password'
  20.  
  21. if(open(conf, "uulib:config", r)) then do
  22.    do while ~eof(conf)
  23.       in=readln(conf)
  24.  
  25.       in2 = Translate(in, ' ', D2C(9))
  26.       parse var in2 key cont
  27.  
  28.       select
  29.          when upper(key)="NODENAME"     then HostName   = strip(cont)
  30.          when upper(key)="DOMAINNAME"   then DomainName = strip(cont)
  31.          when upper(key)="NEWSMASTER"   then NewsMaster = strip(cont)
  32.          when upper(key)="USERNAME"     then UserName   = strip(cont)
  33.          when upper(key)="ORGANIZATION" then Organization = strip(cont)
  34.          otherwise nop
  35.       end
  36.    end
  37.    err=close(conf)
  38. end
  39. else do
  40.    say 'Configuration file (UUlib:config) not found, aborting.'
  41.    exit(20)
  42. end
  43.  
  44. if NewsMaster = '' then NewsMaster = UserName
  45. if NewsMaster = '' then NewsMaster = 'postmaster'
  46.  
  47. ThisSite = HostName||DomainName
  48.  
  49. if(open(out, TmpFileName, 'write')) then do
  50.    call writeln(out, 'From: 'NewsMaster'@'ThisSite)
  51.    call writeln(out, 'Subject: setsys')
  52.    call writeln(out, 'To: maf@'TargetSite)
  53.    call writeln(out, 'Reply-To: 'UserName'@'ThisSite)
  54.    call writeln(out, 'Organization: 'Organization)
  55.    call writeln(out, '')
  56.    call writeln(out, '%password 'Passwd)
  57.    call writeln(out, '%clear')
  58.  
  59.    do forever
  60.       Line = readln(stdin)
  61.       if eof(stdin) then break
  62.  
  63.       call writeln(out, '+'compress(Line))
  64.    end
  65.    call close(out)
  66.    address COMMAND 'sendmail <'TmpFileName
  67.    address COMMAND 'delete 'TmpFileName' >nil:'
  68. end
  69. else
  70. do
  71.    say 'Can''t open 'TmpFileName' for writing ...')
  72.    exit(20)
  73. end
  74.