File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/lpadmin

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

Editing: printconf-driver.pl

# printconf-driver.pl
# Functions for printer drivers as created by redhat 7.1

$mf_wrapper = "/usr/share/printconf/mf_wrapper";
@overview_files = ( "/usr/share/printconf/foomatic/data/00-overview.foo",
		    "/usr/share/printconf/foomatic/rh-data/00-overview.foo" );
$mfomatic = "/usr/share/printconf/foomatic/mfomatic";
$ps_wrapper= "/usr/share/printconf/util/mf_postscript_wrapper";
$text_filter = "pipe/postscript/ /usr/bin/mpage -b ifdef(`PAGEsize', PAGEsize, Letter) -1 -o -P- -";
$default_filter = "cat/text/";
$smb_driver = "/usr/share/printconf/smbprint";

@paper_sizes = ( 'Letter', 'Legal', 'Executive',
		 'A5', 'A4', 'A3' );

# is_windows_driver(path, &printer)
# Returns a driver structure if some path is a windows driver
sub is_windows_driver
{
local $sd = "$config{'spool_dir'}/$_[1]->{'name'}";
if ($_[1]->{'dev'} eq "|$smb_driver" && -r "$sd/script.cfg") {
	# Looks like a redhat SMB driver
	local %sconfig;
	&read_env_file("$sd/script.cfg", \%sconfig);
	$sconfig{'share'} =~ /^\\\\(.*)\\(.*)$/;
	return { 'server' => $1,
		 'share' => $2,
		 'user' => $sconfig{'user'},
		 'pass' => $sconfig{'password'},
		 'workgroup' => $sconfig{'workgroup'},
		 'program' => $_[0] };
	}
return undef;

}

# is_driver(path, &printer)
# Returns a structure containing the details of a driver
# XXX do we need to support old redhat drivers?
sub is_driver
{
if (!$_[0]) {
	return { 'mode' => 0,
		 'desc' => "$text{'redhat_none'}" };
	}
local $sd = "$config{'spool_dir'}/$_[1]->{'name'}";
if ($_[0] eq $mf_wrapper && -r "$sd/mf.cfg") {
	# Looks like a new printconf driver
	local %define;
	&read_m4_file("$sd/mf.cfg", \%define);
	if ($define{'PSfilter'} =~
	    /^filter\s+$ps_wrapper.*\s(\S+)-(\d+)\.foo$/) {
		# Has printer driver
		return { 'mode' => 1,
			 'driver' => $1,
			 'id' => $2,
			 'paper' => $define{'PAGEsize'},
			 'make' => $define{'MAKE'},
			 'model' => $define{'MODEL'},
			 'desc' => "$define{'MAKE'} $define{'MODEL'}" };
		}
	elsif ($define{'PSfilter'} =~ /^filter\s+$ps_wrapper\s*$/) {
		# Postscript printer
		return { 'mode' => 1,
			 'postscript' => 1,
			 'paper' => $define{'PAGEsize'},
			 'desc' => 'Postscript printer' };
		}
	elsif ($define{'PSfilter'} eq 'text' &&
	       $define{'TEXTfilter'} eq 'text') {
		# Text only printer
		return { 'mode' => 1,
			 'text' => 1,
			 'desc' => 'Text printer' };
		}
	}

# Some other kind of driver
return { 'mode' => 2,
	 'file' => $_[0],
	 'desc' => $_[0] };
}

