Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.16 KB	-rw-r--r--
acl_security.pl	4.4 KB	-rwxr-xr-x
aix-lib.pl	9.45 KB	-rwxr-xr-x
ascii.txt	4.19 KB	-rw-r--r--
base_coas_driver	560 B	-rwxr-xr-x
bw.fig	2.75 KB	-rw-r--r--
bw.ps	6.46 KB	-rw-r--r--
caldera-driver.pl	12.31 KB	-rwxr-xr-x
cancel_all.cgi	535 B	-rwxr-xr-x
catalog.devices	12.34 KB	-rw-r--r--
cgi_args.pl	284 B	-rwxr-xr-x
cluster.cgi	2.06 KB	-rwxr-xr-x
cluster_add.cgi	2.13 KB	-rwxr-xr-x
cluster_delete.cgi	529 B	-rwxr-xr-x
colour.fig	2.91 KB	-rw-r--r--
colour.ps	6.63 KB	-rw-r--r--
config-AlmaLinux-7.0-ALL	323 B	-rw-r--r--
config-Amazon-Linux-2-ALL	323 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	323 B	-rw-r--r--
config-CentOS-Stream-Linux-8.0...	323 B	-rw-r--r--
config-Oracle-Linux-8.0-ALL	323 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	323 B	-rw-r--r--
config-Rocky-Linux-7.0-ALL	323 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	323 B	-rw-r--r--
config-aix	281 B	-rw-r--r--
config-coherent-linux	323 B	-rw-r--r--
config-corel-linux	228 B	-rw-r--r--
config-debian-linux	228 B	-rw-r--r--
config-debian-linux-3.1-3.9	327 B	-rw-r--r--
config-debian-linux-4.0-ALL	333 B	-rw-r--r--
config-freebsd	230 B	-rw-r--r--
config-generic-linux	228 B	-rw-r--r--
config-gentoo-linux	248 B	-rw-r--r--
config-hpux	323 B	-rw-r--r--
config-irix	213 B	-rw-r--r--
config-macos	230 B	-rw-r--r--
config-mandrake-linux	245 B	-rw-r--r--
config-mandrake-linux-8.0-ALL	276 B	-rw-r--r--
config-msc-linux	228 B	-rw-r--r--
config-netbsd	230 B	-rw-r--r--
config-open-linux	309 B	-rw-r--r--
config-open-linux-3.1e	239 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	318 B	-rw-r--r--
config-openbsd	230 B	-rw-r--r--
config-openmamba-linux	229 B	-rw-r--r--
config-pardus-linux	228 B	-rw-r--r--
config-redhat-linux	228 B	-rw-r--r--
config-redhat-linux-24.0-ALL	339 B	-rw-r--r--
config-redhat-linux-7.0	283 B	-rw-r--r--
config-redhat-linux-7.1	286 B	-rw-r--r--
config-redhat-linux-7.2-8.1	394 B	-rw-r--r--
config-redhat-linux-9.0-23.0	337 B	-rw-r--r--
config-slackware-linux	228 B	-rw-r--r--
config-slackware-linux-8.1-ALL	246 B	-rw-r--r--
config-solaris	304 B	-rw-r--r--
config-solaris-10-ALL	330 B	-rw-r--r--
config-solaris-9	296 B	-rw-r--r--
config-suse-linux	226 B	-rw-r--r--
config-suse-linux-8.2-ALL	322 B	-rw-r--r--
config-trustix-linux	313 B	-rw-r--r--
config-turbo-linux	228 B	-rw-r--r--
config-united-linux	322 B	-rw-r--r--
config-unixware	302 B	-rw-r--r--
config.info	1.31 KB	-rw-r--r--
config.info.ca	1.53 KB	-rw-r--r--
config.info.cs	1.25 KB	-rw-r--r--
config.info.de	1.43 KB	-rw-r--r--
config.info.es	1.17 KB	-rw-r--r--
config.info.fr	1.63 KB	-rw-r--r--
config.info.hu	707 B	-rw-r--r--
config.info.ja	823 B	-rw-r--r--
config.info.nl	1.41 KB	-rw-r--r--
config.info.no	1.37 KB	-rw-r--r--
config.info.pl	1.45 KB	-rw-r--r--
config.info.pt_BR	1.58 KB	-rw-r--r--
config.info.ru	1.74 KB	-rw-r--r--
config.info.sv	651 B	-rw-r--r--
config.info.tr	1.39 KB	-rw-r--r--
config.info.uk	1.81 KB	-rw-r--r--
config.info.zh	573 B	-rw-r--r--
config.info.zh_TW	539 B	-rw-r--r--
cups-driver.pl	6.37 KB	-rwxr-xr-x
cups-lib.pl	8.67 KB	-rwxr-xr-x
defaultacl	73 B	-rw-r--r--
delete_printer.cgi	690 B	-rwxr-xr-x
delete_printers.cgi	839 B	-rwxr-xr-x
drivers	18.34 KB	-rw-r--r--
edit_printer.cgi	10.08 KB	-rwxr-xr-x
freebsd-lib.pl	7.26 KB	-rwxr-xr-x
hpux-driver.pl	3.13 KB	-rwxr-xr-x
hpux-lib.pl	9.83 KB	-rwxr-xr-x
index.cgi	5.83 KB	-rwxr-xr-x
irix-driver.pl	3.13 KB	-rwxr-xr-x
irix-lib.pl	10.68 KB	-rwxr-xr-x
linux-lib.pl	8.97 KB	-rwxr-xr-x
list_jobs.cgi	2.25 KB	-rwxr-xr-x
log_parser.pl	1021 B	-rwxr-xr-x
lpadmin-lib.pl	19.89 KB	-rwxr-xr-x
lprng-lib.pl	10.26 KB	-rwxr-xr-x
module.info	494 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	159 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	223 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	290 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	306 B	-rw-r--r--
module.info.ca	167 B	-rw-r--r--
module.info.ca.auto	16 B	-rw-r--r--
module.info.cs	31 B	-rw-r--r--
module.info.cs.auto	155 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	168 B	-rw-r--r--
module.info.de	148 B	-rw-r--r--
module.info.de.auto	16 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	362 B	-rw-r--r--
module.info.es	38 B	-rw-r--r--
module.info.es.auto	157 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	217 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	246 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	168 B	-rw-r--r--
module.info.fr	39 B	-rw-r--r--
module.info.fr.auto	176 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	205 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	188 B	-rw-r--r--
module.info.hu	19 B	-rw-r--r--
module.info.hu.auto	173 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	177 B	-rw-r--r--
module.info.ja	27 B	-rw-r--r--
module.info.ja.auto	213 B	-rw-r--r--
module.info.ko	25 B	-rw-r--r--
module.info.ko.auto	176 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	219 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	189 B	-rw-r--r--
module.info.ms	152 B	-rw-r--r--
module.info.ms.auto	16 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	196 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.auto	133 B	-rw-r--r--
module.info.no	31 B	-rw-r--r--
module.info.no.auto	137 B	-rw-r--r--
module.info.pl	160 B	-rw-r--r--
module.info.pl.auto	16 B	-rw-r--r--
module.info.pt	39 B	-rw-r--r--
module.info.pt.auto	149 B	-rw-r--r--
module.info.pt_BR	42 B	-rw-r--r--
module.info.pt_BR.auto	155 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	199 B	-rw-r--r--
module.info.ru	25 B	-rw-r--r--
module.info.ru.auto	245 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	184 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	192 B	-rw-r--r--
module.info.sv	30 B	-rw-r--r--
module.info.sv.auto	141 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	393 B	-rw-r--r--
module.info.tr	27 B	-rw-r--r--
module.info.tr.auto	166 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	281 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	304 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	189 B	-rw-r--r--
module.info.zh	24 B	-rw-r--r--
module.info.zh.auto	136 B	-rw-r--r--
module.info.zh_TW	30 B	-rw-r--r--
module.info.zh_TW.auto	142 B	-rw-r--r--
old-caldera-driver.pl	9.74 KB	-rwxr-xr-x
openbsd-lib.pl	7.26 KB	-rwxr-xr-x
prefs.info	40 B	-rw-r--r--
printconf-driver.pl	9.52 KB	-rwxr-xr-x
rbac-mapping	248 B	-rw-r--r--
redhat-driver.pl	12.42 KB	-rwxr-xr-x
restart.cgi	301 B	-rwxr-xr-x
save_printer.cgi	5.85 KB	-rwxr-xr-x
solaris-driver.pl	4.03 KB	-rwxr-xr-x
solaris-lib.pl	12.17 KB	-rwxr-xr-x
sortdrivers-by-drv.pl	222 B	-rwxr-xr-x
sortdrivers.pl	242 B	-rwxr-xr-x
start.cgi	377 B	-rwxr-xr-x
stop.cgi	374 B	-rwxr-xr-x
stp	2.45 KB	-rw-r--r--
suse-driver.pl	10.62 KB	-rwxr-xr-x
test_form.cgi	887 B	-rwxr-xr-x
test_print.cgi	1.19 KB	-rwxr-xr-x
unixware-lib.pl	7.81 KB	-rwxr-xr-x
view_job.cgi	909 B	-rwxr-xr-x
webmin-driver.pl	1.04 KB	-rwxr-xr-x

