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 : redhat-driver.pl

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

%paper_sizes = ( 'a4', 'A4',
		 'a3', 'A3',
		 'letter', 'US Letter',
		 'legal', 'Legal',
		 'ledger', 'Ledger' );
$rhs_drivers_file = "/usr/lib/rhs/rhs-printfilters/printerdb";
$base_driver = "/usr/lib/rhs/rhs-printfilters/master-filter";
$smb_driver = "/usr/lib/rhs/rhs-printfilters//smbprint";
$ncp_driver = "/usr/lib/rhs/rhs-printfilters//ncpprint";

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

# is_driver(path, &printer)
# Returns a structure containing the details of a driver
sub is_driver
{
if (!$_[0]) {
	return { 'mode' => 0,
		 'desc' => "$text{'redhat_none'}" };
	}
local $sd = "$config{'spool_dir'}/$_[1]->{'name'}";
if ($_[0] eq "$sd/filter" &&
    $_[1]->{'comment'} =~ /^##PRINTTOOL3##\s+(LOCAL|REMOTE|SMB)\s+(\S+)\s+(\S+)\s+(\S+)\s+\S+\s+(\S+)\s+(\S+)\s+/) {
	# Looks like a redhat driver ..
	local ($r, $rhs);
	foreach $r (&read_rhs_drivers()) {
		$rhs = $r if ($r->{'name'} eq $5);
		}
	local (%general, %postscript, %textonly);
	&read_env_file("$sd/general.cfg", \%general);
	&read_env_file("$sd/postscript.cfg", \%postscript);
	&read_env_file("$sd/textonly.cfg", \%textonly);
	return { 'mode' => 1,
		 'gsdevice' => $postscript{'GSDEVICE'},
		 'res' => $postscript{'RESOLUTION'},
		 'paper' => $postscript{'PAPERSIZE'},
		 'gsopts' => $postscript{'EXTRA_GS_OPTIONS'},
		 'eof' => lc($textonly{'TEXT_SEND_EOF'}),
		 'nup' => $postscript{'NUP'},
		 'hmargin' => $postscript{'RTLFTMAR'},
		 'vmargin' => $postscript{'TOPBOTMAR'},
		 'crlf' => $textonly{'CRLFTRANS'},
		 'bpp' => $postscript{'COLOR'} =~ /-dBitsPerPixel=(\d+)/ ? $1
				: $postscript{'COLOR'},
		 'rhsname' => $rhs->{'name'},
		 'desc' => $rhs->{'desc'} };
	}
else {
	# Some other kind of driver
	return { 'mode' => 2,
		 'file' => $_[0],
		 'desc' => $_[0] };
	}
}

# 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_env_file("$sd/.config", \%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/.config");
&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);

# Setup the comment and return the driver
local $drv = &is_driver($_[1]->{'program'}, $_[0]);
if ($drv->{'mode'} == 1) {
	local %general;
	&lock_file("$sd/general.cfg");
	&read_env_file("$sd/general.cfg", \%general);
	$general{'PRINTER_TYPE'} = 'SMB';
	&write_env_file("$sd/general.cfg", \%general, 1);
	&unlock_file("$sd/general.cfg");
	$_[0]->{'comment'} =~ s/\s+LOCAL\s+/ SMB /;
	return $_[1]->{'program'};
	}
else {
	$_[0]->{'comment'} = "##PRINTTOOL3## SMB";
	return $smb_driver;
	}
}

