| 17 |
# along with this program; if not, write to the Free Software |
# along with this program; if not, write to the Free Software |
| 18 |
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| 19 |
|
|
| 20 |
# $Id: scriptor,v 1.4 2001-09-05 07:28:34 rousseau Exp $ |
# $Id: scriptor,v 1.5 2001-09-05 07:35:59 rousseau Exp $ |
| 21 |
|
|
| 22 |
|
# $Log: not supported by cvs2svn $ |
| 23 |
|
|
| 24 |
use Getopt::Std; |
use Getopt::Std; |
| 25 |
use PCSC; |
use PCSC; |
| 39 |
getopt ("r:", \%options); |
getopt ("r:", \%options); |
| 40 |
|
|
| 41 |
if ($options{h}) { |
if ($options{h}) { |
| 42 |
print "Usage: "; |
print "Usage: $0 [-h] [-r reader] [file]\n"; |
| 43 |
|
print " -h: this help\n"; |
| 44 |
|
print " -r reader: specify to use the PCSC smart card reader named reader\n"; |
| 45 |
|
print " By defaults the first one found is used so you\n"; |
| 46 |
|
print " don't have to specify anything if you just have\n"; |
| 47 |
|
print " one reader\n"; |
| 48 |
|
print " file: file containing APDUs\n"; |
| 49 |
exit (0); |
exit (0); |
| 50 |
} |
} |
| 51 |
|
|