# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/sbin/snappd/scripts/DoDHCPSetup.pl 1.5 
#  
# Licensed Materials - Property of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2000,2002 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
#
#!/usr/bin/perl -T
# @(#)34        1.5  src/bos/usr/sbin/snappd/scripts/DoDHCPSetup.pl, snapp, bos720 5/31/02 07:51:10

#----------------------------------------------------------
#-------- Name DoDHCPSetup.pl                              
#----------------------------------------------------------
#-------- This page is used to execute the command to 	 
#-------- configure the selected interface, using DHCP
#----------------------------------------------------------
#-------- Links to Pages:             	
#----------------------------------------------------------

#----------------------------------------------------------
# Get the user entered data from the command line
#
# $interface = interface being used
# $restartFlag = flag stating whether or not to restart
#                now (value is 2) or now and restart 
#                (value is 4).
# $numOfOptions = the number of options being passed in to
#                 this script. Options must be in the form:
#                     Option# <option value>
#                 Example: Option12 <hostname>
# *Note- Options are optional. Currently the only option 
#        available to users is option 12.
#----------------------------------------------------------
$failed = FALSE;

$numOfArgs = $#ARGV + 1;
if ($numOfArgs >= 2)
{
   $restartFlag = @ARGV[0];
   $interface = @ARGV[1];
   $output = "\ninterface $interface\n{";
   if ($numOfArgs > 2)
   {
      $numOfOptions = ($numOfArgs - 2)/2;
      $i = 0;
      $j = $numOfOptions;
      $ArgPointer = 2;
      while($j > 0)	
      {
	   $temp = @ARGV[$ArgPointer];
           $temp =~ s/Option//g; 
           $output = "${output}\n option $temp @ARGV[$ArgPointer + 1]";
	   $j--;
	   $i++;
	   $ArgPointer +=2;
      }
   }
   $output = "${output}\n}\n";

   #-------------------------------------------------------------
   # Remove the interface
   #-------------------------------------------------------------
   $eat = 0;
   $workingif = "";

   unlink (</var/snapp/dhcpcd.ini.*>);

   open (DHCP_INPUT_FILEHANDLE, "/etc/dhcpcd.ini");
   open (DHCP_OUTPUT_FILEHANDLE, ">>/var/snapp/dhcpcd.ini.$$");
   $line = "";
   until (eof DHCP_INPUT_FILEHANDLE)
   {
      $line = readline (*DHCP_INPUT_FILEHANDLE);
      $line_interface = $line;
      $line_interface =~ s/^interface*//;
      if ( ( "$eat" == 0 ) && ( "$line_interface" ne "$line" ) )
      {
          $workingif = "$line_interface";
          $workingif =~ s/\W*//g;
      }
      if (("$eat" != 0) ||
         (("$workingif" ne "") && ("$interface" eq "$workingif")))
      {
           if ( "$eat" == 0 )
           {
                $eat = 1;
           }
           else
           {
                if ( "$eat" == 1 )
                {
                    $line =~ s/\n*//g;
                    if ( "$line" eq "{" )
                    {
                         $eat = 2;
                    }
                    else
                    {
                         $eat = 0;
                         $workingif = "";
                         printf DHCP_OUTPUT_FILEHANDLE "$line\n";
                    }
                }
                else
                {
                    $line =~ s/\n*//g;
                    if ( "$eat" == 2 )
                    {
                        if ( "$line" eq "}" )
                        {
                             $eat = 0;
                             $workingif = "";
                        }
                    }
                }
           }
      }
      else
      {
           printf DHCP_OUTPUT_FILEHANDLE "$line";
      }
   } # end of until statement
   
   close (DHCP_INPUT_FILEHANDLE);
   close (DHCP_OUTPUT_FILEHANDLE);

   use File::Copy;
   copy ("/etc/dhcpcd.ini", "/etc/dhcpcd.ini.bak");
   copy ("/var/snapp/dhcpcd.ini.$$", "/etc/dhcpcd.ini");
   
   #-------------------------------------------------------------
   # Add the interface back
   #-------------------------------------------------------------
   open (DHCP_OUTPUT_FILEHANDLE, ">>/etc/dhcpcd.ini");
   printf DHCP_OUTPUT_FILEHANDLE "$output";
   close (DHCP_OUTPUT_FILEHANDLE);

   #-------------------------------------------------------------
   # Start the daemon NOW
   #-------------------------------------------------------------
   if ( "$restartFlag" == 2 )
   {
      #-------------------------------------------------------------
      # Check to see if the dhcpcd daemon is already running
      #-------------------------------------------------------------
      system('ps -ef | grep dhcpcd > /var/snapp/DoDHCPSetup.output');
      $daemon_running = system('cat /var/snapp/DoDHCPSetup.output 2>/dev/null| grep /usr/sbin/dhcpcd >/dev/null');
      $daemon_running = $daemon_running >> 8;
      system('/bin/rm /var/snapp/DoDHCPSetup.output >/dev/null 2>/dev/null');

      #-------------------------------------------------------------
      # stop the dhcpcd daemon, if it is already running
      #-------------------------------------------------------------
      if ($daemon_running == 0)
      {
         $result = system('refresh -s dhcpcd >/dev/null 2>/dev/null');
         if ($result != 0)
         {
            $failed = TRUE;
            $msg = "Unable to stop the DHCP daemon";
         }
      }

      else
      {
         #-------------------------------------------------------------
         # start the dhcpcd daemon
         #-------------------------------------------------------------
         $result = system('startsrc -s dhcpcd >/dev/null 2>/dev/null');
         if ($result != 0)
         {
            $failed = TRUE;
            $msg = "Unable to start DHCP daemon";
         }
      }
   }
   else
   {
      #-------------------------------------------------------------
      # Start the daemon NOW and at system restart
      #-------------------------------------------------------------
      if ("$restartFlag" == 4 )
      {
         #-------------------------------------------------------------
         # start the dhcpcd daemon and set it up for starting whenever
         # the system is restarted.
         #-------------------------------------------------------------
         $result = system('/usr/sbin/chrctcp -S -a dhcpcd >/dev/null 2>/dev/null');
         if ($result != 0)
         {
             $failed = TRUE;
             $msg = "Unable to start DHCP daemon";
         }
      }

      #-------------------------------------------------------------
      # Received an unsupported restart flag.
      #-------------------------------------------------------------
      else
      {
           $failed = TRUE;
           $msg = "Received an unsupported flag";
      }
   }
}
#-------------------------------------------------------------
# Script was executed with an incorrect number of parameters
#-------------------------------------------------------------
else
{
   $failed = TRUE;
   $msg = "Usage error";
}
   
#-------------------------------------------------------------
# Generate XML page. 
#-------------------------------------------------------------
open(OUTFILE,">/var/snapp/snapp.fres.tmp");

if ($failed eq FALSE)
{
   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE> DHCP Setup Complete:</TITLE>
   <W>100</W>
   <H>15</H>
   <X>48</X>
   <Y>30</Y>
   <DY>20</DY>
   <LABEL>Result: SUCCESS</LABEL>
   <Y>130</Y>
   <X>65</X>
   <W>25</W>
   <BUTTON Name="IPMain.pl">OK</BUTTON>
   </PAGE>
EOXML
}
else
{
   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE> DHCP Setup Failed:</TITLE>
   <W>150</W>
   <H>15</H>
   <X>40</X>
   <Y>30</Y>
   <DY>20</DY>
   <X>20</X>
   <LABEL>Result: FAILURE</LABEL>
   <DY>20</DY>
   <LABEL>$msg</LABEL>
   <Y>130</Y>
   <X>65</X>
   <W>25</W>
   <BUTTON Name="IPConfig.pl">OK</BUTTON>
   </PAGE>
EOXML
}

close(OUTFILE);
system("cp /var/snapp/snapp.fres.tmp /var/snapp/snapp.fres");