# create_driver(&printer, &driver)
# Creates a new local printer driver and returns the path
sub create_driver
{
local ($prn, $drv) = @_;
if ($drv->{'mode'} == 0) {
	$prn->{'comment'} =
		join(" ", "##PRINTTOOL3##",
			  $prn->{'rhost'} ? "REMOTE" : "LOCAL");
	return undef;
	}
elsif ($drv->{'mode'} == 2) {
	$prn->{'comment'} =
		join(" ", "##PRINTTOOL3##",
			  $prn->{'rhost'} ? "REMOTE" : "LOCAL");
	return $drv->{'file'};
	}
else {
	if (!-d $config{'spool_dir'}) {
		&lock_file($config{'spool_dir'});
		mkdir($config{'spool_dir'}, 0755);
		&unlock_file($config{'spool_dir'});
		&system_logged("chown $config{'iface_owner'} $config{'spool_dir'}");
		}
	local $sd = "$config{'spool_dir'}/$_[0]->{'name'}";

# create the config files
	local (%general, %postscript, %textonly);
	&lock_file("$sd/general.cfg");
	&lock_file("$sd/postscript.cfg");
	&lock_file("$sd/textonly.cfg");
	&read_env_file("$sd/general.cfg", \%general);
	&read_env_file("$sd/postscript.cfg", \%postscript);
	&read_env_file("$sd/textonly.cfg", \%textonly);
	if (!%general) {
		# setup for the first time..
		%general = ( 'DESIRED_TO', 'ps',
			     'ASCII_TO_PS', 'NO' );
		}
	$general{'PAPERSIZE'} = $drv->{'paper'};
	$general{'PRINTER_TYPE'} = $_[0]->{'rhost'} ? "REMOTE" : "LOCAL";
	$postscript{'GSDEVICE'} = $drv->{'gsdevice'};
	$postscript{'RESOLUTION'} = $drv->{'res'} ? $drv->{'res'} : "NAxNA";
	$postscript{'COLOR'} = $drv->{'bpp'} =~ /^\d+$/ ?
			"-dBitsPerPixel=$drv->{'bpp'}" : $drv->{'bpp'};
	$postscript{'PAPERSIZE'} = $drv->{'paper'};
	$postscript{'EXTRA_GS_OPTIONS'} = $drv->{'gsopts'};
	$postscript{'PS_SEND_EOF'} = uc($drv->{'eof'});
	$postscript{'NUP'} = $drv->{'nup'};
	$postscript{'RTLFTMAR'} = $drv->{'hmargin'};
	$postscript{'TOPBOTMAR'} = $drv->{'vmargin'};
	$textonly{'TEXT_SEND_EOF'} = uc($drv->{'eof'});
	$textonly{'CRLFTRANS'} = $drv->{'crlf'};
	&lock_file($sd);
	mkdir($sd, 0755);
	&unlock_file($sd);
	&write_env_file("$sd/general.cfg", \%general, 1);
	&write_env_file("$sd/postscript.cfg", \%postscript);
	&write_env_file("$sd/textonly.cfg", \%textonly);
	&unlock_file("$sd/general.cfg");
	&unlock_file("$sd/postscript.cfg");
	&unlock_file("$sd/textonly.cfg");

# create the comment
	$_[0]->{'comment'} =
		join(" ", "##PRINTTOOL3##",
			  $_[0]->{'rhost'} ? "REMOTE" : "LOCAL",
			  $drv->{'gsdevice'},
			  $drv->{'res'} ? $drv->{'res'} : "NAxNA",
			  $drv->{'paper'},
			  "{}",
			  $drv->{'rhsname'},
			  $drv->{'bpp'} ? $drv->{'bpp'} : "Default",
			  $drv->{'crlf'} ? 1 : "{}" );

# copy the standard filter into place
	&lock_file("$sd/filter");
	unlink("$sd/filter");
	&copy_source_dest("$base_driver", "$sd/filter");
	&unlock_file("$sd/filter");
	return "$sd/filter";
	}
}

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

# 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_printer'}</b></td>\n";
print "<td colspan=3><select size=5 name=gsdevice onChange='setres(0)'>\n";
local @rhs = &read_rhs_drivers();
local ($r, $select_res, $rr);
local $bpp = $drv->{'bpp'};
local $res = $drv->{'res'};
foreach $r (@rhs) {
	local @res;
	if ($r->{'res'} && $r->{'bpp'}) {
		foreach $rr (@{$r->{'res'}}) {
			push(@res, map { "$rr->[0]x$rr->[1], $_->[0] DPI, $_->[1]" } @{$r->{'bpp'}});
			}
		for($i=0; $i<@res; $i++) {
			$select_res = $i if ($res[$i] =~ /^$res, $bpp / &&
					     $drv->{'rhsname'} eq $r->{'name'});
			}
		}
	elsif ($r->{'res'}) {
		@res = map { "$_->[0]x$_->[1]" } @{$r->{'res'}};
		$select_res = &indexof($res, @res)
			if ($drv->{'rhsname'} eq $r->{'name'});
		}
	else {
		@res = map { "$_->[1], $_->[0]" } @{$r->{'bpp'}};
		for($i=0; $i<@res; $i++) {
			$select_res = $i if ($res[$i] =~ / $bpp$/ &&
					     $drv->{'rhsname'} eq $r->{'name'});
			}
		}
	printf "<option value='%s' %s>%s</option>\n",
		$r->{'name'}.";".join(";", @res),
		$drv->{'rhsname'} eq $r->{'name'} ? 'selected' : '',
		$r->{'desc'};
	}
print "</select><select size=5 name=res width=250>\n";
print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'redhat_eof'}</b></td>\n";
printf "<td><input type=radio name=eof value=yes %s> $text{'yes'}\n",
	$drv->{'eof'} eq 'yes' ? 'checked' : '';
printf "<input type=radio name=eof value=no %s> $text{'no'}</td>\n",
	$drv->{'eof'} eq 'yes' ? '' : 'checked';

print "<td><b>$text{'redhat_paper'}</b></td> <td><select name=paper>\n";
foreach $p (sort { $a cmp $b } keys %paper_sizes) {
	printf "<option value='%s' %s>%s</option>\n",
		$p, $drv->{'paper'} eq $p ? 'selected' : '',
		$paper_sizes{$p};
	}