# read_m4_file(file, &hash)
sub read_m4_file
{
open(CFG, "<".$_[0]);
while(<CFG>) {
	s/#.*$//; s/\r|\n//g;
	if (/^\s*define$([A-Za-z0-9\_]+)\s*,\s*`([^']*)'$/) {
		$_[1]->{$1} = $2;
		}
	elsif (/^\s*define$([A-Za-z0-9\_]+)\s*,\s*([^\s$]+)\)/) {
		$_[1]->{$1} = $2;
		}
	}
close(CFG);
}

# create_windows_driver(&printer, &driver)
# Creates a new windows printer driver
sub create_windows_driver
{
local $sd = "$config{'spool_dir'}/$_[0]->{'name'}";

# Create the config file and driver
local %sconfig;
&read_file("$sd/script.cfg", \%sconfig);
$sconfig{'share'} = "\\\\$_[1]->{'server'}\\$_[1]->{'share'}";
$sconfig{'hostip'} = $_[1]->{'server'} eq $config{'hostip'} ?
			$sconfig{'hostip'} : undef;
$sconfig{'user'} = $_[1]->{'user'};
$sconfig{'password'} = $_[1]->{'pass'};
$sconfig{'workgroup'} = $_[1]->{'workgroup'};
&lock_file($sd);
mkdir($sd, 0755);
&unlock_file($sd);
&open_lock_tempfile(ENV, ">$sd/script.cfg");
&print_tempfile(ENV, "share='$sconfig{'share'}'\n");
&print_tempfile(ENV, "hostip=$sconfig{'hostip'}\n");
&print_tempfile(ENV, "user='$sconfig{'user'}'\n");
&print_tempfile(ENV, "password='$sconfig{'password'}'\n");
&print_tempfile(ENV, "workgroup='$sconfig{'workgroup'}'\n");
&close_tempfile(ENV);

# Set the print device
$_[0]->{'dev'} = "|$smb_driver";
return $_[1]->{'program'};
}

# create_driver(&printer, &driver)
# Creates a new local printer driver and returns the path
sub create_driver
{
local ($prn, $drv) = @_;
if ($drv->{'mode'} == 0) {
	return undef;
	}
elsif ($drv->{'mode'} == 2) {
	return $drv->{'file'};
	}
else {
	# Create the config file
	local $sd = "$config{'spool_dir'}/$_[0]->{'name'}";
	mkdir($sd, 0755);
	&lock_file("$sd/mf.cfg");
	if ($drv->{'text'}) {
		%driver = ( 'MAKE', '',
			    'MODEL', '',
			    'COLOR', '',
			    'PAGEsize', $_[1]->{'paper'},
			    'TEXTfilter', 'text',
			    'PSfilter', 'text',
			    'PCLfilter', 'reject',
			    'PJLfilter', 'reject',
			    'DEFAULTfilter', $default_filter );
		}
	elsif ($drv->{'postscript'}) {
		%driver = ( 'MAKE', '',
			    'MODEL', '',
			    'COLOR', '',
			    'PAGEsize', $_[1]->{'paper'},
			    'TEXTfilter', $text_filter,
			    'PSfilter', "filter $ps_wrapper ",
			    'PCLfilter', 'cat',
			    'PJLfilter', 'cat',
			    'DEFAULTfilter', $default_filter );
		}
	else {
		local $base = "$drv->{'driver'}-$drv->{'id'}.foo";
		local $path;
		foreach $f (@overview_files) {
			local $d = $f; $d =~ s/\/[^\/]+$//;
			$path = "$d/$base" if (-r "$d/$base");
			}
		&system_logged("cp $path $sd");
		&read_m4_file("$sd/mf.cfg", \%driver);
		$driver{'MAKE'} = $drv->{'make'};
		$driver{'MODEL'} = $drv->{'model'};
		$driver{'COLOR'} = 'true';	# ???
		$driver{'PSfilter'} = "filter $ps_wrapper --mfomatic -d $base";
		$driver{'TEXTfilter'} = $text_filter;
		$driver{'PCLfilter'} = 'cat';
		$driver{'PJLfilter'} = 'cat';
		$driver{'PAGEsize'} = $_[1]->{'paper'};
		$driver{'DEFAULTfilter'} = $default_filter;
		}
	&open_tempfile(CFG, ">$sd/mf.cfg");
	foreach $d (keys %driver) {
		if ($driver{$d} =~ /`|'/) {
			&print_tempfile(CFG, "define($d, $driver{$d})dnl\n");
			}
		else {
			&print_tempfile(CFG, "define($d, `$driver{$d}')dnl\n");
			}
		}
	&close_tempfile(CFG);
	&unlock_file("$sd/mf.cfg");
	return $mf_wrapper;
	}
}

# delete_driver(name)
sub delete_driver
{
local $sd = "$config{'spool_dir'}/$_[0]";
unlink("$sd/mf.cfg", "$sd/account");
}

