#!/usr/bin/perl -w
# tools.cgi

use CGI qw(:standard :cgi);  
use CGI::Carp qw(fatalsToBrowser);
require 'sri.conf'; 

%params = Vars; #getting the hash with the parameter list as the keys


# Print HTTP header and opening HTML tags.
print "Content-type: text/html\n\n";

# Print the top of the page
&print_file($action_header_file);

#this while is just an attempt to get the variable names and values to print for my understanding, to be replace by other code using these values

while (my ($variable_name, $variable_value ) = each %params) {
	print "Variable name = $variable_name/n Variable value = $variable_value\n\n";
}

# Print the bottom of the page
&print_file($action_footer_file);


sub print_file {
my($file_name) = @_; #name subroutine variables	
open(HEADER,"$file_name");
print <HEADER>;
close HEADER;
}