Gecko [ 122.154.134.11 ]

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.44 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.28 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-Amazon-Linux-2-ALL	323 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	323 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	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-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.51 KB	-rw-r--r--
config.info.ca.UTF-8	1.53 KB	-rw-r--r--
config.info.cz	1.18 KB	-rw-r--r--
config.info.cz.UTF-8	1.25 KB	-rw-r--r--
config.info.de	1.45 KB	-rw-r--r--
config.info.de.UTF-8	1.45 KB	-rw-r--r--
config.info.es	1.16 KB	-rw-r--r--
config.info.es.UTF-8	1.17 KB	-rw-r--r--
config.info.fr	557 B	-rw-r--r--
config.info.fr.UTF-8	554 B	-rw-r--r--
config.info.hu	685 B	-rw-r--r--
config.info.hu.UTF-8	697 B	-rw-r--r--
config.info.ja_JP.UTF-8	823 B	-rw-r--r--
config.info.ja_JP.euc	673 B	-rw-r--r--
config.info.nl	1.41 KB	-rw-r--r--
config.info.nl.UTF-8	1.41 KB	-rw-r--r--
config.info.no	1.41 KB	-rw-r--r--
config.info.no.UTF-8	1.41 KB	-rw-r--r--
config.info.pl	1.41 KB	-rw-r--r--
config.info.pl.UTF-8	1.45 KB	-rw-r--r--
config.info.pt_BR	1.7 KB	-rw-r--r--
config.info.pt_BR.UTF-8	1.7 KB	-rw-r--r--
config.info.ru.UTF-8	1.74 KB	-rw-r--r--
config.info.ru_RU	1.17 KB	-rw-r--r--
config.info.ru_RU.UTF-8	1.74 KB	-rw-r--r--
config.info.ru_SU	1.17 KB	-rw-r--r--
config.info.sv	640 B	-rw-r--r--
config.info.sv.UTF-8	651 B	-rw-r--r--
config.info.tr	1.3 KB	-rw-r--r--
config.info.uk_UA	1.21 KB	-rw-r--r--
config.info.uk_UA.UTF-8	1.8 KB	-rw-r--r--
config.info.zh_CN	496 B	-rw-r--r--
config.info.zh_CN.UTF-8	573 B	-rw-r--r--
config.info.zh_TW.Big5	480 B	-rw-r--r--
config.info.zh_TW.UTF-8	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.96 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.87 KB	-rwxr-xr-x
lprng-lib.pl	10.26 KB	-rwxr-xr-x
module.info	494 B	-rw-r--r--
module.info.ca	164 B	-rw-r--r--
module.info.ca.UTF-8	179 B	-rw-r--r--
module.info.cz	30 B	-rw-r--r--
module.info.cz.UTF-8	37 B	-rw-r--r--
module.info.de	152 B	-rw-r--r--
module.info.de.UTF-8	164 B	-rw-r--r--
module.info.es	37 B	-rw-r--r--
module.info.es.UTF-8	44 B	-rw-r--r--
module.info.fr	39 B	-rw-r--r--
module.info.fr.UTF-8	45 B	-rw-r--r--
module.info.hu	18 B	-rw-r--r--
module.info.hu.UTF-8	25 B	-rw-r--r--
module.info.ja_JP.UTF-8	36 B	-rw-r--r--
module.info.ja_JP.euc	28 B	-rw-r--r--
module.info.ko_KR.UTF-8	34 B	-rw-r--r--
module.info.ko_KR.euc	27 B	-rw-r--r--
module.info.ms_MY	158 B	-rw-r--r--
module.info.ms_MY.UTF-8	170 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.UTF-8	39 B	-rw-r--r--
module.info.no	31 B	-rw-r--r--
module.info.no.UTF-8	37 B	-rw-r--r--
module.info.pl	156 B	-rw-r--r--
module.info.pl.UTF-8	172 B	-rw-r--r--
module.info.pt	37 B	-rw-r--r--
module.info.pt.UTF-8	45 B	-rw-r--r--
module.info.pt_BR	50 B	-rw-r--r--
module.info.pt_BR.UTF-8	56 B	-rw-r--r--
module.info.ru.UTF-8	31 B	-rw-r--r--
module.info.ru_RU	20 B	-rw-r--r--
module.info.ru_RU.UTF-8	34 B	-rw-r--r--
module.info.ru_SU	20 B	-rw-r--r--
module.info.sv	30 B	-rw-r--r--
module.info.sv.UTF-8	36 B	-rw-r--r--
module.info.tr	24 B	-rw-r--r--
module.info.zh_CN	22 B	-rw-r--r--
module.info.zh_TW.Big5	29 B	-rw-r--r--
old-caldera-driver.pl	9.72 KB	-rwxr-xr-x
openbsd-lib.pl	7.26 KB	-rwxr-xr-x
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.01 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	906 B	-rwxr-xr-x
webmin-driver.pl	1.04 KB	-rwxr-xr-x

Code Editor : 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;
}

${this.title}

Code Editor : printconf-driver.pl