X-Git-Url: http://git.rot13.org/?p=safeq;a=blobdiff_plain;f=terminal-server.pl;h=5d425ec2d8b0b990b8f16d5fde97743ee3cdb913;hp=3f6610d51d37826f78205f57583b0a1afad447b6;hb=e627097d17019b0ab56aebca48f0950d799e0d90;hpb=189182090a81790aa41bc59bd48cd92e1113730b

diff --git a/terminal-server.pl b/terminal-server.pl
index 3f6610d..5d425ec 100755
--- 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);