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

# suse-driver.pl
# Functions for APS print filters, as used by SUSE

@paper_sizes = ( [ 'a4', 'A4' ],
		 [ 'a4dj', 'A4 inkjet' ],
		 [ 'a3', 'A3' ],
		 [ 'letter', 'US Letter' ],
		 [ 'letterdj', 'US Letter inkjet' ],
		 [ 'note', 'Note' ],
		 [ 'legal', 'Legal' ],
		 [ 'ledger', 'Ledger' ],
		 [ 'a0', 'A0' ],
		 [ 'a1', 'A1' ],
		 [ 'a2', 'A2' ],
		 [ 'a5', 'A5' ],
		 [ 'a6', 'A6' ],
		 [ 'a7', 'A7' ],
		 [ 'a8', 'A8' ],
		 [ 'a9', 'A9' ],
		 [ 'a10', 'A10' ],
		 [ 'b0', 'B0' ],
		 [ 'b1', 'B1' ],
		 [ 'b2', 'B2' ],
		 [ 'b3', 'B3' ],
		 [ 'b4', 'B4' ],
		 [ 'b5', 'B5' ],
		 [ 'archE', 'archE' ],
		 [ 'archD', 'archD' ],
		 [ 'archC', 'archC' ],
		 [ 'archB', 'archB' ],
		 [ 'archA', 'archA' ],
		 [ 'flsa', 'flsa' ],
		 [ 'flse', 'flse' ],
		 [ 'halfletter', 'Half Letter' ],
		 [ '11x17', '11x17' ] );
$apsfilter_dir = "/var/lib/apsfilter/bin";
$apsfilter_prog = "/var/lib/apsfilter/apsfilter";
$apsfilter_config = "/var/lib/apsfilter/template/apsfilterrc.gs_device_name";
$apsfilter_base = "/etc/apsfilterrc";
$driver_dir = "/etc/gs.upp";
$webmin_windows_driver = 1;

open(DRIVERS, "<$module_root_directory/drivers");
while(<DRIVERS>) {
	if (/^(\S+)\s+(.*)/) {
		$driver{$1} = $2 if (!$driver{$1});
		}
	}
close(DRIVERS);
open(STP, "<stp");
while(<STP>) {
	if (/^(\S+)\s+(.*)/) {
		$stp{$1} = $2 if (!$stp{$1});
		}
	}
close(STP);
foreach $u (&list_uniprint()) {
	$u->[1] =~ s/,.*$//;
	$driver{"$u->[0].upp"} = $u->[1];
	}

# is_windows_driver(path, %driver)
# Returns a driver structure if some path is a windows driver
sub is_windows_driver
{
return &is_webmin_windows_driver(@_);
}

