projects
/
safeq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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,
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;
$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/ ) {
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 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);
# $client_socket->close;
} elsif (defined $line) {
warn "UNKNOWN: ",dump($line);