#!/usr/bin/perl open F, '|/usr/sbin/sendmail -oi -t'; chomp($ver = ); print F q(Subject: [DrakX] DrakX snapshot #), $ver, q( uploaded From: DrakX Builder Robot To: changelog@linux-mandrake.com Reply-To: install@mandrakesoft.com ); print F foreach ; ml'/>
summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-10 16:32:57 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-10 16:32:57 +0000
commitce1984b4abfed8c6bf74e48be81d7c48525e1443 (patch)
tree72848a8215527e399c1a68d1280cc6d84e1eca68 /perl-install
parent53548a5d3cea5079a55d46d98967c30a647ccf5b (diff)
downloaddrakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.gz
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.bz2
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.xz
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.zip
fixed wrong case for managing IP for remove CUPS server
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index ce14456ba..4081b9721 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -416,7 +416,7 @@ and optionally the port number."), [
_("CUPS server IP") => \$server,
_("Port") => \$port ],
complete => sub {
- unless (network::is_ip($server)) {
+ unless (!$server || network::is_ip($server)) {
$in->ask_warn('', _("IP address should be in format 1.2.3.4"));
return (1,0);
}
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-23 23:47:08 +0000