From 83c5b5d051461cc72a23eda9a2028eff5cf8edb7 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 26 Feb 2019 08:56:54 +0100
Subject: [PATCH 1/1] report total_pages in .COPY and .DONE

---
 terminal-server.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/terminal-server.pl b/terminal-server.pl
index 3f6610d..6ea1a23 100755
--- a/terminal-server.pl
+++ b/terminal-server.pl
@@ -126,7 +126,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 +196,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);
-- 
2.20.1