[BACK]Return to fetch_asir_key.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / rc

Diff for /OpenXM/rc/fetch_asir_key.sm1 between version 1.1 and 1.2

version 1.1, 2000/03/09 12:53:34 version 1.2, 2000/03/10 01:21:17
Line 1 
Line 1 
 % $OpenXM$  % $OpenXM: OpenXM/rc/fetch_asir_key.sm1,v 1.1 2000/03/09 12:53:34 takayama Exp $
 % ../bin/sm1 -f fetch_asir_key.sm1 to set the asir key automatically.  %% Usages:
   % ../bin/sm1 -f fetch_asir_key.sm1
   %    Set the asir key automatically.
   %
   % ../bin/sm1 -f fetch_asir_key.sm1 -s "/func (mail) def"
   % ../bin/sm1 -f fetch_asir_key.sm1 -s "/func (set) def"
   %   Step 1.  Only send a mail to get a key.
   %   Step 2.  Wait for a reply and set the keys to asir_key
   
 /fetchSeed {  /fetchSeed {
   [/in-fetchSeed /size] pushVariables    [/in-fetchSeed /size] pushVariables
Line 24 
Line 31 
   
 /waitReply {  /waitReply {
   /MAIL [(/var/mail/) [(getenv) (USER)] extension ] cat def    /MAIL [(/var/mail/) [(getenv) (USER)] extension ] cat def
     (/bin/rm -rf work/reply) system
   {    {
     [(Waiting a reply in ) MAIL] cat message      [(Waiting a reply in ) MAIL] cat message
     (/bin/rm -rf work/reply) system      [(    Type in   ctrl-Z   and   kill ) 37 (string) dc 37 (string) dc
        (   to stop this script.) ] cat message
     [(grep risa@sec.flab.fujitsu.co.jp ) MAIL (>work/reply)] cat system      [(grep risa@sec.flab.fujitsu.co.jp ) MAIL (>work/reply)] cat system
     [(stat) (work/reply)] extension 1 get 0 get 0 eq not {      [(stat) (work/reply)] extension 1 get 0 get 0 eq not {
       exit        exit
     }{  } ifelse      }{  } ifelse
     (Sleep 5) system      (sleep 5) system
   } loop    } loop
   (Got a key) message    (Got a key) message
 } def  } def
Line 44 
Line 53 
   cat work/key >>../lib/asir/asir_key    cat work/key >>../lib/asir/asir_key
 } def  } def
   
 /fetch {  /fetch_check {
   [(This script sets OpenXM/lib/asir/asir_key for your machine,)    [(This script sets OpenXM/lib/asir/asir_key for your machine,)
    (if your system can receive a mail at /var/mail on this machine.)     (if your system can receive a mail at /var/mail on this machine.)
   ] { message } map    ] { message } map
Line 59 
Line 68 
     (You already have a correct asir_key.) message      (You already have a correct asir_key.) message
     (  ) message      (  ) message
     quit      quit
  }{    }{ } ifelse
   } def
   
   /fetch {
      fetch_check
    sendMail     sendMail
    waitReply     waitReply
    setAsirKey     setAsirKey
  } ifelse  
 } def  } def
   
   /func load tag 0 eq {
     fetch
     quit
   } { } ifelse
   
 fetch  func (mail) eq {
 quit    ( ) message
     (Send a mail only) message
     fetch_check
     sendMail
     quit
   } { } ifelse
   
   func (set) eq {
     ( ) message
     (Wait a reply and set the keys) message
     waitReply
     setAsirKey
     quit
   } { } ifelse
   
   quit
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>