/[pcsclite]/trunk/pcsc-tools/trunk/gscriptor
ViewVC logotype

Diff of /trunk/pcsc-tools/trunk/gscriptor

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3658 by rousseau, Sat Nov 8 17:02:03 2003 UTC revision 3659 by rousseau, Sat Nov 8 17:07:02 2003 UTC
# Line 21  Line 21 
21  # gscriptor uses libgtk-perl, please make sure it is correctly installed  # gscriptor uses libgtk-perl, please make sure it is correctly installed
22  # on your system  # on your system
23    
24  # $Id: gscriptor,v 1.22 2003-11-08 17:02:03 rousseau Exp $  # $Id: gscriptor,v 1.23 2003-11-08 17:07:02 rousseau Exp $
25    
26  use strict;  use strict;
27    
# Line 692  sub RunScript { Line 692  sub RunScript {
692                          if (ref $raCurrentResult) {                          if (ref $raCurrentResult) {
693                                  push @ResultStruct, "Received: ";                                  push @ResultStruct, "Received: ";
694                                  push @ResultStruct, $raCurrentResult;                                  push @ResultStruct, $raCurrentResult;
695                                  $raCurrentResult = Chipcard::PCSC::array_to_ascii($raCurrentResult);                                  push @ResultStruct, Chipcard::PCSC::Card::ISO7816Error(Chipcard::PCSC::array_to_ascii($raCurrentResult)), "\n\n";
                                 push @ResultStruct, Chipcard::PCSC::Card::ISO7816Error($raCurrentResult), "\n\n";  
696                          } else {                          } else {
697                                  MessageBox ("Transmit failed: $Chipcard::PCSC::errno\nStopping script execution", ['OK']);                                  MessageBox ("Transmit failed: $Chipcard::PCSC::errno\nStopping script execution", ['OK']);
698                                  push @ResultStruct, "\nErrors During Script Execution: $Chipcard::PCSC::errno\n";                                  push @ResultStruct, "\nErrors During Script Execution: $Chipcard::PCSC::errno\n";
Legend:
Removed from v.3658  
changed lines
  Added in v.3659
  ViewVC Help
Powered by ViewVC 1.1.5