# is_driver(path, &printer)
# Returns a structure containing the details of a driver
sub is_driver
{
if (!$_[0]) {
	return { 'mode' => 0,
		 'desc' => "$text{'suse_none'}" };
	}
elsif ($_[0] =~ /$apsfilter_dir\/([^-]+)-([^-]+)-([^-]+)-([^-]+)-([^-]+)$/) {
	# Looks like an APS driver from suse (old style)
	local $rv =  {	'mode' => 1,
			'device' => $1,
		 	'paper' => $2,
		 	'method' => $3,
			'colour' => $4,
			'res' => $5 };
	local $desc = $driver{$rv->{'device'}} ? $driver{$rv->{'device'}} :
		      $rv->{'device'} =~ /^PS_/ ? "Postscript"
						: $rv->{'device'};
	$rv->{'desc'} = $rv->{'res'} ? "$desc ($rv->{'res'} DPI)" : $desc;
	return $rv;
	}
#elsif ($_[0] =~ /$apsfilter_dir\/([^-]+)--([^-]+)-([^-]+)$/ &&
#       -r "$driver_dir/$1") {
#	# Looks like a new-style APS suse driver
#	local $rv = { 'mode' => 3,
#		      'method' => $2 };
#	open(GS, "$driver_dir/$1");
#	while(<GS>) {
#		s/\r|\n//g;
#		if (/^-sDEVICE=(\S+)/) { $rv->{'device'} = $1; }
#		elsif (/^-sPAPERSIZE=(\S+)/) { $rv->{'paper'} = $1; }
#		elsif (/^-sCOLOR=(\S+)/) { $rv->{'colour'} = $1; }
#		elsif (/^-r(\S+)/) { $rv->{'res'} = $1; }
#		elsif (/^-supModel="(.*)"/) { $rv->{'desc'} = $1; }
#		elsif (/^-sModel="(.*)"/) { $rv->{'model'} = $1; }
#		elsif (/^\@(\S+\.upp)/) { $rv->{'device'} = $1; }
#		else { push(@{$rv->{'extra'}}, $_); }
#		}
#	close(GS);
#	return $rv;
#	}
elsif ($_[0] =~ /$apsfilter_dir\/([^-]+)-([^-]+)-([^-]+)$/) {
	# Null APS driver?
	return { 'mode' => 0,
		 'desc' => 'None' };
	}
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
{
return &create_webmin_windows_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) {
	return undef;
	}
elsif ($drv->{'mode'} == 2) {
	return $drv->{'file'};
	}
else {
	local $device;
	if ($drv->{'device'} eq 'ps') {
		$device = "PS_$drv->{'res'}dpi";
		}
	else {
		$device = $drv->{'device'};
		}
	local $aps = "$apsfilter_dir/$device-$drv->{'paper'}-".
		     "$drv->{'method'}-$drv->{'colour'}-$drv->{'res'}";
	&lock_file($aps);
	symlink($apsfilter_prog, $aps);
	&unlock_file($aps);
	if (!-r "$apsfilter_base.$device") {
		&lock_file("$apsfilter_base.$device");
		local $conf = &read_file_contents($apsfilter_config);
		$conf =~ s/<gs_device_name>/$device/g;
		&open_tempfile(CONF, ">$apsfilter_base.$device");
		&print_tempfile(CONF, $conf);
		&close_tempfile(CONF);
		&unlock_file("$apsfilter_base.$device");
		}
	return $aps;
	}
}

# delete_driver(name)
sub delete_driver
{
}

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

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

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

if ($drv->{'mode'} == 2 || 1) {
	# Show input for old-style suse printer
	printf "<tr> <td valign=top><input type=radio name=mode value=1 %s>\n",
		$drv->{'mode'} == 1 ? "checked" : "";
	print "$text{'suse_driver'}</td> <td><table width=100%>";

print "<tr> <td valign=top><b>$text{'suse_printer'}</b></td>\n";
	print "<td colspan=3><select size=10 name=device>\n";
	printf "<option value=ps %s>Postscript</option>\n",
		$drv->{'device'} =~ /^PS_/ ? 'selected' : '';
	$found++ if ($drv->{'device'} =~ /^PS_/);
	foreach $d (&list_uniprint()) {
		local $u = "$d->[0].upp";
		printf "<option value=%s %s>%s</option>\n",
			$u, $drv->{'device'} eq $u ? 'selected' : '', $d->[1];
		$found++ if ($drv->{'device'} eq $u);
		}
	local $out = &backquote_command("$config{'gs_path'} -help 2>&1", 1);
	$out =~ /Available devices:\n((\s+.*\n)+)/i;
	foreach $d (split(/\s+/, $1)) {
		if ($driver{$d}) {
			printf "<option value=%s %s>%s</option>\n",
				$d, $drv->{'device'} eq $d ? 'selected' : '',
				$driver{$d};
			$found++ if ($drv->{'device'} eq $d);
			}
		}
	print "<option selected value=$drv->{'device'}>$drv->{'device'}</option>\n"
		if (!$found && $drv->{'device'});
	print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'suse_res'}</b></td>\n";
	print "<td><input name=res size=8 value='$drv->{'res'}'></td>\n";

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

print "<tr> <td><b>$text{'suse_paper'}</b></td>\n";
	print "<td><select name=paper>\n";
	foreach $p (@paper_sizes) {
		printf "<option value=%s %s>%s</option>\n",
			$p->[0], $drv->{'paper'} eq $p->[0] ? 'selected' : '',
			$p->[1];
		}
	print "</select></td>\n";

print "<td><b>$text{'suse_method'}</b></td>\n";
	printf "<td><input type=radio name=method value=auto %s> %s\n",
		$drv->{'method'} eq 'ascii' ? '' : 'checked',
		$text{'suse_auto'};
	printf "<input type=radio name=method value=ascii %s> %s</td> </tr>\n",
		$drv->{'method'} eq 'ascii' ? 'checked' : '',
		$text{'suse_ascii'};