Code Editor : aix-lib.pl

# aix-lib.pl
# Functions for AIX-style printer management

# get_qconfig()
sub get_qconfig
{
local @rv;
local $prn;
local $lnum = 0;
open(CONF, "<".$config{'printcap_file'});
while(<CONF>) {
	s/\r|\n//g;
	s/^\s*#.*$//;	
	s/^\s*\*.*$//;	
	if (/^(\S+):\s*$/) {
		# Start of a new printer
		$prn = { 'name' => $1,
			  'line' => $lnum,
			  'eline' => $lnum };
		push(@rv, $prn);
		}
	elsif (/^\s+(\S+)\s*=\s*(.*)/ && $prn) {
		# Variable within a printer
		$prn->{'eline'} = $lnum;
		$prn->{'values'}->{lc($1)} = $2;
		}
	$lnum++;
	}
close(CONF);
return @rv;
}

# list_printers()
# Returns an array of known printer names
sub list_printers
{
local @qc = &get_qconfig();
local (@rv, $q);
foreach $q (@qc) {
	if ($q->{'values'}->{'device'}) {
		# A real printer
		push(@rv, $q->{'name'});
		}
	}
return &unique(@rv);
}

# get_printer(name, [nostatus])
# Returns a reference to an associative array of printer details
sub get_printer
{
if (!%enabled_cache) {
	%enabled_cache = &get_enabled();
	}

# Find the printer in qconfig
local @qc = &get_qconfig();
local %prn;
local ($real) = grep { $_->{'name'} eq $_[0] } @qc;
return undef if (!$real);
local ($device) = grep { $_->{'name'} eq $real->{'values'}->{'device'} &&
			    $_->{'line'} > $real->{'line'} } @qc;

# Construct info object
$prn{'name'} = $_[0];
$prn{'accepting'} = uc($real->{'values'}->{'up'}) ne 'FALSE';
$prn{'enabled'} = $enabled_cache{$_[0]};
$prn{'desc'} = $real->{'values'}->{'device'};		# XXX
if ($real->{'values'}->{'rq'}) {
	# Remote printer
	$prn{'rhost'} = $real->{'values'}->{'host'};
	$prn{'rqueue'} = $real->{'values'}->{'rq'};
	if ($real->{'values'}->{'s_statfilter'} =~ /bsdshort/) {
		$prn{'type'} = 'bsd';
		}
	elsif ($real->{'values'}->{'s_statfilter'} =~ /attshort/) {
		$prn{'type'} = 's5';
		}
	elsif ($real->{'values'}->{'s_statfilter'} =~ /aixv2short/) {
		$prn{'type'} = 'aix2';
		}
	else {
		# Assume AIX by default
		$prn{'type'} = 'aix';
		}
	}
elsif ($device->{'values'}->{'backend'} =~ /piojetd\s+(\S+)\s+(\d+)/) {
	# Jetdirect printer
	$prn{'dhost'} = $1;
	$prn{'dport'} = $2;
	}
else {
	# Local printer
	$prn{'dev'} = "/dev/$_[0]";		# XXX
	}
$prn{'banner'} = 1 if (lc($device->{'values'}->{'header'}) eq 'always');
if (!$prn{'dhost'} &&
    $device->{'values'}->{'backend'} !~ /(rembak|piojetd|piob)/) {
	$prn{'iface'} = $device->{'values'}->{'backend'};
	}
return \%prn;

# XXX user access control
# XXX default printer?
# XXX remote system type
}

