#!/usr/bin/perl
#
# ICS 243d - Internet Technology
# Spring Quarter 2001
# Roberto Silveira Silva Filho ID# 85849631
# Simple Web Server
# Assignment 3
#
# This server only allows the read of files test1.html and test2.html.
# The exit command kills the server.
#
# based on file: tcp_echo_serv1.pl
# form the Book: Network Programming with Perl by Lincoln D. Stein
# ----------------------------------------------------------
# usage: tcp_echo_serv1.pl [port]
use strict;
use Socket;
use IO::Handle;
use IO::File;
$| = 1; # No buffering
use constant MY_WEB_PORT => 16004;
my $port = shift || MY_WEB_PORT;
my $protocol = getprotobyname('tcp');
# Returns a message in the html page
# @param message the messa that is going to be printed in the page.
sub returnMessage {
my $message = shift;
# my $returnMessage = "Content-type: text/html\n\n";
my $returnMessage .= "";
$returnMessage .= " Message ";
$returnMessage .= " Message:
$message \n";
$returnMessage .= " \n\n";
return $returnMessage;
}
# Return the content of a file
# @param reads $pageName as parameter.
sub returnPage {
my $pageName = shift;
my $file = IO::File->new($pageName) or die "Cannot open $pageName: $! \n";
my $fileContent = "";
# my $fileContent = "Content-type: text/html\n\n";
while (defined (my $line = $file->getline() ) ) {
$fileContent .= $line;
};
return $fileContent;
}
# Prints the home page that introduces the server and launches the client example.
print "Connection: close\n";
print "Content-type: text/html\n\n";
print "";
print " Simple Web Server ";
print "\n";
print " Simple Web Server STARTED
";
print "
The server is running on port $port
";
print "
";
print "Open the file: http://rodan.ics.uci.edu:$port/test1.html\n\n";
print "
Open the file: http://rodan.ics.uci.edu:$port/test2.html\n\n";
print "
Kill the server: http://rodan.ics.uci.edu:$port/kill\n\n";
print "
\n\n";
socket(SOCK, AF_INET, SOCK_STREAM, $protocol) or die "socket() failed: $!";
setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "Can't set SO_REUSADDR: $!" ;
my $my_addr = sockaddr_in($port,INADDR_ANY);
bind(SOCK,$my_addr) or die "bind() failed: $!";
listen(SOCK,SOMAXCONN) or die "listen() failed: $!";
warn "waiting for incoming connections on port $port...\n";
# Stays in an infinite loop until it receives an exit command...
while (1) {
next unless my $remote_addr = accept(SESSION,SOCK);
my ($remotePort,$hisaddr) = sockaddr_in($remote_addr);
warn "Connection from [",inet_ntoa($hisaddr),",$remotePort]\n";
SESSION->autoflush(1);
# Generates a page whenever the server is accesse by a web server.
# It dies after the generation.
while () {
# Reads and writes to SESSION while the socket is on
my @command = $_; # Gets the command provided by the browser in an array...
my @argumentArray = split("\/", $command[0]);
my @splitArgument = split(" ", $argumentArray[1]);
my $argument = $splitArgument[0];
warn "Argument = $argument \n";
if ( ($argument eq "test1.html") || ($argument eq "test2.html" ) ) {
print SESSION returnPage ($argument);
} elsif ( ( $argument eq "Kill") || ( $argument eq "kill") ) {
print SESSION returnMessage (" Server was Killed \n");
print "Exiting...";
exit(0);
} else {
print SESSION returnMessage ("Request: $argument not valid!");
}
# print SESSION "Connection: close\n";
# warn $command[0];
close SESSION;
}
warn "Closing session...\n";
close SESSION;
warn "Connection from [",inet_ntoa($hisaddr),",$port] finished\n";
}
warn "Socked connection closed \n";
close SOCK;