Changeset 31 for devel/dploy-dhcp

Timestamp:

01/17/08 11:32:08 (4 years ago)

Author:

bruno

Message:

Adds install script for dploy-dhcp
Split useless code from dploy-add2dhcp

Location:

devel/dploy-dhcp

Files:

• bin/dploy-add2dhcp (modified) (5 diffs)
• install.sh (added)

devel/dploy-dhcp/bin/dploy-add2dhcp

@@ -1 +1 @@
 #!/usr/bin/perl -w
+#
+# $Id$
+# 
+# (c) Bruno Cornec, HP, provided under the GPL v3
+#
 
 use strict;
@@ -10 +15 @@
 # as part of the appropriate range
 # does not support multiple ranges yet
+# This is done at install time by the install script
+# Also a dploy account should exist to run that script
+# and be referenced in sudo. Also done by install script
 #
-my $pxe="/tftpboot/pxelinux.cfg";
-# Where to find the LinuxCOE created ISO
-my $linuxcoe="/var/ftp/html/scratch_monkey/systemdesigner";
-# temporary mountpoint
-my $mnt="/tmp/mnt-linuxcoe";
 
 my $mac=$ARGV[0];
 
 if ($mac !~ /^(?:[[:xdigit:]]{1,2}[-:]){5}[[:xdigit:]]{1,2}$/) {
-    print "Syntax: add2pxe MAC ip url-to-LinuxCOE-iso\n";
+    print "Syntax: dploy-add2dhcp MAC ip\n";
     exit(-1);
 }
+
+# only lowercase for homogeneity
+$mac =~ tr/A-Z/a-z/;
 
 my $ip=$ARGV[1];
 
 if ($ip !~ /^([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])$/) {
-    print "Syntax: add2pxe mac IP url-to-LinuxCOE-iso\n";
+    print "Syntax: dploy-add2dhcp mac IP\n";
     exit(-1);
 }
-
-my $url=$ARGV[2];
-
-if ($url !~ /(\w+):\/\/([^\/:]+)(:\d+)?\/(.*)/) {
-    print "Syntax: add2pxe mac ip URL-TO-LinuxCOE-ISO\n";
-    exit(-1);
-}
-
+#
 # Reads existing DHCP conf if any
 #
-
-# newmac replaces : separator with - and only lowercase for pxelinux
-my $newmac = $mac;
-$newmac =~ tr/A-Z/a-z/;
-$newmac =~ s/:/-/g;
 
 my $foundit = 0;
@@ -51 +45 @@
 if (open(DHCP,$dhcp)) {
     while (<DHCP>) {
-        if (/host host-$newmac \{/ .. /}\n/) {
+        if (/host host-$mac \{/ .. /}\n/) {
             # We need to replace the old content with the new one
             print "Skip $_";
@@ -70 +64 @@
     #
     print DHCPNEW "\n";
-    print DHCPNEW "host host-$newmac {\n";
+    print DHCPNEW "host host-$mac {\n";
     print DHCPNEW " hardware ethernet $mac;\n";
     print DHCPNEW " fixed-address $ip;\n";
@@ -78 +72 @@
 move("$dhcp.new",$dhcp);
 
+#
 # Relaunch DHCP server
+#
 system("sudo /etc/init.d/dhcpd restart");
-
-# Get the ID given by LinuxCOE to prepare kernel/initrd/ks
-my $iso=basename($url);
-my $id=$iso;
-$id =~ s/img([0-9]+)\.iso/$1/;
-my $k="k-$id";
-my $i="i-$id";
-my $ks=$url;
-$ks =~ s/img([0-9]+)\.iso/ks$1.cfg/;
-
-# Updates PXElinux
-open(PXE, "> $pxe/01-$newmac") || die "Unable to open $pxe/01-$newmac for writing";
-print PXE << "EOF";
-default local
-prompt 1
-timeout 600
-display msg/linuxcoe.msg
-allowoptions 1
-
-label local
-  localboot 0
-
-label linuxcoe
-  kernel linuxcoe/$k
-  append ksdevice=eth0 ks=$ks initrd=linuxcoe/$i text
-EOF
-close(PXE);
-
-# mount the ISO to get kernel and initrd
-mkdir "$mnt",0755;
-system("sudo /bin/mount -o loop $linuxcoe/$iso $mnt");
-copy("$mnt/isolinux/vmlinuz","$pxe/../linuxcoe/$k") or die "Copy failed: $!";
-copy("$mnt/isolinux/initrd.img","$pxe/../linuxcoe/$i") or die "Copy failed: $!";
-system("sudo /bin/umount $mnt");
-
-# Based on Version 2.4  27-Sep-1996  Charles Bailey  bailey@genetics.upenn.edu
-# in Basename.pm
-
-sub basename {
-
-my($fullname) = shift;
-my($dirpath,$basename);
-($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);
-
-return($basename);
-}
-