Storable: freeze/unfreeze
Revised: Storable data retrieval

I would appreciate any advice on how to imput this script, it pretty basic,send email and creates a file called server.log.

Furture goals include: 1) DBM and or Storble for data storage Thanks for your time.

#!/usr/bin/perl -wT
use strict;
use diagnostics;
use CGI qw(:all);
#
my $GUESTBOOKFILE="/tmp/server.log";
#
print header();
print start_html(-title=>'The Light Dawns');
print h4("Take the parms and run");
print p("Node Name: ") . p(param('hostess'));
print p("IPAddr: ") . p(param('ipaddr'));
print p("PrimarySA: ") . p(param('primarysa'));
print p("Funcition: ");
print p(param('funct'));
print "end_html";
# Fire off email
#
open (MAIL,"|/var/qmail/bin/qmail-inject");
print MAIL "To: <davej\@pickledbeans.com>\n";
print MAIL "From <bitbucket\@pickledbeans.com>\n";
print MAIL "Subject: " . param('hostess') . " Report\n";
print MAIL "Node Name: " . param('hostess') . "\n";
print MAIL  "IP Addr: " . param('ipaddr') . "\n";
print MAIL  "Primary SA: " . param('primarysa') . "\n";
print MAIL "Function:\n";
print MAIL param('funct') . "\n";
close MAIL;


print end_html();
my ($date);
open (LOG,">>$GUESTBOOKFILE");
flock(LOG, 2);
#print LOG join(":",$date,param($_)) ."\n";
#save_parameters(*LOG);
print LOG join(":",param('hostess') ,
      param('ipaddr'),
      param('primarysa'),
      param('funct'));
print LOG "\n";
close (LOG);
exit;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.