#! /usr/bin/perl ### ### MAT - Management Account Tool (c)09/02 - Kirk Waingrow ### $VER="1.2 - Kirk Waingrow - 09/02"; # VERSION NUMBER $PROGNAME="mat_domains"; $MANAGENAME="Domains"; $DPATH="/httpd/data"; $FIELD1="Domain"; $FLEN1=25; # Length of the input field $FIELD2="Registra"; $FLEN2=15; $FIELD3="Expiration"; $FLEN3=10; $FIELD4="Comment"; $FLEN4=25; $FVAL1=""; $FVAL2=""; $FVAL3=""; $FVAL4=""; # # 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}";
}
}
###
### 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)