#! /usr/bin/perl ### ### MAT - Management Account Tool (c)09/02 - Kirk Waingrow ### $VER="1.2 - Kirk Waingrow - 09/02"; # VERSION NUMBER $PROGNAME="mat6"; $MANAGENAME="Hardware Serial #"; $DPATH="/httpd/data"; $FIELD1="Mfg"; $FLEN1=10; # Length of the input field $FIELD2="Serial"; $FLEN2=15; $FIELD3="Model"; $FLEN3=15; $FIELD4="Price"; $FLEN4=5; $FIELD5="Asset"; $FLEN5=10; $FIELD6="User"; $FLEN6=15; $FVAL1=""; $FVAL2=""; $FVAL3=""; $FVAL5=""; $FVAL6=""; # # Only Change the Above - IF MORE FIELDS ARE ADDED THEN # SEACH FOR /#CHANGE# AND MODIFY WHERE NEEDED # ------------------------------------------------------------------- $DATA="$DPATH/$PROGNAME.txt"; $COMMENT="$DPATH/$PROGNAME.cmt"; $PROG="/cgi-bin/$PROGNAME"; if ( ! -d "$DPATH" ) { `mkdir -p $DPATH`; } if ( ! -f "$DATA" ) { `touch $DATA`; } print "Content-type: text/html\n\n"; print qq~
";
}
## #CHANGE#
$FVAL1="$form{FIELD1}";
# GET DATA FROM THE DATA FILE TO BE EDITTED
sub get_data
{
$cnt=0;
open(IN, "$DATA");
while (
*** ERROR: ALL FIELDS MUST BE ENTERED *** ";
### #CHANGE#
$FVAL1="$form{FIELD1}";
$FVAL2="$form{FIELD2}";
$FVAL3="$form{FIELD3}";
$FVAL4="$form{FIELD4}";
$FVAL5="$form{FIELD5}";
$FVAL6="$form{FIELD6}";
}
}
###
### TITLE BAR
###
$TOTALREC=`cat $DATA | wc -l | awk '{ print $1}'`;
print qq~
~;
###
### CAT A TEXT FILE FOR COMMENT AND INFORMATION
###
`touch $COMMENT`;
open(IN, "$COMMENT" );
while (
$MANAGENAME Manager
Buena Vista Datacasting
~;
}
}
Total Records = $TOTALREC
(ver. $VER)