BW => 0.0, # just paper cost
COLOR => 3.99, # FIXME
DUPLEX => -0.05,
+ COPY => 0, # no additional price other than paper
};
$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 ".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);