summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-02-18 00:49:54 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-02-18 00:49:54 +0000
commit57d2483bb80f36992fa724c8ad20f64abeea93be (patch)
treeee591441a22eb5c1c98f4a4ad5afada2336b1a01 /perl-install
parentf0bcda57c0cd9f923a90a41bdd9d25f80101af06 (diff)
downloaddrakx-backup-do-not-use-57d2483bb80f36992fa724c8ad20f64abeea93be.tar
drakx-backup-do-not-use-57d2483bb80f36992fa724c8ad20f64abeea93be.tar.gz
drakx-backup-do-not-use-57d2483bb80f36992fa724c8ad20f64abeea93be.tar.bz2
drakx-backup-do-not-use-57d2483bb80f36992fa724c8ad20f64abeea93be.tar.xz
drakx-backup-do-not-use-57d2483bb80f36992fa724c8ad20f64abeea93be.zip
- "BrowsePoll" support in the CUPS configuration dialog.
- Fixes on error message windows in the dialog for printer sharing destinations.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/main.pm46
-rw-r--r--perl-install/printer/printerdrake.pm182
2 files changed, 225 insertions, 3 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index df75d892c..d2ca76d10 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1062,7 +1062,7 @@ sub makesharehostlist {
$sharehosthash{$host} = N("Local network(s)");
} elsif ($host =~ /\@IF\((.*)\)/i) {
$sharehosthash{$host} = N("Interface \"%s\"", $1);
- } elsif ($host =~ /(\/|^\*|\*$|^\.)/i) {
+ } elsif ($host =~ /(\/|^\*|\*$|^\.)/) {
$sharehosthash{$host} = N("Network %s", $host);
} else {
$sharehosthash{$host} = N("Host %s", $host);
@@ -1076,6 +1076,34 @@ sub makesharehostlist {
invhash => \%sharehosthash_inv };
}
+sub makebrowsepolllist {
+
+ # Human-readable strings for hosts from which the print queues are
+ # polled
+
+ my ($printer) = @_;
+
+ my @browsepolllist;
+ my %browsepollhash;
+ for my $host (@{$printer->{cupsconfig}{BrowsePoll}}) {
+ my ($ip, $port);
+ if ($host =~ /^([^:]+):([^:]+)$/) {
+ $ip = $1;
+ $port = $2;
+ } else {
+ $ip = $host;
+ $port = '631';
+ }
+ $browsepollhash{$host} = N("%s (Port %s)", $ip, $port);
+ push(@browsepolllist, $browsepollhash{$host});
+ }
+ my %browsepollhash_inv = reverse %browsepollhash;
+
+ return { list => \@browsepolllist,
+ hash => \%browsepollhash,
+ invhash => \%browsepollhash_inv };
+}
+
sub is_network_ip {
# Determine whwther the given string is a valid network IP
@@ -1129,6 +1157,11 @@ sub read_cups_config {
handle_configs::read_unique_directive($printer->{cupsconfig}{cupsd_conf},
'BrowseOrder', 'deny,allow');
+ # Keyword "BrowsePoll"
+ @{$printer->{cupsconfig}{BrowsePoll}} =
+ handle_configs::read_directives($printer->{cupsconfig}{cupsd_conf},
+ 'BrowsePoll');
+
# Root location
@{$printer->{cupsconfig}{rootlocation}} =
read_location($printer->{cupsconfig}{cupsd_conf}, '/');
@@ -1256,6 +1289,17 @@ sub write_cups_config {
}
}
+ # Set "BrowsePoll" lines
+ if ($#{$printer->{cupsconfig}{BrowsePoll}} >= 0) {
+ handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
+ 'BrowsePoll ' .
+ join ("\nBrowsePoll ",
+ @{$printer->{cupsconfig}{BrowsePoll}}));
+ } else {
+ handle_configs::comment_directive($printer->{cupsconfig}{cupsd_conf},
+ 'BrowsePoll');
+ }
+
}
sub clean_cups_config {
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index efa85334c..090316792 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -71,6 +71,7 @@ sub config_cups {
my $maindone;
while (!$maindone) {
my $sharehosts = printer::main::makesharehostlist($printer);
+ my $browsepoll = printer::main::makebrowsepolllist($printer);
my $buttonclicked;
#- Show dialog
if ($in->ask_from_
@@ -102,6 +103,18 @@ sub config_cups {
(!$printer->{cupsconfig}{localprintersshared} &&
!$printer->{cupsconfig}{remotebroadcastsaccepted});
} },
+ { val => N("Additional CUPS servers: ") .
+ ($#{$browsepoll->{list}} >= 0 ?
+ ($#{$browsepoll->{list}} > 1 ?
+ join(", ", @{$browsepoll->{list}}[0,1]) . " ..." :
+ join(", ", @{$browsepoll->{list}})) :
+ N("None")),
+ type => 'button',
+ help => N("To get access to printers on remote CUPS servers in your local network you only need to turn on the \"Automatically find available printers on remote machines\" option; the CUPS servers inform your machine automatically about their printers. All printers currently known to your machine are listed in the \"Remote printers\" section in the main window of Printerdrake. If your CUPS server(s) is/are not in your local network, you have to enter the IP address(es) and optionally the port number(s) here to get the printer information from the server(s)."),
+ clicked_may_quit => sub {
+ $buttonclicked = "browsepoll";
+ 1;
+ } },
if_($::expert,
{ text => N("Automatic correction of CUPS configuration"),
type => 'bool',
@@ -209,6 +222,13 @@ If some of these measures lead to problems for you, turn this option off, but th
complete => sub {
if (($hostchoice eq
N("IP address of host/network:")) &&
+ $ip =~ /^\s*$/) {
+
+ $in->ask_warn('', N("Host/network IP address missing."));
+ return (1,1);
+ }
+ if (($hostchoice eq
+ N("IP address of host/network:")) &&
!printer::main::is_network_ip($ip)) {
$in->ask_warn('',
@@ -220,7 +240,7 @@ N("10.1.*\n") .
N("192.168.100.0/24\n") .
N("192.168.100.0/255.255.255.0\n")
);
- return (1,0);
+ return (1,1);
}
if ($hostchoice eq $menu[0]) {
$address = "\@LOCAL";
@@ -238,7 +258,12 @@ N("192.168.100.0/255.255.255.0\n")
@{$printer->{cupsconfig}{clientnetworks}})) {
$in->ask_warn('',
N("This host/network is already in the list, it cannot be added again.\n"));
- return (1,1);
+ if ($hostchoice eq
+ N("IP address of host/network:")) {
+ return (1,1);
+ } else {
+ return (1,0);
+ }
}
return 0;
},
@@ -293,6 +318,159 @@ N("192.168.100.0/255.255.255.0\n")
$printer->{cupsconfig}{localprintersshared} = 0;
$printer->{cupsconfig}{remotebroadcastsaccepted} = 0;
}
+ } elsif ($buttonclicked eq "browsepoll") {
+ # Show dialog to add hosts to "BrowsePoll" from
+ my $subdone = 0;
+ my $choice;
+ while (!$subdone) {
+ # Entry should be edited when double-clicked
+ $buttonclicked = "edit";
+ $in->ask_from_
+ (
+ { title => N("Accessing printers on remote CUPS servers"),
+ messages => N("Add here the CUPS servers whose printers you want to use. You only need to do this if the servers do not broadcast their printer information into the local network."),
+ ok => "",
+ cancel => "",
+ },
+ # List the hosts
+ [ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => $browsepoll->{list} },
+ { val => N("Add server"),
+ type => 'button',
+ clicked_may_quit => sub {
+ $buttonclicked = "add";
+ 1;
+ } },
+ { val => N("Edit selected server"),
+ type => 'button',
+ clicked_may_quit => sub {
+ $buttonclicked = "edit";
+ 1;
+ },
+ disabled => sub {
+ return ($#{$browsepoll->{list}} < 0);
+ } },
+ { val => N("Remove selected server"),
+ type => 'button',
+ clicked_may_quit => sub {
+ $buttonclicked = "remove";
+ 1;
+ },
+ disabled => sub {
+ return ($#{$browsepoll->{list}} < 0);
+ } },
+ { val => N("Done"),
+ type => 'button',
+ clicked_may_quit => sub {
+ $buttonclicked = "";
+ $subdone = 1;
+ 1;
+ } },
+ ]
+ );
+ if ($buttonclicked eq "add" ||
+ $buttonclicked eq "edit") {
+ my ($ip, $port);
+ if ($buttonclicked eq "add") {
+ # Use default port
+ $port = '631';
+ } else {
+ if ($browsepoll->{invhash}{$choice} =~
+ /^([^:]+):([^:]+)$/) {
+ # Entry to edit has IP and port
+ $ip = $1;
+ $port = $2;
+ } else {
+ # Entry is only an IP, no port, so take
+ # the default port 631
+ $ip = $browsepoll->{invhash}{$choice};
+ $port = '631';
+ }
+ }
+ # Show the dialog
+ my $address;
+ my $oldaddress =
+ ($buttonclicked eq "edit" ?
+ $browsepoll->{invhash}{$choice} : "");
+ if ($in->ask_from_
+ (
+ { title => N("Accessing printers on remote CUPS servers"),
+ messages => N("Enter IP address and port of the host whose printers you want to use."),
+ callbacks => {
+ complete => sub {
+ if ($ip =~ /^\s*$/) {
+ $in->ask_warn('', N("Server IP missing!"));
+ return (1,0);
+ }
+ if ($ip !~
+ /^\s*(\d+\.\d+\.\d+\.\d+)\s*$/) {
+ $in->ask_warn('',
+N("The entered IP is not correct.\n") .
+N("Examples for correct IPs:\n") .
+N("192.168.100.194\n") .
+N("10.0.0.2\n")
+);
+ return (1,0);
+ } else {
+ $ip = $1;
+ }
+ if ($port !~ /^\s*(\d+)\s*$/) {
+ $in->ask_warn('', N("The port number should be an integer!"));
+ return (1,1);
+ } else {
+ $port = $1;
+ }
+ $address = "$ip:$port";
+ # Check whether item is duplicate
+ if ($address ne $oldaddress &&
+ member($address,
+ @{$printer->{cupsconfig}{BrowsePoll}})) {
+ $in->ask_warn('',
+ N("This server is already in the list, it cannot be added again.\n"));
+ return (1,0);
+ }
+ return 0;
+ },
+ },
+ },
+ # List the host types
+ [ { val => \$ip,
+ label => N("IP address") },
+ { val => \$port,
+ label => N("Port") },
+ ],
+ )) {
+ # OK was clicked, insert new item into the list
+ if ($buttonclicked eq "add") {
+ push(@{$printer->{cupsconfig}{BrowsePoll}},
+ $address);
+ } else {
+ @{$printer->{cupsconfig}{BrowsePoll}} =
+ map {($_ eq
+ $browsepoll->{invhash}{$choice} ?
+ $address : $_)}
+ @{$printer->{cupsconfig}{BrowsePoll}};
+ }
+ # Refresh list of hosts
+ $browsepoll =
+ printer::main::makebrowsepolllist($printer);
+ # Position the list cursor on the new/modified
+ # item
+ $choice = $browsepoll->{hash}{$address};
+ }
+ } elsif ($buttonclicked eq "remove") {
+ @{$printer->{cupsconfig}{BrowsePoll}} =
+ grep {$_ ne $browsepoll->{invhash}{$choice}}
+ @{$printer->{cupsconfig}{BrowsePoll}};
+ # Refresh list of hosts
+ $browsepoll =
+ printer::main::makebrowsepolllist($printer);
+ }
+ }
} else {
# We have clicked "OK"
$retvalue = 1;