sunray cfg file for austrian ecard
From: Niki W. Waibel (niki.waibel_at_newlogic.com)
Date: 08/02/05
- Next message: Craig Dewick: "HP jetadmin/webjetadmin software... Solaris support? (fwd)"
- Previous message: James Carlson: "Re: /var/adm/messages"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 02 Aug 2005 18:31:23 +0200
just in case someone is interested...
here is sunray config file for the austrian ecard (gesundheitskarte):
# cat AustrianECard.cfg
admin.name = AustrianECard
admin.model = Various
admin.description = Austrian ECard (Gesundheitskarte)
admin.supplier = Niki W. Waibel
admin.version = 0.16
admin.type = smartcard
--StartWords--
noID onException
AustrianECard tokenType setprop
"Trying " tokenType getprop concat msg
"VERSION 0.16" msg
atr.atr getprop
# DEBUG
# " DBG: you should see the ATR on the stack" msg
# showstack
# END DEBUG
# check the ATR length
dup
hexlength 16 hexequals
noID jmpIfFalse
# DEBUG
# " DBG: ATR LENGTH OK" msg
# showstack
# END DEBUG
dup
3bbd18008131fe45805102670414b10101020081053d hexequals
AustrianECard2005 jmpIfTrue
# DEBUG
# " DBG: ATR (" swap concat ") NOT OK" swap concat msg
# showstack
# END DEBUG
false noID jmpifFalse
AustrianECard2005::
# drop atr from the stack
drop
# DEBUG
# " DBG: ATR matches AustrianECard2005" msg
# " DBG: stack should be empty by now" msg
# showstack
# END DEBUG
00A40000023f00 00 exchangeAPDU
# DEBUG
# "Stack dump immediately after >select mf 3f00<" msg
# showstack
# END DEBUG
badCard jmpIfFalse
9000 hexequals noID jmpIfFalse
drop
noID jmpIfFalse
drop
00A40200022f02 00 exchangeAPDU
# DEBUG
# "Stack dump immediately after >select ef 2f02<" msg
# showstack
# END DEBUG
badCard jmpIfFalse
9000 hexequals noID jmpIfFalse
drop
noID jmpIfFalse
drop
00B00000 00 exchangeAPDU
# DEBUG
# "Stack dump immediately after >readbinary<" msg
# showstack
# END DEBUG
badCard jmpIfFalse
9000 hexequals noID jmpIfFalse
drop
noID jmpIfFalse
# DEBUG
# "Stack dump immediately after removing status" msg
# showstack
# END DEBUG
# log sun ray uniq identifier
dup
" Token ID: " swap concat
tokenType getprop " Token Type: " swap concat
concat
"Identified " swap concat
msg
# return the tokenType and Token ID
tokenType getprop returnID
#
# This card isn't a card that we could identify
# so just return and let the next config file (if any)
# have a shot at the card.
#
noID::
"Unable to determine ID for " tokenType getprop concat msg
return
#
# an error occurred while accessing the card
#
badCard::
"Error accessing " tokenType getprop concat
msg
return
--EndWords--
- Next message: Craig Dewick: "HP jetadmin/webjetadmin software... Solaris support? (fwd)"
- Previous message: James Carlson: "Re: /var/adm/messages"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|