#!/usr/local/bin/perl
##
# $Id: phonelog.cgi,v 1.4 1998/06/10 08:08:29 falcon Exp $
##

$| = 1;

use DBI;
use CGI qw(:standard);

require "../../lib-webadmin.pl";

$query = new CGI;
$baseurl = setBaseUrl();

$driver_name = "mysql";
$database = "webtools";
$hostname = "smegma.rasterburn.com";
$datasource = "DBI:$driver_name:$database@$hostname";

if((param("action")) eq "add")
{
  unless($header_sent) { print header(-expires => '-1d'); $header_sent = 1;}
  printPageHead("Add a log entry");
  printPhoneCommonMNU();
  printPageFoot();
  exit;
}
elsif((param("action")) eq "list")
{
  unless($header_sent) { print header(-expires => '-1d'); $header_sent = 1;}
  printPageHead("List log entries");
  my $dbh = DBI->connect("$datasource", $user, $password)
 	 || die "Can't connect to $datasource: $DBI::errstr";

  my $sth = $dbh->prepare( q{ SELECT id, summary, catagory, status FROM phonelog } ) || die "Can't prepare statement: $DBI::errstr";

  my $rc = $sth->execute()
	|| die "Can't execute statement: $DBI::errstr";

  my $rows = $sth->rows;

  print "Query will return $sth->{NUM_OF_FIELDS} fields and $rows of data.\n\n";

  while(($id, $summary, $catagory, $status) = $sth->fetchrow_array)
  {
    print "$id\t$summary\t$catagory\t$status\n<br>";
  }

  warn $DBI::errstr if $DBI::err;
  $sth->finish;
  my $rc  = $dbh->disconnect;
  
  printPhoneCommonMNU();
  printPageFoot();
  exit;
}
elsif((param("action")) eq "search")
{
  unless($header_sent) { print header(-expires => '-1d'); $header_sent = 1;}
  printPageHead("Search for an entry");
  printPhoneCommonMNU();
  printPageFoot();
  exit;
}

#unless($header_sent) { print header(-expires => '-1d'); $header_sent = 1;}
unless($header_sent) { print header(); $header_sent = 1;}
printPageHead("PhoneLog Main Menu");
print startform("POST");
print hidden(-name => 'action', 
             -default => 'add');
print submit(-name => 'Add', 
	     -default => 'Add');
print " a new log entry.";
print endform();

print startform("POST");
print hidden(-name => 'action', 
             -default => 'list');
print submit(-name => 'List', 
             -default => 'List');
print " list all entries.";
print endform();

print startform("POST");
print hidden(-name => 'action', 
             -default => 'search');
print submit(-name => 'Search',
             -default => 'Search');
print " for an entry.";
print endform();

printCommonMNU();
printPageFoot();

sub printPhoneCommonMNU()
{
  print "<br>\n";
  print "<a href=\"$base_url/modules/phonelog/phonelog.cgi\">Main PhoneLog Menu</a>";
}