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