Printer Job Language Technical Reference Manual

[safeq] / terminal-server.pl

diff --git a/terminal-server.pl b/terminal-server.pl
index 3f6610d..5d425ec 100755 (executable)
--- a/terminal-server.pl
+++ b/terminal-server.pl
@@ -25,6 +25,7 @@ my $prices = {
        BW => 0.0, # just paper cost
        COLOR => 3.99, # FIXME
        DUPLEX => -0.05,
+       COPY => 0, # no additional price other than paper
 };
 
 
@@ -126,7 +127,7 @@ while(1) {
                        $total_charged += $charge;
                        $total_pages++;
                        client_send ".CREDIT ".credit;
-                       client_send ".COPY 1"; # I verified that you are allowed to copy 1 page?
+                       client_send ".COPY $total_pages"; # page copied
                        client_send ".NOP";
 
                } elsif ( $line =~ m/\.ACTION LIST/ ) {
@@ -196,7 +197,7 @@ while(1) {
                        client_send ".DONE BLK WAIT";
                        client_send ".NOP";
                        my $nr_jobs = 0; # FIXME
-                       client_send ".DONE $nr_jobs $total_pages ".credit($total_charged);
+                       client_send ".DONE $total_pages ".credit($total_charged);
 #                      $client_socket->close;
                } elsif (defined $line) {
                        warn "UNKNOWN: ",dump($line);