# HTML CODE

use CGI qw/:standard/;

print 
  header,
  start_html('Punch Records'),
  start_form,
  "What is your employee number? ",textfield('name'),p,
  submit,
  end_form,
  hr,"\n";

  if (param) 
  {
    $user_name = em(param('name'));
    &file_creation($user_name);
  }
print end_html;

# Code to create output files

sub file_creation
{
  # Variables #
  $quit_loop = 0;
  $found_name = 0;
  $user_name=$_[0];
  $loop = 0;

  # Changing directories
  chdir "c:/Inetpub/wwwsbmf/scripts";
  # Converting username to correct format for comparison search 
  $user_name = substr($user_name, 1, 4);
  if ( substr($username, 0, 1) eq "0" )
  {
    $user_name = substr($user_name, 1, 3);
  }

  # Cleaning up the Kronos document
  open(ORIGFILE,"current") || die "cannot open current for reading";
  open(REVFILE,">revfile") || die "cannot open revfile for writing";
  while (<ORIGFILE>) # read each line of ORIGFILE
  {
    if (/South/) # If a South Bend Line
    { 
      <ORIGFILE>;
      <ORIGFILE>;
      <ORIGFILE>; 
    }
    elsif (/-+/)
    { 
      print REVFILE $_;
      <ORIGFILE>;
      <ORIGFILE>;
    }
    else
    { print REVFILE $_; }
  }
  close(ORIGFILE);
  close(REVFILE);

  # Searching for the correct username to return data to another file
  open(REVFILE, "revfile") || die "cannot open revfile for reading";
  open(FINALFILE, ">finalfile.txt") || die "cannot open finalfile for writing";
  while (<REVFILE>)
  {
    # Converting Kronos username for comparison
    $current_line = $_;
    $current_id = substr($current_line, 33, 4);
    if ( substr($current_id, 0, 1) eq "0" )
    {
      $current_id = substr($current_id, 1, 3);
    }
    if ( substr($current_id, 3, 1) eq " ")
    {
      $current_id = substr($current_id, 0, 3);
    }
  
    unless ($quit_loop == 1 )
    {
      if ($found_name == 1)
      {
        if (/-+/) 
        { $quit_loop = 1; }
        else 
        { print FINALFILE $_; }
      }
      elsif ($current_id eq $user_name)
      {
        $found_name = 1;
        print FINALFILE $_;
      }
      else
      { $found_name = 0; }
    }
  }
  $quit_loop = 0;
  close(REVFILE);
  close(FINALFILE);
}