# get_jobs(printer)
sub get_jobs
{
local @jobs;
local $esc = quotemeta($_[0]);
local $doneheader;
open(LPQ, "lpq -P$esc |");
while(<LPQ>) {
	s/\r|\n//g;
	if (/^\-\-\-/) {
		$doneheader++;
		}
	elsif ($doneheader &&
	       /^\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)/) {
		local $job = { 'id' => $2,
			       'user' => $4,
			       'file' => $3,
			       'printing' => lc($1) eq "active" };
		push(@jobs, $job);
		}
	}
close(LPQ);
return @jobs;
}

# printer_support(option)
sub printer_support
{
return $_[0] !~ /^(why|allow|default|msize|ctype|alias|sysv|ipp|rnoqueue)$/;
}

# create_printer(&details)
# Create a new printer
sub create_printer
{
local $lref = &read_file_lines($config{'printcap_file'});
push(@$lref, &qconfig_real_lines($_[0]));
push(@$lref, &qconfig_device_lines($_[0]));
&flush_file_lines();
&enable_disable($_[0]);
}

# modify_printer(&details)
# Change an existing printer
sub modify_printer
{
# Find old entry
local @qc = &get_qconfig();
local ($real) = grep { $_->{'name'} eq $_[0]->{'name'} } @qc;
$real || &error("Failed to find old printer!");
local ($device) = grep { $_->{'name'} eq $real->{'values'}->{'device'} &&
			    $_->{'line'} > $real->{'line'} } @qc;

# Update lines in file
local $lref = &read_file_lines($config{'printcap_file'});
if ($device) {
	splice(@$lref, $device->{'line'},
	       $device->{'eline'} - $device->{'line'} + 1,
	       &qconfig_device_lines($_[0], $device));
	}
else {
	splice(@$lref, $real->{'eline'} + 1, 0,
	       &qconfig_device_lines($_[0]));
	}
splice(@$lref, $real->{'line'}, $real->{'eline'} - $real->{'line'} + 1,
       &qconfig_real_lines($_[0], $real));
&flush_file_lines();
&enable_disable($_[0]);
}

