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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>