Changeset 58 for devel/dploy-dhcp

Timestamp:

06/02/08 18:59:34 (4 years ago)

Author:

bruno

Message:

Compare done now with "ne" for strings

File:

• devel/dploy-dhcp/bin/dploy-add2dhcp (modified) (2 diffs)

devel/dploy-dhcp/bin/dploy-add2dhcp

@@ -93 +93 @@
     dploy_check_ip($opts{'gw'},"Wrong IP address for GW server");
     my $gwobj = new Net::Netmask($opts{'gw'},$opts{'mask'});
-    if (($iprange != $gwobj->base()) || ($cidr != $gwobj->bits())) {
+    if (($iprange ne $gwobj->base()) || ($cidr ne $gwobj->bits())) {
         print "Gateway is not in the correct subnet \n";
         pb_syntax(-1,0);
@@ -135 +135 @@
 
 if ($foundit == 0) {
-    open(DHCPMAIN, ">>$dhcpmain") || die "Unable to open $dhcpmain: $!";
+    open(DHCPMAIN, ">>$dhcpmain") || die "Unable to write $dhcpmain: $!";
     print DHCPMAIN "include \"$dhcpsub\";\n";
     close(DHCPMAIN);