added ipp utils and pdf driver for cups

[safeq] / terminal-emulator.pl

diff --git a/terminal-emulator.pl b/terminal-emulator.pl
index 781d353..9a91ede 100755 (executable)
--- a/terminal-emulator.pl
+++ b/terminal-emulator.pl
@@ -31,16 +31,7 @@ my @send_receive = grep { /^.+$/ } split(/\n/, q{
 .CARD OK Ime Prezime (nobody@example.com)
 
 .ACTION
-.ACTION CMENUS0
-
-.NOP
-.NOP
-
-.NOP
-.NOP
-
-.NOP
-.NOP
+.ACTION CMENUS
 
 .NOP
 .NOP
@@ -62,7 +53,7 @@ while ( @send_receive ) {
        $got =~ s/[\r\n]+$//;
 warn "# send/expect/got ",dump($send,$expect,$got);
        warn "<< $got\n";
-       if ( $expect ne $got ) {
+       if ( defined $got && defined $expect && $expect ne substr($got,0,length($expect)) ) {
                warn "ERROR expected [$expect] got [$got]\n";
                print "Response>";
                my $r = <STDIN>; chomp $r;