initial commit
This commit is contained in:
sceox
commit
132432d825
87
README.md
Normal file
87
README.md
Normal file
@ -0,0 +1,87 @@
|
|||||||
|
# totoro
|
||||||
|
|
||||||
|
A simple web interface to line printer daemon (lpd) printing
|
||||||
|
on OpenBSD.
|
||||||
|
|
||||||
|
May work on other unixes, or may not.
|
||||||
|
|
||||||
|
## Installation
|
||||||
|
|
||||||
|
These installation instructions assume OpenBSD.
|
||||||
|
|
||||||
|
They also assume you've already set up lpd(8) and configured printcap(5).
|
||||||
|
|
||||||
|
Copy the perl script to the cgi-bin directory:
|
||||||
|
|
||||||
|
doas cp print.pl /var/www/cgi-bin/
|
||||||
|
|
||||||
|
### Perl
|
||||||
|
|
||||||
|
Install perl packages:
|
||||||
|
|
||||||
|
doas pkg_add p5-Any-URI-Escape p5-YAML p5-Clone
|
||||||
|
|
||||||
|
As of this writing, `Net::Printer` and `URI::Query` are not in openbsd
|
||||||
|
packages, so we'll install them locally. You may want to check if this has
|
||||||
|
changed.
|
||||||
|
|
||||||
|
To install them locally, first install `local::lib`:
|
||||||
|
|
||||||
|
doas pkg_add p5-local-lib
|
||||||
|
|
||||||
|
Then tell perl to install modules to `/var/www/perl5`:
|
||||||
|
|
||||||
|
PATH="/var/www/perl5/bin${PATH:+:${PATH}}"; export PATH;
|
||||||
|
PERL5LIB="/var/www/perl5/lib/perl5${PERL5LIB:+:${PERL5LIB}}"; export PERL5LIB;
|
||||||
|
PERL_LOCAL_LIB_ROOT="/var/www/perl5${PERL_LOCAL_LIB_ROOT:+:${PERL_LOCAL_LIB_ROOT}}"; export PERL_LOCAL_LIB_ROOT;
|
||||||
|
PERL_MB_OPT="--install_base \"/var/www/perl5\""; export PERL_MB_OPT;
|
||||||
|
PERL_MM_OPT="INSTALL_BASE=/var/www/perl5"; export PERL_MM_OPT;
|
||||||
|
|
||||||
|
Then install dependencies:
|
||||||
|
|
||||||
|
perl -MCPAN -e "use local::lib '/var/www/perl5'; install Net::Printer;"
|
||||||
|
perl -MCPAN -e "use local::lib '/var/www/perl5'; install URI::Query;"
|
||||||
|
|
||||||
|
### Daemons
|
||||||
|
|
||||||
|
Set up httpd and slowcgi:
|
||||||
|
|
||||||
|
NOTE: these instructions set up httpd and slowcgi without chroot.
|
||||||
|
Probably it can be made to work in a chroot.
|
||||||
|
|
||||||
|
Add to `/etc/httpd.conf`:
|
||||||
|
|
||||||
|
chroot "/"
|
||||||
|
logdir "/var/www/logs"
|
||||||
|
|
||||||
|
server "totoro" {
|
||||||
|
listen on * port 80
|
||||||
|
|
||||||
|
# testing
|
||||||
|
root "/var/www/htdocs"
|
||||||
|
|
||||||
|
|
||||||
|
# cgi
|
||||||
|
location "/" {
|
||||||
|
fastcgi socket "/var/www/run/slowcgi.sock"
|
||||||
|
root "/var/www/cgi-bin/print.pl"
|
||||||
|
}
|
||||||
|
location "/" {
|
||||||
|
root "/var/www/print.pl"
|
||||||
|
fastcgi socket "/var/www/run/slowcgi.sock"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
Set daemon flags and start:
|
||||||
|
|
||||||
|
$ doas rcctl set slowcgi flags "-p /"
|
||||||
|
$ doas rcctl enable httpd slowcgi
|
||||||
|
$ doas rcctl start httpd slowcgi
|
||||||
|
|
||||||
|
If your printer is not already set up yet, read up on lpd(8) and printcap(5).
|
||||||
|
|
||||||
|
## Usage
|
||||||
|
|
||||||
|
Place any jobs files into `/var/www/jobs`.
|
||||||
|
|
||||||
|
Visit the web interface in a web browser.
|
||||||
73
print.pl
Executable file
73
print.pl
Executable file
@ -0,0 +1,73 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use local::lib '/var/www/perl5';
|
||||||
|
use Net::Printer;
|
||||||
|
use URI::Query;
|
||||||
|
|
||||||
|
my $jobs_dir = "/var/www/jobs";
|
||||||
|
|
||||||
|
print "content-type:text/html; charset=utf-8\n\n";
|
||||||
|
print "<html>\n";
|
||||||
|
print "<head>\n";
|
||||||
|
print "<title>totoro!</title>\n";
|
||||||
|
# print "<script>if( window.location.href.match(/.*\?.*/) ) window.location = window.location.href.split(\"?\")[0];</script>";
|
||||||
|
print "</head>\n";
|
||||||
|
print "<body>\n";
|
||||||
|
|
||||||
|
my $lp = new Net::Printer();
|
||||||
|
|
||||||
|
# generate hash from query string
|
||||||
|
|
||||||
|
my $q = URI::Query->new( $ENV{'QUERY_STRING'} );
|
||||||
|
my %hash = $q->hash;
|
||||||
|
#print Dumper( \%hash );
|
||||||
|
|
||||||
|
if($hash{'file'}) {
|
||||||
|
my $file = "$jobs_dir/$hash{'file'}";
|
||||||
|
if(-e $file) {
|
||||||
|
for (my $i=0; $i <= $hash{'qty'}; $i++) {
|
||||||
|
my $result = $lp->printfile("$file");
|
||||||
|
print "$result <br>\n";
|
||||||
|
# TODO: handle errors in finding file and printing
|
||||||
|
#$errstr = $printer->printerror();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# display print queue
|
||||||
|
|
||||||
|
# TODO: check if "lp@localhost: JetDirect lpd: no jobs queued on the port Auto"
|
||||||
|
|
||||||
|
print "<h2>print queue</h2>\n";
|
||||||
|
# TODO: format as table with buttons (cancel)
|
||||||
|
my @queue = $lp->queuestatus();
|
||||||
|
print join("<br />", @queue);
|
||||||
|
|
||||||
|
# display jobs available to print
|
||||||
|
|
||||||
|
opendir(my $dh, "$jobs_dir") || die "Can't opendir $jobs_dir: $!";
|
||||||
|
my @files = grep { /^[^\.]/ && -f "$jobs_dir/$_" } readdir($dh);
|
||||||
|
closedir $dh;
|
||||||
|
|
||||||
|
print "<h2>jobs</h2>\n";
|
||||||
|
|
||||||
|
foreach my $file (@files) {
|
||||||
|
my $job = $file;
|
||||||
|
$job =~ s/^(.*)\.[^\.]*$/$1/;
|
||||||
|
$job =~ s/-bk-[24]x$//;
|
||||||
|
print "<form action=\"\" method=\"GET\">\n";
|
||||||
|
print "<span style=\"max-width:50%; width:10em;\"><label for=\"$job\">$job</label></span>";
|
||||||
|
print "<input type=\"hidden\" name=\"job\" value=\"$job\">";
|
||||||
|
print "<input type=\"hidden\" name=\"file\" value=\"$file\">";
|
||||||
|
print "<input type=\"number\" name=\"qty\" style=\"width: 4em;\" placeholder=\"qty\">\n";
|
||||||
|
print "<input type=\"submit\" value=\"print\">";
|
||||||
|
print "</form>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
print "</body>\n";
|
||||||
|
print "</html>\n";
|
||||||
|
|
||||||
|
1;
|
||||||
Loading…
Reference in New Issue
Block a user