#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw/fatalsToBrowser/; use CGI::Session qw/-ip-match/; require "library.pl"; # instantiate a new CGI object my $cgi = new CGI; my $sessionid; my $session = new CGI::Session(); my $sessionid = $session->id(); print<

OUTPUT print xxx; ##

##


#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use CGI::Session qw/-ip-match/;

require "library.pl";

# instantiate a new CGI object
my $cgi = new CGI;
my $sessionid = $cgi->param("sessionid");

my $msg = $cgi->param("message");

print<
 

OUTPUT

	#display any added messages if any
	&DisplayMessage;
	
	# PERCULIAR - remove these and you won't see the "TESTING 1 2 3 SHOULD SHOW" anymore! how to retain?
	# MARKING 1
	# my $session = CGI::Session->load($sessionid);
	# MARKING 2
	# $session->param("otherThings", ".......");
	# MARKING 3
	
	#TO TEST .. THIS IS WHERE MESSAGE IS ADDED
	&AddMessage("TESTING 1 2 3 SHOULD SHOW\n\n");
	
print<

	
		
		
	

 


OUTPUT

print xxx;


##

##


#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use CGI::Session qw/-ip-match/;

# instantiate a new CGI object
my $cgi = new CGI;
my $sessionid = $cgi->param("sessionid");

sub AddMessage {
  my ($text)=@_;

  #open up existing session and add message
  my $session = CGI::Session->load($sessionid);
  $session->param("message", $text);
  
  print "added a new message.\n";
  
}

sub DisplayMessage{

	#prints the message out from previous saved session
    my $session = CGI::Session->load($sessionid);
  
		if($session->param("message")){
			print $session->param("message");
		}else{
			print "no messages found.\n";
		}
		
}

return 1;