home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / gensys0.11.lha / gensys.changesys < prev    next >
Text File  |  1993-12-19  |  2KB  |  87 lines
  1. /* gensys.changesys, (c) Sun, 19 Dec 1993 03:43:49 +0100 by "Kai 'wusel' Siering" <wusel@3jean[.uucp|.hanse.de]> */
  2. /*
  3.  * $Header: Death:src/wail/CNews/gensys/RCS/gensys.changesys,v 1.1 1993/12/19 02:49:10 wusel Exp wusel $
  4.  * $Log: gensys.changesys,v $
  5.  * Revision 1.1  1993/12/19  02:49:10  wusel
  6.  * Initial revision
  7.  *
  8.  * $Id: gensys.changesys,v 1.1 1993/12/19 02:49:10 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  = 'changesys-host'
  19. Passwd      = 'changesys-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: changesys@'TargetSite)
  53.    call writeln(out, 'Organization: 'Organization)
  54.    call writeln(out, '')
  55.    call writeln(out, 'system: 'HostName)
  56.    call writeln(out, 'passwd: 'Passwd)
  57.    call writech(out, 'sysentry: ')
  58.  
  59.    LeftPos=11
  60.    SetComma=0
  61.  
  62.    do forever
  63.       Line = readln(stdin)
  64.       if eof(stdin) then break
  65.  
  66.       if(SetComma=1) then call writech(out, ',')
  67.  
  68.       if(LeftPos+Length(Line)>78) then do
  69.          call writeln(out, '\')
  70.          LeftPos=1
  71.       end
  72.  
  73.       SetComma=1
  74.  
  75.       call writech(out, compress(Line))
  76.       LeftPos=LeftPos+Length(Line)
  77.    end
  78.    call close(out)
  79.    address COMMAND 'sendmail <'TmpFileName
  80.    address COMMAND 'delete 'TmpFileName' >nil:'
  81. end
  82. else
  83. do
  84.    say 'Can''t open 'TmpFileName' for writing ...')
  85.    exit(20)
  86. end
  87.