print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'redhat_pages'}</b></td>\n";
print "<td><select name=nup>\n";
foreach $p (1, 2, 4, 8) {
	printf "<option %s>%s</option>\n",
		$drv->{'nup'} == $p ? 'selected' : '', $p;
	}
print "</select></td>\n";

print "<td><b>$text{'redhat_gsopts'}</b></td>\n";
printf "<td><input name=gsopts size=30 value='%s'></td> </tr>\n",
	$drv->{'gsopts'};

print "<tr> <td><b>$text{'redhat_hmargin'}</b></td>\n";
printf "<td><input name=hmargin size=6 value='%s'></td>\n",
	$drv->{'hmargin'} ? $drv->{'hmargin'} : 18;

print "<td><b>$text{'redhat_vmargin'}</b></td>\n";
printf "<td><input name=vmargin size=6 value='%s'></td> </tr>\n",
	$drv->{'vmargin'} ? $drv->{'vmargin'} : 18;

print "<tr> <td><b>$text{'redhat_crlf'}</b></td>\n";
printf "<td><input type=radio name=crlf value=1 %s> $text{'yes'}\n",
	$drv->{'crlf'} ? 'checked' : '';
printf "<input type=radio name=crlf value=0 %s> $text{'no'}</td>\n",
	$drv->{'crlf'} ? '' : 'checked';

print "</table></td></tr>\n";

return <<EOF;
<script>
function setres(sel)
{
var idx = document.forms[0].gsdevice.selectedIndex;
var v = new String(document.forms[0].gsdevice.options[idx].value);
var vv = v.split(";");
var res = document.forms[0].res;
res.length = 0;
for(var i=1; i<vv.length; i++) {
	res.options[i-1] = new Option(vv[i], i-1);
	}
if (res.length > 0) {
	res.options[sel].selected = true;
	}
}
setres($select_res);
</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'} };
	}
elsif ($in{'mode'} == 1) {
	$in{'gsdevice'} || &error($text{'redhat_edriver'});
	$in{'hmargin'} =~ /^\d+$/ ||
		&error($text{'redhat_ehmargin'});
	$in{'vmargin'} =~ /^\d+$/ ||
		&error($text{'redhat_evmargin'});
	local $drv = { 'mode' => 1,
		       'eof' => $in{'eof'},
		       'paper' => $in{'paper'},
		       'nup' => $in{'nup'},
		       'gsopts' => $in{'gsopts'},
		       'hmargin' => $in{'hmargin'},
		       'vmargin' => $in{'vmargin'},
		       'crlf' => $in{'crlf'} };

local ($r, $rhs);
	$in{'gsdevice'} =~ s/;.*$//;
	foreach $r (&read_rhs_drivers()) {
		$rhs = $r if ($r->{'name'} eq $in{'gsdevice'});
		}
	if ($rhs->{'res'} && $rhs->{'bpp'}) {
		defined($in{'res'}) || &error($text{'redhat_eres'});
		local $bc = @{$rhs->{'bpp'}};
		local $rs = $rhs->{'res'}->[$in{'res'} / $bc];
		local $bp = $rhs->{'bpp'}->[$in{'res'} % $bc];
		$drv->{'res'} = $rs->[0].'x'.$rs->[1];
		$drv->{'bpp'} = $bp->[0];
		}
	elsif ($rhs->{'res'}) {
		defined($in{'res'}) || &error($text{'redhat_eres'});
		local $rs = $rhs->{'res'}->[$in{'res'}];
		$drv->{'res'} = $rs->[0].'x'.$rs->[1];
		}
	elsif ($rhs->{'bpp'}) {
		defined($in{'res'}) || &error($text{'redhat_eres'});
		$drv->{'bpp'} = $rhs->{'bpp'}->[$in{'res'}]->[0];
		}
	$drv->{'rhsname'} = $rhs->{'name'};
	$drv->{'gsdevice'} = $rhs->{'gsdriver'};
	return $drv;
	}
}

sub read_rhs_drivers
{
local (@rv, $drv);
open(DRV, "<".$rhs_drivers_file);
while(<DRV>) {
	s/#.*$//g;
	s/\r|\n//g;
	if (/^\s*StartEntry:\s+(.*)/) {
		push(@rv, $drv = { 'name' => $1 });
		}
	elsif (/^\s*GSDriver:\s+(\S+)/) {
		$drv->{'gsdriver'} = $1;
		}
	elsif (/^\s*Description:\s+{(.*)}/) {
		$drv->{'desc'} = $1;
		}
	elsif (/^\s*Resolution:\s+{(\d+)}\s+{(\d+)}/) {
		push(@{$drv->{'res'}}, [ $1, $2 ]);
		}
	elsif (/^\s*BitsPerPixel:\s+{(\S+)}\s+{(.*)}/) {
		push(@{$drv->{'bpp'}}, [ $1, $2 ]);
		}
	}
close(DRV);
return @rv;
}

${this.title}

Code Editor : redhat-driver.pl