mp-form1.pl

Etherboot 是一个用来创建ROM images的软件包

#!/usr/bin/perl
# Magic Packet for the Web
# Perl version by [e-mail] after DOS/Windows C version posted by
# [e-mail] on the Netboot mailing list
# modified to work with web by [e-mail]
# Released under GNU Public License
#
require "cgi-lib.pl";
use Socket;

$ver = 'v0.32 © gk 2000-05-20 15:00:00';

# Defaults - Modify to point to the location of your maclist
$www = "$ENV{'DOCUMENT_ROOT'}/perldemo";
$maclist = "$www/wakeup.txt";
#$scrname = $ENV{'SCRIPT_NAME'};
$scrname = $0;

MAIN:
{
  # Read in all the variables set by the form
  if (&ReadParse(*input)) {
	&ProcessForm;
  } else {
	&PrintForm;
  }
}

sub ProcessForm {
  # Print the header
  print &PrintHeader;
  # If defined new mac save it
  if (defined($input{'mac'})) {
	print &HtmlTop ("Result of adding an entry to the maclist");
	print '<HR><H3><TT>';
	&add_entry;
	print '</TT></H3><HR>';
	print '<FORM method="POST"><input type=submit value="ok"></FORM>';
  } else {
	# send magic packets to selected macs
	print &HtmlTop ("Result of sending magic packets to multiple PCs");
	print '<HR><H3><TT>';
	if (defined($input{'all'})) {
		&process_file(S);
	} else {
		foreach $x (keys %input) {
  			&send_broadcast_packet($input{$x});
		}
	}
  print '</TT></H3><HR>';
  print '<form><input type=button value="back" onClick="history.back()"></FORM>';
  }
  # Close the document cleanly.
  print &HtmlBot;
  exit;
}

sub PrintForm {
  print &PrintHeader;
  print &HtmlTop ("Form for sending magic packets to multiple PCs");
  # Print out the body of the form
  print <<ENDOFTEXT;
<HR>
<FORM method="POST">
<H2> Select the destination mac addresses: </H2>
<TABLE BORDER COLS=3 WIDTH="80%">
<TR>
<TD>
<CENTER><B><FONT SIZE="+1">MAC address</FONT></B></CENTER>
</TD>
<TD>
<CENTER><B><FONT SIZE="+1">Name</FONT></B></CENTER>
</TD>
<TD>
<CENTER><B><FONT SIZE="+1">
<input type=checkbox name="all" value="all">Select all
</FONT></B></CENTER>
</TD>
</TR>
ENDOFTEXT
  # build up table with mac addresses
  &process_file;
  # print rest of the form
  print <<ENDOFTEXT;
</TABLE>
<P><B><FONT SIZE="+1">
Press <input type="submit" value="wakeup"> to send the magic packets to your selections.
Press <input type="reset" value="clear"> to reset the form.
</FONT></B>
</FORM>
<HR>
<FORM method="POST">
<H2> Enter new destination mac address: </H2>
<B><FONT SIZE="+1">MAC: </FONT></B><input name="mac" size=17 maxlength=17>
<B><FONT SIZE="+1">Name: </FONT></B><input name="ip" size=40 maxlength=40>
<P><B><FONT SIZE="+1">
Press <input type="submit" value="save"> to add the entry to your maclist.
Press <input type="reset" value="clear"> to reset the form.
</FONT></B>
</FORM>
<HR>
$ver
ENDOFTEXT
  # Close the document cleanly.
  print &HtmlBot;
}

sub send_broadcast_packet {
	($mac) = @_;
	if ($mac !~ /^[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}$/i)  {
		print "Malformed MAC address $mac<BR>\n";
		return;
	}
	print "Sending wakeup packet to MAC address $mac<BR>\n";
	# Remove colons
	$mac =~ tr/://d;
	# Magic packet is 6 bytes of FF followed by the MAC address 16 times
	$magic = ("\xff" x 6) . (pack('H12', $mac) x 16);
	# Create socket
	socket(S, PF_INET, SOCK_DGRAM, getprotobyname('udp'))
		or die "socket: $!\n";
	# Enable broadcast
	setsockopt(S, SOL_SOCKET, SO_BROADCAST, 1)
		or die "setsockopt: $!\n";
	# Send the wakeup packet
	defined(send(S, $magic, 0, sockaddr_in(0x2fff, INADDR_BROADCAST)))
		or print "send: $!\n";
	close(S);
}

sub process_file {
	unless (open(F, $maclist)) {
		print "Error reading $maclist: $!\n";
	} else {
		while (<F>) {
			next if /^\s*#/;	# skip comments
			($mac, $ip) = split;
			next if (!defined($mac) or $mac eq '');
			if ($_[0] eq 'S') {
			  	&send_broadcast_packet($mac);
			} else {
				print "<TR><TD WIDTH=40%><CENTER><TT>$mac</TT></CENTER></TD>";
				$ip = '&nbsp;' if (!defined($ip) or $ip eq '');
				print "<TD WIDTH=40%><CENTER><TT>$ip</TT></CENTER></TD>";
				print "<TD WIDTH=20%><CENTER><input type=checkbox name=mac$. value=$mac><TT>WakeUp</TT></CENTER></TD></TR>\n";
			}
		}
		close(F);
	}
}

sub add_entry {
	if ($input{'mac'} !~ /^[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}:[\da-f]{2}$/i)  {
		print "Malformed MAC address $mac\n";
		return;
	}
	unless (open(F, ">> $maclist")) {
		print "Error writing $maclist: $!\n";
	} else {
		print F "$input{'mac'} $input{'ip'}\n";
		close(F);
		print "Saved entry to maclist: $input{'mac'} $input{'ip'}\n";
	}
}