#!/usr/local/bin/perl
##
# $Id: add.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;
}
else
{
  unless($header_sent) { print header(-expires => '-1d'); $header_sent = 1;}
  printPageHead("Add a log entry");
  print startform("POST");
  print <<EOF;

<table border=0>
<td align="right"><b>Catagory</b> : 
</td>
<td align="left">
<INPUT TYPE=radio NAME=catagory VALUE=0 CHECKED>Professional
</td>
<td align="left">
<INPUT TYPE=radio NAME=catagory VALUE=1>Personal
</td>
<tr>
<td align="right"><b>Status</b> : 
</td>
<td align="left">
<INPUT TYPE=radio NAME=status VALUE=0 CHECKED>Pending
</td>
<td align="left">
<INPUT TYPE=radio NAME=status VALUE=1>Resovled
</td>
</tr>
</table>
<table border=0>
<td align="right"><b>Summary</b> :
</td>
<td align="left" colspan=2><input name="summary" size=72>
</td>
<tr>
<td align="right" valign="top"><b>Log</b> :
</td>
<td align="left" colspan=2><TEXTAREA wrap=virtual rows=15 cols=70 name="log_txt"></TEXTAREA>
</td>
</tr>
<tr>
<td colspan=3 align="center"><input type="submit" value="Enter Log">
</table>
EOF
  print endform();
  printPageFoot();
  exit;
}
sub printPhoneCommonMNU()
{
  print "<br>\n";
  print "<a href=\"$base_url/modules/phonelog/phonelog.cgi\">Main PhoneLog Menu</a>";
}