# enable_disable(&printer)
# Enable or disable some printer
sub enable_disable
{
local %ena = &get_enabled();
if ($_[0]->{'enabled'} && !$ena{$_[0]->{'name'}}) {
	&system_logged("enable ".quotemeta($_[0]->{'name'}));
	}
elsif (!$_[0]->{'enabled'} && $ena{$_[0]->{'name'}}) {
	&system_logged("disable ".quotemeta($_[0]->{'name'}));
	}
}

# get_enabled()
# Returns a hash from printer names to their enabled statuses
sub get_enabled
{
local %ena;
open(ENA, "lpstat -s -W |");
while(<ENA>) {
	s/\r|\n//g;
	next if (/^Queue|\-\-\-\-/);
	if (/^\s*(\S+)\s+(\S+)\s+(\S+)/) {
		$ena{$1} = $3 eq 'READY';
		}
	}
close(ENA);
return %ena;
}

# delete_printer(name)
# Deletes some existing printer
sub delete_printer
{
# Find old entry
local @qc = &get_qconfig();
local ($real) = grep { $_->{'name'} eq $_[0] } @qc;
local ($device) = grep { $_->{'name'} eq $real->{'values'}->{'device'} &&
			    $_->{'line'} > $real->{'line'} } @qc;

# Take lines out of file
local $lref = &read_file_lines($config{'printcap_file'});
if ($device) {
	splice(@$lref, $device->{'line'},
	       $device->{'eline'} - $device->{'line'} + 1);
	}
splice(@$lref, $real->{'line'},
       $real->{'eline'} - $real->{'line'} + 1);
&flush_file_lines();
}

# qconfig_real_lines(&printer, [&old-real])
sub qconfig_real_lines
{
local $real = $_[1] || { 'name' => $_[0]->{'name'},
			 'values' => { } };
$_[0]->{'desc'} ||= "$_[0]->{'name'}_device";
$real->{'values'}->{'device'} = $_[0]->{'desc'};
if ($_[0]->{'accepting'}) {
	delete($real->{'values'}->{'up'});
	}
else {
	$real->{'values'}->{'up'} = 'FALSE';
	}
if ($_[0]->{'rhost'}) {
	$real->{'values'}->{'host'} = $_[0]->{'rhost'};
	$real->{'values'}->{'rq'} = $_[0]->{'rqueue'};
	if ($_[0]->{'type'} eq 'bsd') {
		$real->{'values'}->{'s_statfilter'} = "/usr/lpd/bsdshort";
		$real->{'values'}->{'l_statfilter'} = "/usr/lpd/bsdlong";
		}
	elsif ($_[0]->{'type'} eq 's5') {
		$real->{'values'}->{'s_statfilter'} = "/usr/lpd/attshort";
		$real->{'values'}->{'l_statfilter'} = "/usr/lpd/attlong";
		}
	elsif ($_[0]->{'type'} eq 'aix2') {
		$real->{'values'}->{'s_statfilter'} = "/usr/lpd/aixv2short";
		$real->{'values'}->{'l_statfilter'} = "/usr/lpd/aixv2long";
		}
	else {
		$real->{'values'}->{'s_statfilter'} = "/usr/lpd/aixshort";
		$real->{'values'}->{'l_statfilter'} = "/usr/lpd/aixlong";
		}
	}
else {
	delete($real->{'values'}->{'host'});
	delete($real->{'values'}->{'rq'});
	delete($real->{'values'}->{'s_statfilter'});
	delete($real->{'values'}->{'l_statfilter'});
	}
return &qconfig_lines($real);
}