print "</table></td> </tr>\n";
	}
else {
	# Show input for new-style suse printer (NOT DONE YET!)
	printf "<tr> <td valign=top><input type=radio name=mode value=3 %s>\n",
		$drv->{'mode'} == 3 ? "checked" : "";
	print "$text{'suse_yast2'}</td> <td><table width=100%>";

print "<tr> <td valign=top><b>$text{'suse_printer'}</b></td>\n";
	print "<td colspan=3><select size=10 name=device>\n";
	printf "<option value=ps %s>Postscript</option>\n",
		$drv->{'device'} eq 'PS' ? 'selected' : '';
	$found++ if ($drv->{'device'} eq 'PS');
	local $out = &backquote_command("$config{'gs_path'} -help 2>&1", 1);
	$out =~ /Available devices:\n((\s+.*\n)+)/i;
	foreach $d (split(/\s+/, $1)) {
		if ($d ne 'stp' && $driver{$d}) {
			printf "<option value=%s %s>%s</option>\n",
				$d, $drv->{'device'} eq $d ? 'selected' : '',
				$driver{$d};
			$found++ if ($drv->{'device'} eq $d);
			}
		}
	foreach $d (&list_uniprint()) {
		local $u = "$d->[0].upp";
		printf "<option value=%s %s>%s</option>\n",
			$u, $drv->{'device'} eq $u ? 'selected' : '', $d->[1];
		$found++ if ($drv->{'device'} eq $u);
		}
	foreach $s (sort { $a cmp $b } keys %stp) {
		printf "<option value=%s.stp %s>%s</option>\n",
			$s, $drv->{'device'} eq 'stp' &&
			    $drv->{'model'} eq $s ? 'selected' : '', $stp{$s};
		$found++ if ($drv->{'device'} eq 'stp' &&
			     $drv->{'model'} eq $s);
		}
	print "<option selected value=$drv->{'device'}>$drv->{'device'}</option>\n"
		if (!$found && $drv->{'device'});
	print "</select></td> </tr>\n";

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

print "<td><b>$text{'suse_paper'}</b></td>\n";
	print "<td><select name=paper>\n";
	foreach $p (@paper_sizes) {
		printf "<option value=%s %s>%s</option>\n",
			$p->[0], $drv->{'paper'} eq $p->[0] ? 'selected' : '',
			$p->[1];
		}
	print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'suse_res'}</b></td>\n";
	printf "<td><input type=radio name=res_def value=1 %s> %s\n",
		$drv->{'res'} ? '' : 'checked', $text{'suse_auto'};
	printf "<input type=radio name=res_def value=0 %s>\n",
		$drv->{'res'} ? 'checked' : '';
	print "<input name=res size=8 value='$drv->{'res'}'></td>\n";

print "<td><b>$text{'suse_method'}</b></td>\n";
	print "<td><select name=method>\n";
	foreach $m ('auto', 'ascii', 'raw') {
		printf "<option value=%s %s>%s</option>\n",
			$m, $drv->{'method'} eq $m ? 'selected' : '',
			$text{"suse_$m"};
		}
	print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'suse_extra'}</b></td>\n";
	print "<td colspan=3><input name=extra size=50 value='",
	      join(" ", @{$drv->{'extra'}}),"'></td> </tr>\n";

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

# 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('suse_eprog', $in{'iface'}));
	return { 'mode' => 2,
		 'file' => $in{'iface'} };
	}
elsif ($in{'mode'} == 3) {
	# New suse printer (NOT DONE YET!)
	# All the other odd files created by yast2 need to be supported
	$in{'device'} || &error($text{'suse_edriver'});
	$in{'res_def'} || $in{'res'} =~ /^\d+$/ ||
		$in{'res'} =~ /^\d+x\d+$/ || &error($text{'suse_eres'});
	}
elsif ($in{'mode'} == 1) {
	# Old-style suse printer
	$in{'device'} || &error($text{'suse_edriver'});
	$in{'res'} =~ /^\d+$/ || &error(&text('suse_eres', $in{'res'}));
	return { 'mode' => 1,
		 'device' => $in{'device'},
		 'paper' => $in{'paper'},
		 'method' => $in{'method'},
		 'colour' => $in{'colour'},
		 'res' => $in{'res'} };
	}
}

${this.title}

Code Editor : suse-driver.pl