#!/usr/bin/perl

use strict;
use CGI;

my $q = new CGI;



#VARIABLES TO CHANGE
############################
$scriptfile = 'test.cgi';                     #Name of this script
$datafile   = 'testdata.dat';                 #Name of the file to sto
+re data to
$workdir    = 'http://myworld.server101.com'; #Default Working Dir

#OTHER VARIABLES
############################
$action     = $q->param('action');
$userid     = $q->param('userid');
$name1      = $q->param('name1');
$name2      = $q->param('name2');
$line       = $q->param('line');

#DECIDE ACTION TO TAKE
############################
if ($action eq '')          { &Show;}
if ($action eq 'show')      { &Show;}
if ($action eq 'add')       { &Add;}
if ($action eq 'addsave')   { &Addsave;}
if ($action eq 'change')    { &Change;}
if ($action eq 'changesave'){ &Changesave;}
if ($action eq 'insert')    { &Insert;}
if ($action eq 'insertsave'){ &Insertsave;}
if ($action eq 'delete')    { &Delete;}


#ADD - Create Form
############################
sub Add {
 print $q->header;
 print qq|
 <form action=$scriptfile>
<input type=hidden name=action value=addsave>
ForeName:<input type=text name=name1 size=20><br>
Surname :<input type=text name=name2 size=20><br>
<input type=submit value="Add Record">
</form>
|;
 exit;
}

#ADD - Save data to File
############################
sub Addsave {

 $newname  = join('¬', $name1, $name2);
 $newname .= "\n";

 open ("database", ">>$datafile") || &Printerror;
   print database $newname;
 close(database);

print "Location: $workdir/cgi/$scriptfile?action=show\n\n";
exit;
}

#CHANGE - Create Form
############################
sub Change {
 print $q->header;


 open ("database", "$datafile") || &Printerror;
   @database = <database>;
 close(database);

($name1, $name2) = split ('[¬]',@database[$line]);

$name2 =~ s/\n//g;

 print qq|
 <form action=$scriptfile>
<input type=hidden name=action value=changesave>
<input type=hidden name=line value=$line>
Forename:<input type=text name=name1 size=20 value=$name1><br>
Surname :<input type=text name=name2 size=20 value=$name2><br>
<input type=submit value="Change Record">
</form>
|;
 exit;
}

#CHANGE - Save changed data to File
###################################
sub Changesave {

$newname  = join('¬', $name1, $name2);
$newname .= "\n";

 open ("oldbase", "$datafile") || &Printerror;
  @oldbase = <oldbase>;
 close(oldbase);

 @oldbase[$line] = $newname;

 open ("newbase", ">$datafile") || &Printerror;
  print newbase @oldbase;
 close(newbase);

print "Location: $workdir/cgi/$scriptfile?action=show\n\n";
exit;
}

#INSERT - Create Form
############################
sub Insert {
 print $q->header;
 print qq|
 <form action=$scriptfile>
<input type=hidden name=action value=insertsave>
<input type=hidden name=line value=$line>
Forename:<input type=text name=name1 size=20><br>
Surname :<input type=text name=name2 size=20><br>
<input type=submit value="Insert Record">
</form>
|;
 exit;
}

#INSERT - Save inserted data to File
#####################################
sub Insertsave {

$newname  = join('¬', $name1, $name2);
$newname .= "\n";

 open ("oldbase", "$datafile") || &Printerror;
  @oldbase = <oldbase>;
 close(oldbase);

 $oldname        = @oldbase[$line];
 @oldbase[$line] = "$newname$oldname";

 open ("newbase", ">$datafile") || &Printerror;
  print newbase @oldbase;
 close(newbase);

print "Location: $workdir/cgi/$scriptfile?action=show\n\n";
exit;
}

#DELETE - delete record
###################################
sub Delete {

 open ("oldbase", "$datafile") || &Printerror;
  @oldbase = <oldbase>;
 close(oldbase);

 @oldbase[$line] = '';

 open ("newbase", ">$datafile") || &Printerror;
  print newbase @oldbase;
 close(newbase);

print "Location: $workdir/cgi/$scriptfile?action=show\n\n";
exit;
}

#SHOW - Create List of Records
##############################
sub Show {

 $line = "-1";
 print $q->header;
 open ("database","$datafile")|| &Printerror;
  @database = <database>;
 close(database);

 foreach (@database) {
   $line += 1;
   ($name1, $name2) = split ('[¬]',$_);
print qq|
 $line $name1 $name2 \|
 <a href=$scriptfile?action=change&line=$line>Edit</a> \|
 <a href=$scriptfile?action=delete&line=$line>Delete</a> \|
 <a href=$scriptfile?action=insert&line=$line>Insert</a><br>|;
 }
print qq|
<br>
<a href=$scriptfile?action=add>Add Record</a>
|;
exit;