# qconfig_device_lines(&printer, [&old-device])
sub qconfig_device_lines
{
local $device = $_[1] || { 'name' => $_[0]->{'desc'},
			   'values' => { } };
if ($_[0]->{'rhost'}) {
	$device->{'values'}->{'backend'} = "/usr/lib/lpd/rembak";
	}
elsif ($_[0]->{'dhost'}) {
	$device->{'values'}->{'backend'} = "/usr/lib/lpd/pio/etc/piojetd $_[0]->{'dhost'} $_[0]->{'dport'}";
	if (!$device->{'values'}->{'file'}) {
		local $dfile = "/var/spool/lpd/pio/\@local/dev/hp\@$_[0]->{'dhost'}#hpJetDirect#$_[0]->{'dport'}";
		$device->{'values'}->{'file'} = $dfile;
		&open_tempfile(DFILE, ">$dfile");
		&print_tempfile(DFILE, "desc\t=\thpJetDirect\n");
		&close_tempfile(DFILE);
		}
	}
elsif ($_[0]->{'iface'}) {
	$device->{'values'}->{'backend'} = $_[0]->{'iface'};
	}
else {
	$device->{'values'}->{'backend'} = "/usr/lib/lpd/piobe";
	}
if ($_[0]->{'banner'}) {
	$device->{'values'}->{'header'} = "always";
	}
else {
	$device->{'values'}->{'header'} = "never";
	}
return &qconfig_lines($device);
}

sub qconfig_lines
{
local @rv = ( "$_[0]->{'name'}:" );
local $k;
foreach $k (keys %{$_[0]->{'values'}}) {
	push(@rv, "\t$k = $_[0]->{'values'}->{$k}");
	}
return @rv;
}

# cancel_job(printer, id)
# Cancels some print job
sub cancel_job
{
local $esc = quotemeta($_[0]);
local $iesc = quotemeta($_[1]);
local $out = &backquote_logged("lprm -P $esc $iesc 2>&1");
if ($?) { &error("cancel failed : <pre>$out</pre>"); }
sleep(1);
}

# sched_running()
# Returns the pid if lpsched is running, 0 if not, -1 if cannot be stopped
sub sched_running
{
local @qpid = &find_byname("qdaemon");
local @lpid = &find_byname("lpd");
if (@qpid && @lpid) { return $qpid[0]; }
return 0;
}

# start_sched()
# Start lpsched
sub start_sched
{
local $s;
foreach $s ("qdaemon", "lpd") {
	if (!&find_byname($s)) {
		local $out = &backquote_logged("/usr/bin/startsrc -s$s 2>&1");
		if ($?) { &error("failed to start $s : <tt>$out</tt>"); }
		}
	}
}

# stop_sched(pid)
# Stop the running lpsched process
sub stop_sched
{
local $s;
foreach $s ("qdaemon", "lpd") {
	if (&find_byname($s)) {
		local $out = &backquote_logged("/usr/bin/stopsrc -s$s 2>&1");
		if ($?) { &error("failed to start $s : <tt>$out</tt>"); }
		}
	}
}

# print_command(printer, file)
# Returns the command to print some file on some printer
sub print_command
{
local $esc = quotemeta($_[0]);
local $fesc = quotemeta($_[1]);
return "lpr -P $esc $fesc";
}

# check_print_system()
sub check_print_system
{
&has_command("qdaemon") || return &text('aix_ecmd', "<tt>qdaemon</tt>");
return undef;
}

# validate_printer(&printer)
# Performs extra OS-specific printer validation, and returns an error message
# if there is a problem
sub validate_printer
{
return $text{'aix_edesc'} if ($_[0]->{'desc'} !~ /^[a-z0-9\-\.\_\@]*$/i);
return undef;
}

sub remote_printer_types
{
return ( [ 'aix', 'AIX' ], [ 'bsd', 'BSD' ],
	 [ 's5', 'ATT SysV' ], [ 'aix2', 'AIX v2' ] );
}

@device_files = ("/dev/lp0", "/dev/lp1", "/dev/null" );
@device_names = (&text('aix_port', "0"), &text('aix_port', "1"),
		 $text{'solaris_null'});

${this.title}

Code Editor : aix-lib.pl