Return to fetch_asir_key.sm1 CVS log

Up to [local] / OpenXM / rc

Annotation of OpenXM/rc/fetch_asir_key.sm1, Revision 1.1

1.1     ! takayama    1: % $OpenXM$
        !             2: % ../bin/sm1 -f fetch_asir_key.sm1 to set the asir key automatically.
        !             3:
        !             4: /fetchSeed {
        !             5:   [/in-fetchSeed /size] pushVariables
        !             6:   [
        !             7:    (/bin/rm -rf work) system
        !             8:    (mkdir work) system
        !             9:    (echo "quit;" >work/asir_key.in) system
        !            10:    (../bin/asir <work/asir_key.in 2> work/asir_key.out0 ) system
        !            11:    (grep ASIR work/asir_key.out0 >work/asir_key.out) system
        !            12:    [(stat) (work/asir_key.out)] extension 1 get 0 get /size set
        !            13:    /arg1 size def
        !            14:   ] pop
        !            15:   popVariables
        !            16:   arg1
        !            17: } def
        !            18:
        !            19: /sendMail {
        !            20:   /MAILADDRESS ( risa@sec.flab.fujitsu.co.jp )def
        !            21:   [(Sending a mail to ) MAILADDRESS ] cat message
        !            22:   [(mail ) MAILADDRESS ( < ) (work/asir_key.out)] cat system
        !            23: } def
        !            24:
        !            25: /waitReply {
        !            26:   /MAIL [(/var/mail/) [(getenv) (USER)] extension ] cat def
        !            27:   {
        !            28:     [(Waiting a reply in ) MAIL] cat message
        !            29:     (/bin/rm -rf work/reply) system
        !            30:     [(grep risa@sec.flab.fujitsu.co.jp ) MAIL (>work/reply)] cat system
        !            31:     [(stat) (work/reply)] extension 1 get 0 get 0 eq not {
        !            32:       exit
        !            33:     }{  } ifelse
        !            34:     (Sleep 5) system
        !            35:   } loop
        !            36:   (Got a key) message
        !            37: } def
        !            38:
        !            39: /setAsirKey {
        !            40:   /MAIL [(/var/mail/) [(getenv) (USER)] extension ] cat def
        !            41:   (/bin/rm -rf work/key) system
        !            42:   [ (egrep '[0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z] [0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z] [0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z][0-9a-z]' ) MAIL ( >work/key) ]
        !            43:   cat system
        !            44:   cat work/key >>../lib/asir/asir_key
        !            45: } def
        !            46:
        !            47: /fetch {
        !            48:   [(This script sets OpenXM/lib/asir/asir_key for your machine,)
        !            49:    (if your system can receive a mail at /var/mail on this machine.)
        !            50:   ] { message } map
        !            51:   (  ) message
        !            52:   (  ) message
        !            53:   (Cheching if you have a correct asir_key.) message
        !            54:   (   ) message
        !            55:   (   ) message
        !            56:   fetchSeed 0 eq {
        !            57:     (  ) message
        !            58:     (  ) message
        !            59:     (You already have a correct asir_key.) message
        !            60:     (  ) message
        !            61:     quit
        !            62:  }{
        !            63:    sendMail
        !            64:    waitReply
        !            65:    setAsirKey
        !            66:  } ifelse
        !            67: } def
        !            68:
        !            69:
        !            70: fetch
        !            71: quit