#!/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;