# driver_input(&printer, &driver)
sub driver_input
{
local ($prn, $drv) = @_;

printf "<tr> <td><input type=radio name=mode value=0 %s> %s</td>\n",
	$drv->{'mode'} == 0 ? "checked" : "", $text{'redhat_none'};
print "<td>($text{'redhat_nonemsg'})</td> </tr>\n";

printf "<tr> <td><input type=radio name=mode value=2 %s> %s</td>\n",
	$drv->{'mode'} == 2 ? "checked" : "", $text{'redhat_prog'};
printf "<td><input name=iface value=\"%s\" size=35></td> </tr>\n",
	$drv->{'mode'} == 2 ? $drv->{'file'} : "";

printf "<tr> <td valign=top><input type=radio name=mode value=1 %s>\n",
	$drv->{'mode'} == 1 ? "checked" : "";
print "$text{'redhat_driver'}</td> <td><table width=100%>";

print "<tr> <td valign=top><b>$text{'redhat_printer2'}</b></td>\n";
print "<td><select name=printer size=10 onChange='setdriver(0)'>\n";
printf "<option value=%s %s>%s</option>\n",
	'text', $drv->{'text'} ? 'selected' : '', "Text printer";
printf "<option value=%s %s>%s</option>\n",
	'postscript', $drv->{'postscript'} ? 'selected' : '',
	"Postscript printer";

local $list = &list_printconf_drivers();
local $select_driver = 0;
foreach $k (sort { lc($a) cmp lc($b) } keys %$list) {
	foreach $m (@{$list->{$k}}) {
		next if (!@{$m->{'drivers'}});
		printf "<option value='%s' %s>%s</option>\n",
			join(";", $m->{'id'}, @{$m->{'drivers'}}),
			$drv->{'make'} eq $k &&
			$drv->{'model'} eq $m->{'model'} ? 'selected' : '',
			"$k $m->{'model'}";
		if ($drv->{'make'} eq $k && $drv->{'model'} eq $m->{'model'}) {
			$select_driver = &indexof($drv->{'driver'},
						  @{$m->{'drivers'}});
			}
		}
	}
print "</select><select name=driver size=10 width=100></select></td> </tr>\n";

local $foundp = 0;
print "<tr> <td><b>$text{'redhat_paper'}</b></td> <td><select name=paper>\n";
print "<option value='' selected>$text{'redhat_none'}</option>\n" if (!$drv->{'paper'});
foreach $p (@paper_sizes) {
	printf "<option %s>%s</option>\n",
		$drv->{'paper'} eq $p ? 'selected' : '', $p;
	$foundp++ if ($drv->{'paper'} eq $p);
	}
printf "<option selected>$drv->{'paper'}</option>\n" if (!$foundp && $drv->{'paper'});
print "</select></td> </tr>\n";

print "</table></td></tr>\n";
return <<EOF;
<script>
function setdriver(sel)
{
var idx = document.forms[0].printer.selectedIndex;
var v = new String(document.forms[0].printer.options[idx].value);
var vv = v.split(";");
var driver = document.forms[0].driver;
driver.length = 0;
for(var i=1; i<vv.length; i++) {
	driver.options[i-1] = new Option(vv[i], vv[i]);
	}
if (driver.length > 0) {
	driver.options[sel].selected = true;
	}
}
setdriver($select_driver);
</script>
EOF
}

# parse_driver()
# Parse driver selection from %in and return a driver structure
sub parse_driver
{
if ($in{'mode'} == 0) {
	return { 'mode' => 0 };
	}
elsif ($in{'mode'} == 2) {
	(-x $in{'iface'}) || &error(&text('redhat_eprog', $in{'iface'}));
	return { 'mode' => 2,
		 'file' => $in{'iface'} };
	}
else {
	$in{'printer'} || &error($text{'redhat_edriver'});
	if ($in{'printer'} eq 'text') {
		return { 'mode' => 1,
			 'paper' => $in{'paper'},
			 'text' => 1 };
		}
	elsif ($in{'printer'} eq 'postscript') {
		return { 'mode' => 1,
			 'paper' => $in{'paper'},
			 'postscript' => 1 };
		}
	else {
		$in{'driver'} || &error($text{'redhat_edriver'});
		local @p = split(/;/, $in{'printer'});
		local $list = &list_printconf_drivers();
		local ($make, $model);
		foreach $k (keys %$list) {
			foreach $m (@{$list->{$k}}) {
				if ($m->{'id'} == $p[0]) {
					$make = $k;
					$model = $m->{'model'};
					}
				}
			}
		return { 'mode' => 1,
			 'paper' => $in{'paper'},
			 'id' => $p[0],
			 'make' => $make,
			 'model' => $model,
			 'driver' => $in{'driver'} };
		}
	}
}

# list_printconf_drivers()
sub list_printconf_drivers
{
local %rv;
foreach $ov (@overview_files) {
	next if (!-r $ov);
	local $VAR1;
	eval { do $ov };
	next if ($@);
	foreach $k (keys %$VAR1) {
		foreach $m (@{$VAR1->{$k}}) {
			push(@{$rv{$k}}, $m);
			}
		}
	}
return \%rv;
}

X7ROOT File Manager

Editing: printconf-driver.pl

Upload File

Create Folder