#!/usr/bin/perl

use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
 
$DIR = '/home/mtrain67/public_html/lab3/saved_forms';

my $q ;

print header(), start_html();

if (param()) {
  if (param('old_name')) {
    my $name = param('old_name');
    my $saved_file = "$DIR/$name";
    open SAVED, "< $saved_file" or error("Couldn't find saved data for $name: $!");
    $q = new CGI(SAVED);
  } else {
    my $name = param('name');
    my $save_file = "$DIR/$name";
    open SAVE, "> $save_file"  or error("Couldn't write data for $name: $!");
    ($CGI::Q)->save(SAVE);
    close SAVE;
    print h1("Saved data for $name");
    print end_html();
    exit 0;
  }
} else {
  $q = new CGI;
}

$q->import_names('F');

print <<End_of_Form;
<form method=POST action="save.cgi">
Name: <input name="name" value="$F::name">
Age: <input name="age" value="$F::age">
Phone: <input name="phone" value="$F::phone">
<input type=submit>
</form>
End_of_Form
  

sub error {
  my $error = shift;
  die $error;
}