Paradise Dive Service Scripts [Archive]

Script Junkie

03-25-2006, 02:38 AM

Once you get the insert working, if you're interested, I can show you a couple changes that would clean up and make the scripts more efficient.
Please do :)

Here it is. updated 03-28-2006

Please PM me about this post(i can only edit my posts on the last page, trying to keep this post to one page)

current problems:

current questions: is mysql the best database to use? (i don't like the char limit on the tables)

edit_vessel.pl

#!D:\Program Files\Perl\bin\perl.exe -w
################################################################################
# #
# Author : Lukas M. Andrus #
# Script Name : edit_vessel.pl #
# ©Copyright 2005 - 3005 #
# Written For : Paradise Dive Service #
# #
################################################################################
# DO NOT COPY FROM OR MODIFY THIS SCRIPT #
################################################################################
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my %form = Vars;

$add_method = $form{'add_method'};
if($add_method ne 'edit') {
$add_method = 'add';
}

print <<End;
Content-type: text/html

<html>
<head>
<title>Paradise Dive Service Vessel Sign up</title>
</head>
<body>
<form method='post' action='http://localhost/cgi-bin/add.pl'>
<input type='hidden' name='add_method' value="$add_method">
<input type='hidden' name='add_object' value="vessel">
<input type='hidden' name='vessel_number' value="$form{'vessel_number'}">
<input type='hidden' name='id' value="$form{'id'}">
<table><tr><td>
<table>
<tr>
<td>
<table>
<tr>
<td><font size=3>Vessel Name</font></td>
<td><font size=3>Size</font></td>
<td><font size=3>FL#</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_name' value="$form{'vessel_name'}" size=15></td>
<td><input type='text' name='vessel_size' value="$form{'vessel_size'}" size=5> <font size=3>Ft.</font></td>  
<td><input type='text' name='fl_number' value="$form{'fl_number'}" size=15></td>
</tr>
<tr>
<td><font size=3>Vessel Manufacturer</font></td>
<td><font size=3>Model</font></td>
</tr>
<tr>
<td><input type='text' name='manufacturer' value="$form{'manufacturer'}" size=20></td>
<td><input type='text' name='model' value="$form{'model'}" size=15></td>
</tr>
</table>
<table>
<tr>
<td><font size=4>Services desired:</font></td>
</tr>
<tr>
<td>
<input type='checkbox' value='checked' name='clean_waterline'$form{'clean_waterline'}>
<font size=3>Clean Waterline,</font>
<font size=4> Every:</font>
<select name='waterline_interval'>
<option value="$form{'service_interval'}"selected>$form{'service_interval'}
<option value='1week'>1 Week
<option value='2weeks'>2 Weeks
<option value='3weeks'>3 Weeks (recommended)
<option value='4weeks'>4 Weeks
<option value='1month'>1 Month
<option value='5weeks'>5 Weeks
<option value='6weeks'>6 Weeks
<option value='7weeks'>7 Weeks
<option value='8weeks'>8 Weeks
<option value='2months'>2 Months
<option value='9weeks'>9 Weeks
<option value='10weeks'>10 Weeks
<option value='11weeks'>11 Weeks
<option value='12weeks'>12 Weeks
<option value='3months'>3 Months
<option value='will_call'>Will Call
</select>
</td>
</tr>
<tr>
<td>
<input type='checkbox' value='checked' name='clean_rungear'$form{'clean_rungear'}>
<font size=3>Clean Run/Gear,</font>
<font size=4> Every:</font>
<select name='rungear_interval'>
<option value="$form{'service_interval'}"selected>$form{'service_interval'}
<option value='1week'>1 Week
<option value='2weeks'>2 Weeks
<option value='3weeks'>3 Weeks
<option value='4weeks'>4 Weeks
<option value='1month'>1 Month
<option value='5weeks'>5 Weeks (recommended)
<option value='6weeks'>6 Weeks
<option value='7weeks'>7 Weeks
<option value='8weeks'>8 Weeks
<option value='2months'>2 Months
<option value='9weeks'>9 Weeks
<option value='10weeks'>10 Weeks
<option value='11weeks'>11 Weeks
<option value='12weeks'>12 Weeks
<option value='3months'>3 Months
<option value='will_call'>Will Call
</select>
</td>
</tr>
<tr>
<td>
<input type='checkbox' value='checked' name='clean_hull'$form{'clean_hull'}>
<font size=3>Clean Hull,        </font>
<font size=4> Every:</font>
<select name='hull_interval'>
<option value="$form{'clean_hull_interval'}"selected>$form{'clean_hull_interval'}
<option value='1week'>1 Week
<option value='2weeks'>2 Weeks
<option value='3weeks'>3 Weeks
<option value='4weeks'>4 Weeks
<option value='1month'>1 Month
<option value='5weeks'>5 Weeks
<option value='6weeks'>6 Weeks
<option value='7weeks'>7 Weeks
<option value='8weeks'>8 Weeks (recommended)
<option value='2months'>2 Months
<option value='9weeks'>9 Weeks
<option value='10weeks'>10 Weeks
<option value='11weeks'>11 Weeks
<option value='12weeks'>12 Weeks
<option value='3months'>3 Months
<option value='will_call'>Will Call
</select>
</td>
</tr>
<tr>
<td>
<input type='checkbox' value='checked' name='prop_polish'$form{'prop_polish'}>
<font size=3>Prop polish.      </font>
<font size=4> Every:</font>
<select name='polish_interval'>
<option value="$form{'polish_interval'}"selected>$form{'polish_interval'}
<option value='1month'>1 Month
<option value='2months'>2 Months
<option value='3months'>3 Months
<option value='4months'>4 Months
<option value='5months'>5 Months
<option value='6months'>6 Months (recommended)
<option value='7months'>7 Months
<option value='8months'>8 Months
<option value='9months'>9 Months
<option value='10months'>10 Months
<option value='11months'>11 Months
<option value='1year'>1 Year
<option value='will_call'>Will Call
</select>
</td>
</tr>
<tr>
<td>
<p>
<font size=4>Zincs:</font>
<br>
<input type='checkbox' value='checked' name='leave_zincs'$form{'leave_zincs'}>
<font size=3>Leave replaced zincs on dock.</font>
</td>
</tr>
<tr>
<td>
<font size=3>      Shaft Zinc - </font><input type='text' size=25 value="$form{'shaft_zinc'}" name='shaft_zinc'>
<br>
<font size=3>   Rudder Zinc - </font><input type='text' size=25 value="$form{'rudder_zinc'}" name='rudder_zinc'>
<br>
<font size=3>Trim-Tab Zinc - </font><input type='text' size=25 value="$form{'trim_zinc'}" name='trim_zinc'>
<br>
<font size=3> Transom Zinc - </font><input type='text' size=25 value="$form{'trans_zinc'}" name='trans_zinc'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_1'}" name='other_zinc_1'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_2'}" name='other_zinc_2'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_3'}" name='other_zinc_3'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_4'}" name='other_zinc_4'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_5'}" name='other_zinc_5'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_6'}" name='other_zinc_6'>
<br>
<font size=3>     Other Zinc - </font><input type='text' size=25 value="$form{'other_zinc_7'}" name='other_zinc_7'>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<font size=4>Additional instructions and/or comments:</font>
<br>
<textarea name='comments2' rows=3 cols=40 wrap='virtual'>$form{'comments2'}</textarea>
</td>
<td>
<table>
<tr>
<td>
<table>
<tr>
<td>
<font size=4>Vessel Location:</font>
<select name='vessel_location'>
<option value="$form{'vessel_location'}"selected>$form{'vessel_location'}
<option value='home' selected>home address
<option value='marina'>a marina
<option value='another_location'>another location
</select>
</td>
</tr>
<tr>
<td><font size=3>Marina Name</font></td>
</tr>
<tr>
<td><input type='text' name='marina_name' value="$form{'marina_name'}" size=30><br></td>
</tr>
<tr>
<td><font size=3>Location Name</font></td>
</tr>
<tr>
<td><input type='text' name='location_name' value="$form{'location_name'}" size=30><br></td>
</tr>
<tr>
<td><font size=3>Street</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_street' value="$form{'vessel_address_street'}" size=30><br></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>City</font></td>
<td><font size=3>State</font></td>
<td><font size=3>Zip Code</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_city' value="$form{'vessel_address_city'}" size=15></td>
<td><input type='text' name='vessel_address_state' value="$form{'vessel_address_state'}" size=2></td>
<td><input type='text' name='vessel_address_zip' value="$form{'vessel_address_zip'}" size=10><br></td>
</tr>
<tr>
<td><font size=3>County</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_county' value="$form{'vessel_address_county'}" size=15></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>Dock</font></td>
<td><font size=3>Slip #</font></td>
</tr>
<tr>
<td><input type='text' name='dock' value="$form{'dock'}" size=2></td>
<td><input type='text' name='slip' value="$form{'slip'}" size=3></td>
</tr>
</table>
<font size=4>Additional instructions and/or comments:</font>
<br>
<textarea name='comments3' rows=3 cols=40 wrap='virtual'>$form{'comments3'}</textarea>
<p>
<input type=submit value='Save'>
</td>
</tr>
</table>
</td></tr></table>
</form>
</body>
</html>
End
################################ END ###########################################

FishMonger

03-25-2006, 02:42 AM

If you don't want others to see it, post it in a private message to me.

Script Junkie

03-25-2006, 04:51 AM

Images are attatched.
They go in \images\

.HTML
index.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<SCRIPT LANGUAGE="Javascript">
</SCRIPT>
<title>Paradise Dive Service</title>
</head>
<body>
<form name='fwd_search' method='post' action='http://localhost/cgi-bin/index.pl'>
<input type='hidden' name='unused' value="none">
</form>
</body>
</html>
<SCRIPT LANGUAGE="Javascript">
</SCRIPT>

search.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Search</title>
</head>
<body>
<center>
<form method='post' action='http://localhost/cgi-bin/search.pl'>
<table>
<tr>
<td>
<table>
<tr>
<td><font size=4>Name:</font></td>
</tr>
<tr>
<td><font size=3>First</font></td>
<td><font size=3>Last</font></td>
</tr>
<tr>
<td><input type='text' name='first_name' size=15></td>
<td><input type='text' name='last_name' size=25></td>
</tr>
</table>
<table>
<tr>
<td><font size=4>Home Address:</font></td>
</tr>
<tr>
<td><font size=3>Street</font></td>
</tr>
<tr>
<td><input type='text' name='address_street' size=30><br></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>City</font></td>
<td><font size=3>State</font></td>
<td><font size=3>Zip Code</font></td>
</tr>
<tr>
<td><input type='text' name='address_city' size=15></td>
<td><input type='text' name='address_state' size=5></td>
<td><input type='text' name='address_zip' size=10><br></td>
</tr>
<tr>
<td><font size=3>County</font></td>
</tr>
<tr>
<td><input type='text' name='address_county' size=15></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>Phone #</font></td>
<td><font size=3>Fax #</font></td>
</tr>
<tr>
<td><input type='text' name='phone' size=12></td>
<td><input type='text' name='fax' size=12></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>E-mail Address</font></td>
</tr>
<tr>
<td><input type='text' name='email' size=25></td>
</tr>
</table>
</td>
<td>
<table>
<tr>
<td><font size=3>Vessel Name</font></td>
<td><font size=3>Size</font></td>
<td><font size=3>FL#</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_name' size=15></td>
<td><input type='text' name='vessel_size' size=5> <font size=3>Ft.</font></td>  
<td><input type='text' name='fl_number' size=15></td>
</tr>
</table>
<table>
<tr>
<td>
<table>
<tr>
<td><font size=4>Vessel Location:</font></td>
</tr>
<tr>
<td><font size=3>Marina Name</font></td>
</tr>
<tr>
<td><input type='text' name='marina_name' size=30><br></td>
</tr>
<tr>
<td><font size=3>Location Name</font></td>
</tr>
<tr>
<td><input type='text' name='location_name' size=30><br></td>
</tr>
<tr>
<td><font size=3>Street</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_street' size=30><br></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>City</font></td>
<td><font size=3>State</font></td>
<td><font size=3>Zip Code</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_city' size=15></td>
<td><input type='text' name='vessel_address_state' size=5></td>
<td><input type='text' name='vessel_address_zip' size=10><br></td>
</tr>
<tr>
<td><font size=3>County</font></td>
</tr>
<tr>
<td><input type='text' name='vessel_address_county' size=15></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<input type='submit' value='Search'><input type='checkbox' value='yes' name='exact_match'><font size=3> Exact Match Only</font>
</form>
</center>
</body>
</html>

welcome.html
just says "welcome"

help.html
empty page, for now.

.PL

search.pl
#!D:\Program Files\Perl\bin\perl.exe -w
################################################################################
# #
# Author : Lukas M. Andrus #
# Script Name : search.pl #
# ©Copyright 2005 - 3005 #
# Written For : Paradise Dive Service #
# #
################################################################################
# DO NOT COPY FROM OR MODIFY THIS SCRIPT #
################################################################################
use DBI;
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

$exact_match = param('exact_match');
$ser_first_name = param('first_name');
$ser_last_name = param('last_name');
$ser_address_street = param('address_street');
$ser_address_city = param('address_city');
$ser_address_zip = param('address_zip');
$ser_phone = param('phone');
$ser_fax = param('fax');
$ser_email = param('email');
$ser_vessel_name = param('vessel_name');
$ser_vessel_size = param('vessel_size');
$ser_fl_number = param('fl_number');
$ser_marina_name = param('marina_name');
$ser_location_name = param('location_name');
$ser_vessel_address_street = param('vessel_address_street');
$ser_vessel_address_city = param('vessel_address_city');
$ser_vessel_address_zip = param('vessel_address_zip');

if($exact_match eq 'yes'){
$and_or = 'and';
}else{
$and_or = 'or';
}
&print1;
$dbh = DBI->connect('dbi:mysql:pds','*******','***********',
{ RaiseError => 1, PrintError => 1, AutoCommit => 1 } )
|| die "Could not connect to server. $DBI::errstr";
&cust_fields_used;
my $sth = $dbh->prepare(qq{select * from cust_info where $fields_used});
$sth->execute();
while (@data = $sth->fetchrow_array()) {
$id = $data[0];
$first_name = $data[1];
$last_name = $data[2];
$address_street = $data[3];
$address_city = $data[4];
$address_state = $data[5];
$address_zip = $data[6];
$address_county = $data[7];
$phone = $data[8];
$fax = $data[9];
$email = $data[10];
$first_call_time = $data[11];
$second_call_time = $data[12];
$comments1 = $data[13];
$vessel_names = $data[14];
$vessel_ids = $data[15];
&print2;
}
$fields_used = '';
&vessel_fields_used;
my $sth = $dbh->prepare(qq{select * from cust_info where $fields_used});
$sth->execute();
while (@data = $sth->fetchrow_array()) {
$vessel_number = $data[0];
$cust_id = $data[1];
$vessel_name = $data[2];
$vessel_size = $data[3];
$fl_number = $data[4];
$manufacturer = $data[5];
$model = $data[6];
$clean_waterline = $data[7];
$waterline_interval = $data[8];
$clean_rungear = $data[9];
$rungear_interval = $data[10];
$clean_hull = $data[11];
$hull_interval = $data[12];
$prop_polish = $data[13];
$polish_interval = $data[14];
$leave_zincs = $data[15];
$shaft_zinc = $data[16];
$rudder_zinc = $data[17];
$trim_zinc = $data[18];
$trans_zinc = $data[19];
$other_zinc_1 = $data[20];
$other_zinc_2 = $data[21];
$other_zinc_3 = $data[22];
$other_zinc_4 = $data[23];
$other_zinc_5 = $data[24];
$other_zinc_6 = $data[25];
$other_zinc_7 = $data[26];
$comments2 = $data[27];
$vessel_location = $data[28];
$marina_name = $data[29];
$location_name = $data[30];
$vessel_address_street = $data[31];
$vessel_address_city = $data[32];
$vessel_address_state = $data[33];
$vessel_address_zip = $data[34];
$vessel_address_county = $data[35];
$dock = $data[36];
$slip = $data[37];
$comments3 = $data[38];
&print3;
}
$dbh->disconnect();
&print4;
exit(0);
################################ SUBS ##########################################
sub print1 ### SUB ###
{
print <<End;
Content-type: text/html

<html>
<style type="text/css">
</style>
<head>
<script language="JavaScript" type="text/javascript">
function select_client ( selectedtype ){
document.search_results.id.value = selectedtype ;
document.search_results.submit() ;
}
</script>
<title>Search</title>
</head>
<body>
<font face="arial rounded mt bold" color="blue" size="5">Search Results</font>
<hr width="100%"size="3" align="middle">
<form name='search_results' method='post' action='http://localhost/cgi-bin/view_account.pl'>
End
} ##############################################################################
sub print2{
print <<End;
<table cellpadding="10">
<tr>
<td width=10%>
<a href="javascript:select_client('$id')"><font face="arial rounded mt bold" color="red" size="2">View...></font></a>
</td>
<td width=30%>
<font size="3">$first_name, $last_name</font>
<br>
<font size="3">$address_street</font>
<br>
<font size="3">$address_city, $address_state $address_zip</font>
<p>
<font size="3">$phone, fax:$fax</font>
<br>
<font size="3">$email</font>
<br>
<font size="3">Contact by:$contact_by between $first_call_time - $second_call_time $am_pm</font>
<p>
<font size="3">Comments: <br> $comments1</font>
</td>
<td>
End
@vessels = split(/\|/,$vessel_names);
foreach $vessel (@vessels){
print <<End;
<font size="4">$vessel</font>
<br>
End
}
print <<End;
</td>
<tr>
</table>
<p>
<hr width="90%"size="3" align="middle">
End
} ##############################################################################
sub print3{

print <<End;
<table cellpadding="10">
<tr>
<td width=10%>
<a href="javascript:select_client('$cust_id')"><font face="arial rounded mt bold" color="red" size="2">View...></font></a>
</td>
<td width=30%>
<font size="3">$vessel_name</font>
<br>
<font size="3">$vessel_size ft. $manufacturer , $model</font>
<br>
<font size="3">$vessel_address_city, $vessel_address_state $vessel_address_zip</font>
<br>
<font size="3">$vessel_address_county</font>
</td>
<tr>
</table>
<p>
<hr width="90%"size="3" align="middle">
End
} ##############################################################################
sub print4{
print <<End;
</form>
</body>
</html>
End
} ##############################################################################
sub cust_fields_used{
if($ser_first_name ne ''){
$fields_used = "first_name like '%.$ser_first_name.%'";
}
if($ser_last_name ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or last_name like '%.$ser_last_name.%'";
}else{
$fields_used = "last_name like '%.$ser_last_name.%'";
}
}
if($ser_address_street ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or address_street like '%.$ser_address_street.%'";
}else{
$fields_used = "address_street like '%.$ser_address_street.%'";
}
}
if($ser_address_city ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or address_city like '%.$ser_address_city.%'";
}else{
$fields_used = "address_city like '%.$ser_address_city.%'";
}
}
if($ser_address_state ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or address_state like '%.$ser_address_state.%'";
}else{
$fields_used = "address_state like '%.$ser_address_state.%'";
}
}
if($ser_address_zip ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or address_zip like '%.$ser_address_zip.%'";
}else{
$fields_used = "address_zip like '%.$ser_address_zip.%'";
}
}
if($ser_address_county ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or address_county like '%.$ser_address_county.%'";
}else{
$fields_used = "address_county like '%.$ser_address_county.%'";
}
}
if($ser_phone ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or phone like '%.$ser_phone.%'";
}else{
$fields_used = "phone like '%.$ser_phone.%'";
}
}
if($ser_fax ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or fax like '%.$ser_fax.%'";
}else{
$fields_used = "fax like '%.$ser_fax.%'";
}
}
if($ser_email ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or email like '%.$ser_email.%'";
}else{
$fields_used = "email like '%.$ser_email.%'";
}
}
} ##############################################################################
sub vessel_fields_used{
if($ser_vessel_name ne ''){
$fields_used = "vessel_name like '%.$ser_vessel_name.%'";
}
if($ser_vessel_size ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or vessel_size like '%.$ser_vessel_size.%'";
}else{
$fields_used = "vessel_size like '%.$ser_vessel_size.%'";
}
}
if($ser_fl_number ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or fl_number like '%.$ser_fl_number.%'";
}else{
$fields_used = "fl_number like '%.$ser_fl_number.%'";
}
}
if($ser_marina_name ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or marina_name like '%.$ser_marina_name.%'";
}else{
$fields_used = "marina_name like '%.$ser_marina_name.%'";
}
}
if($ser_location_name ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or location_name like '%.$ser_location_name.%'";
}else{
$fields_used = "location_name like '%.$ser_location_name.%'";
}
}
if($ser_vessel_address_street ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or vessel_address_street like '%.$ser_vessel_address_street.%'";
}else{
$fields_used = "vessel_address_street like '%.$ser_vessel_address_street.%'";
}
}
if($ser_vessel_address_city ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or vessel_address_city like '%.$ser_vessel_address_city.%'";
}else{
$fields_used = "vessel_address_city like '%.$ser_vessel_address_city.%'";
}
}
if($ser_vessel_address_zip ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or vessel_address_zip like '%.$ser_vessel_address_zip.%'";
}else{
$fields_used = "vessel_address_zip like '%.$ser_vessel_address_zip.%'";
}
}
if($ser_vessel_address_county ne ''){
if($fields_used ne ''){
$fields_used = "$fields_used $and_or vessel_address_county like '%.$ser_vessel_address_county.%'";
}else{
$fields_used = "vessel_address_county like '%.$ser_vessel_address_county.%'";
}
}
}
################################ END ###########################################
#$first_name, $last_name, $address_street, $address_city, $address_state, $address_zip, $phone, $fax, $email, $contact_by, $first_call_time, $second_call_time, $am_pm, $comments1, $id, $vessel_ids
#$vessel_number, $hull_cleaning, $service_interval, $prop_polish, $polish_interval, $leave_zincs, $vessel_name, $vessel_size, $fl_number, $manufacturer, $model, $comments2, $vessel_location, $marina_name, $location_name, $vessel_address_street, $vessel_address_city, $vessel_address_state, $vessel_address_zip, $dock, $slip, $comments3

Script Junkie

03-25-2006, 05:01 AM

view_account.pl

#!D:\Program Files\Perl\bin\perl.exe -w
################################################################################
# #
# Author : Lukas M. Andrus #
# Script Name : view_account.pl #
# ©Copyright 2005 - 3005 #
# Written For : Paradise Dive Service #
# #
################################################################################
# DO NOT COPY FROM OR MODIFY THIS SCRIPT #
################################################################################
use DBI;
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my %form = Vars;
$id = "$form{'id'}";

$dbh = DBI->connect('dbi:mysql:pds','webuser','PDS4WeBUsEr@AnyWhere',
{ RaiseError => 1, PrintError => 1, AutoCommit => 1 } )
|| die "Could not connect to server. $DBI::errstr";
my $sth = $dbh->prepare(qq{select * from cust_info where id = '$id'});
$sth->execute();
@data = $sth->fetchrow_array();
$id = $data[0];
$first_name = $data[1];
$last_name = $data[2];
$address_street = $data[3];
$address_city = $data[4];
$address_state = $data[5];
$address_zip = $data[6];
$address_county = $data[7];
$phone = $data[8];
$fax = $data[9];
$email = $data[10];
$first_call_time = $data[11];
$second_call_time = $data[12];
$comments1 = $data[13];
$vessel_names = $data[14];
$vessel_ids = $data[15];
print <<End;
Content-type: text/html

<html>
<style type="text/css">
</style>
<head>
<script language="JavaScript" type="text/javascript">

</script>
<title>View Account</title>
</head>
<body>
<table>
<tr>
<td valign=top>
<table>
<tr>
<td width='30%'>
<font size=3>$first_name $last_name</font>
<br>
<font size=3>$address_street</font>
<br>
<font size=3>$address_city, $address_state $address_zip</font>
<br>
<font size=3>$address_county</font>
<p>
<font size=4>Phone:</font><font size=3>$phone</font>
<br>
<font size=4>Fax:</font><font size=3>$fax</font>
<br>
<font size=3><a href='mailto: $email'>$email</a></font>
<br>
End
if(($first_call_time ne '') || ($second_call_time ne '')) {
print <<End;
<font size=4></font>
<font size=4>Contact Between:</font><font size=3>$first_call_time and $second_call_time</font>";
}
print <<End;
<p>
<font size=4>Additional instructions and/or Comments:</font>
<br>
<font size=3>$comments1</font>
<p>
</td>
</tr>
<tr>
<td align=right>
<form name='edit_account' method='post' action='http://localhost/cgi-bin/edit_client.pl'>
<input type='hidden' name='add_method' value='edit'>
<input type='hidden' name='id' value="$id">
<input type='hidden' name='first_name' value="$first_name">
<input type='hidden' name='last_name' value="$last_name">
<input type='hidden' name='address_street' value="$address_street">
<input type='hidden' name='address_city' value="$address_city">
<input type='hidden' name='address_state' value="$address_state">
<input type='hidden' name='address_zip' value="$address_zip">
<input type='hidden' name='address_county' value="$address_county">
<input type='hidden' name='phone' value="$phone">
<input type='hidden' name='fax' value="$fax">
<input type='hidden' name='email' value="$email">
<input type='hidden' name='first_call_time' value="$first_call_time">
<input type='hidden' name='second_call_time' value="$second_call_time">
<input type='hidden' name='comments1' value="$comments1">
<input type='hidden' name='vessel_names' value="$vessel_names">
<input type='hidden' name='vessel_ids' value="$vessel_ids">
<a href="javascript:edit_account()"><font color=red size=3>Edit..</font></a>
</form>
</td>
</tr>
</table>
</td>
<td width=100>
</td>
<td>
End
&boats;
print <<End;
</td>
</tr>
</table>
</body>
</html>
End
################################ SUBS ##########################################
sub boats {
print <<End;
<table>
<tr>
<td>
<form name='add_vessel' method='post' action='http://localhost/cgi-bin/edit_vessel.pl'>
<input type='hidden' name='id' value="$id">
<input type='hidden' name='add_method' value='add'>
<a href="javascript:add_vessel()"><font face="arial rounded mt bold" color="green" size="2">Add Vessel</font></a>
</form>
<hr width="100%"size="3" align="middle">
</td>
</tr>
End
@vessels = split(/\|/,$vessel_ids);
foreach $vessel (@vessels){
$dbh = DBI->connect('dbi:mysql:pds','********','***********',
{ RaiseError => 1, PrintError => 1, AutoCommit => 1 } )
|| die "Could not connect to server. $DBI::errstr";
my $sth = $dbh->prepare(qq{select * from vess_info where vessel_number = '$vessel'});
$sth->execute();
@data = $sth->fetchrow_array();
$vessel_number = $data[0];
$cust_id = $data[1];
$vessel_name = $data[2];
$vessel_size = $data[3];
$fl_number = $data[4];
$manufacturer = $data[5];
$model = $data[6];
$clean_waterline = $data[7];
$waterline_interval = $data[8];
$clean_rungear = $data[9];
$rungear_interval = $data[10];
$clean_hull = $data[11];
$hull_interval = $data[12];
$prop_polish = $data[13];
$polish_interval = $data[14];
$leave_zincs = $data[15];
$shaft_zinc = $data[16];
$rudder_zinc = $data[17];
$trim_zinc = $data[18];
$trans_zinc = $data[19];
$other_zinc_1 = $data[20];
$other_zinc_2 = $data[21];
$other_zinc_3 = $data[22];
$other_zinc_4 = $data[23];
$other_zinc_5 = $data[24];
$other_zinc_6 = $data[25];
$other_zinc_7 = $data[26];
$comments2 = $data[27];
$vessel_location = $data[28];
$marina_name = $data[29];
$location_name = $data[30];
$vessel_address_street = $data[31];
$vessel_address_city = $data[32];
$vessel_address_state = $data[33];
$vessel_address_zip = $data[34];
$vessel_address_county = $data[35];
$dock = $data[36];
$slip = $data[37];
$comments3 = $data[38];
print <<End;
<tr>
<td width=350>
<font size=4>Vessel Information:</font>
<br>
<font size=3> $vessel_name, $fl_number</font>
<br>
<font size=3>$vessel_size Ft. $manufacturer, $model</font>
<p>
<font size=4>Services Required:</font>
<br>
End
if($hull_cleaning eq 'checked') {
print " <font size=3>Clean hull every $service_interval</font>";
}
if($leave_zincs eq 'checked') {
print " <font size=3>(leave zincs on dock)</font><br>";
} else {
print " <font size=3>(do not leave zincs on dock)</font><br>";
}
if($prop_polish eq 'checked') {
print " <font size=3>Polish prop every $polish_interval </font><br>";
}
if($comments2 ne '') {
print <<End;
<p>
<font size=4>Special instructions and/or Comments:</font>
<br>
<font size=3>$comments2</font><br><p>
End
}
if($vessel_location ne 'home') {
print " <font size=4>Vessel Location: $vessel_location</font><br>";
if($vessel_location eq 'marina') {
print " <font size=3>$marina_name </font><br>";
}
if($vessel_location eq 'another_location') {
print " <font size=3>$location_name </font><br>";
}
print <<End;
<font size=3> $vessel_address_street </font>
<br>
<font size=3> $vessel_address_city , $vessel_address_state , $vessel_address_zip </font>
<br>
<font size=3> $vessel_address_county </font>
<br>
End
}
if(($dock ne '')||($slip ne '')) {
print " <font size=3> Dock: $dock   Slip: $slip </font>";
}
if($comments3 ne '') {
print <<End;
<p>
<font size=4>Special instructions and/or Comments:</font>
<br>
<font size=3>$comments3</font><br><p>
End
}
print <<End;
</td>
</tr>
<tr>
<td>
<form name='edit_vessel' method='post' action='http://localhost/cgi-bin/edit_vessel.pl'>
<input type='hidden' name='add_method' value='edit'>
<input type='hidden' name='id' value="$id">
<input type='hidden' name='cust_id' value="$cust_id">
<input type='hidden' name='vessel_number' value="$vessel_number">
<input type='hidden' name='vessel_name' value="$vessel_name">
<input type='hidden' name='vessel_size' value="$vessel_size">
<input type='hidden' name='fl_number' value="$fl_number">
<input type='hidden' name='manufacturer' value="$manufacturer">
<input type='hidden' name='model' value="$model">
<input type='hidden' name='clean_waterline' value="$clean_waterline">
<input type='hidden' name='waterline_interval' value="$waterline_interval">
<input type='hidden' name='clean_rungear' value="$clean_rungear">
<input type='hidden' name='rungear_interval' value="$rungear_interval">
<input type='hidden' name='clean_hull' value="$clean_hull">
<input type='hidden' name='hull_interval' value="$hull_interval">
<input type='hidden' name='prop_polish' value="$prop_polish">
<input type='hidden' name='polish_interval' value="$polish_interval">
<input type='hidden' name='leave_zincs' value="$leave_zincs">
<input type='hidden' name='shaft_zinc' value="$shaft_zinc">
<input type='hidden' name='rudder_zinc' value="$rudder_zinc">
<input type='hidden' name='trim_zinc' value="$trim_zinc">
<input type='hidden' name='trans_zinc' value="$trans_zinc">
<input type='hidden' name='other_zinc_1' value="$other_zinc_1">
<input type='hidden' name='other_zinc_2' value="$other_zinc_2">
<input type='hidden' name='other_zinc_3' value="$other_zinc_3">
<input type='hidden' name='other_zinc_4' value="$other_zinc_4">
<input type='hidden' name='other_zinc_5' value="$other_zinc_5">
<input type='hidden' name='other_zinc_6' value="$other_zinc_6">
<input type='hidden' name='other_zinc_7' value="$other_zinc_7">
<input type='hidden' name='comments2' value="$comments2">
<input type='hidden' name='vessel_location' value="$vessel_location">
<input type='hidden' name='marina_name' value="$marina_name">
<input type='hidden' name='location_name' value="$location_name">
<input type='hidden' name='vessel_address_street' value="$vessel_address_street">
<input type='hidden' name='vessel_address_city' value="$vessel_address_city">
<input type='hidden' name='vessel_address_state' value="$vessel_address_state">
<input type='hidden' name='vessel_address_zip' value="$vessel_address_zip">
<input type='hidden' name='vessel_address_county' value="$vessel_address_county">
<input type='hidden' name='dock' value="$dock">
<input type='hidden' name='slip' value="$slip">
<input type='hidden' name='comments3' value="$comments3">
</td>
<td align=right>
<form name='delete_vessel' method='post' action='http://localhost/cgi-bin/delete.pl' onSubmit="return verify()">
<a href="javascript:delete_selected_vessel('vessel|$vessel_number')"><font color=red size=3>Delete</font></a>
</form>
<a href="javascript:edit_vessel('vessel')"><font color=red size=3>Edit..</font></a>
</form>
</td>
</tr>
</table>
<hr width="100%"size="3" align="middle">
End
}
$dbh->disconnect();
}
################################ END ###########################################

edit_client.pl

#!D:\Program Files\Perl\bin\perl.exe -w
################################################################################
# #
# Author : Lukas M. Andrus #
# Script Name : edit_client.pl #
# ©Copyright 2005 - 3005 #
# Written For : Paradise Dive Service #
# #
################################################################################
# DO NOT COPY FROM OR MODIFY THIS SCRIPT #
################################################################################
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my %form = Vars;

$add_method = $form{'add_method'};
if($add_method ne 'edit'){
$add_method = 'add';
}

print <<End;
Content-type: text/html

<html>
<head>
<title>Paradise Dive Service Account Sign up</title>
</head>
<body>
<form method='post' action='http://localhost/cgi-bin/add.pl'>
<center>
<input type='hidden' name='add_method' value="$add_method">
<input type='hidden' name='add_object' value='account'>
<input type=hidden name='id' value="$form{'id'}">
<input type=hidden name='vessel_names' value="$form{'vessel_names'}">
<input type=hidden name='vessel_ids' value="$form{'vessel_ids'}">
<table>
<tr>
<td>
<table>
<tr>
<td><font size=4>Name:</font></td>
</tr>
<tr>
<td><font size=3>First</font></td>
<td><font size=3>Last</font></td>
</tr>
<tr>
<td><input type='text' name='first_name' value="$form{'first_name'}" size=15></td>
<td><input type='text' name='last_name' value="$form{'last_name'}" size=25></td>
</tr>
</table>
<table>
<tr>
<td><font size=4>Home Address:</font></td>
</tr>
<tr>
<td><font size=3>Street</font></td>
</tr>
<tr>
<td><input type='text' name='address_street' value="$form{'address_street'}" size=30><br></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>City</font></td>
<td><font size=3>State</font></td>
<td><font size=3>Zip Code</font></td>
</tr>
<tr>
<td><input type='text' name='address_city' value="$form{'address_city'}" size=15</td>
<td><input type='text' name='address_state' value="$form{'address_state'}" size=2></td>
<td><input type='text' name='address_zip' value="$form{'address_zip'}" size=10><br></td>
</tr>
<tr>
<td><font size=3>County</font></td>
</tr>
<tr>
<td><input type='text' name='address_county' value="$form{'address_county'}" size=15></td>
</tr>
</table>
<table>
<tr>
<td>
<font size=4>Additional instructions and/or comments:</font>
<br>
<textarea name='comments1' rows=3 cols=35 wrap='virtual'>$form{'comments1'}</textarea>
<p>
<center><input type=submit value='Save' hieght=5 width=100></center>
</td>
</tr>
</table>
</td>
<td>
<table>
<tr>
<td><font size=4>Contact Information:</font></td>
</tr>
<tr>
<td><font size=3>Phone #</font></td>
<td><font size=3>Fax #</font></td>
</tr>
<tr>
<td><input type='text' name='phone' value="$form{'phone'}" size=12></td>
<td><input type='text' name='fax' value="$form{'fax'}" size=12></td>
</tr>
</table>
<table>
<tr>
<td><font size=3>E-mail Address</font></td>
</tr>
<tr>
<td><input type='text' name='email' value="$form{'email'}" size=25></td>
</tr>
</table>
<table>
<tr>
<td>
<font size=3>Call between:</font>
<input type='text' name='first_call_time' value="$form{'first_call_time'}" size=5>
<font size=3>  and  </font>
<input type='text' name='second_call_time' value="$form{'second_call_time'}" size=5>
<br>
<br>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
</body>
</html>
End
################################ END ###########################################

Script Junkie

03-25-2006, 05:17 AM

add.pl

#!D:\Program Files\Perl\bin\perl.exe -w
################################################################################
# #
# Author : Lukas M. Andrus #
# Script Name : add.pl #
# ©Copyright 2005 - 3005 #
# Written For : Paradise Dive Service #
# #
################################################################################
# DO NOT COPY FROM OR MODIFY THIS SCRIPT #
################################################################################
use DBI;
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my %form = Vars;

$dbh = DBI->connect('dbi:mysql:pds','*******','********',
{ RaiseError => 1, PrintError => 1, AutoCommit => 1 } )
|| die "Could not connect to server. $DBI::errstr";
if(($form{'add_object'} eq 'account') && ($form{'add_method'} eq 'add')){
$dbh->do("insert into cust_info (first_name,
last_name,
address_street,
address_city,
address_state,
address_zip,
address_county,
phone,
fax,
email,
first_call_time,
second_call_time,
comments1)
values ('new',
'$form{'last_name'}',
'$form{'address_street'}',
'$form{'address_city'}',
'$form{'address_state'}',
'$form{'address_zip'}',
'$form{'address_county'}',
'$form{'phone'}',
'$form{'fax'}',
'$form{'email'}',
'$form{'first_call_time'}',
'$form{'second_call_time'}',
'$form{'comments1'}')")
|| die "could not insert into database. $dbi::errstr";
my $sth = $dbh->prepare(qq{select * from cust_info where first_name = 'new');
$sth->execute();
@data = $sth->fetchrow_array();
$id = $data[0];
$sth->finish();
$dbh->do("update cust_info
set first_name = '$form{'first_name'}'
where id = '$id'");
}
if(($form{'add_object'} eq 'account') && ($form{'add_method'} eq 'edit')){
$dbh->do("update cust_info
set first_name = '$form{'first_name'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set last_name = '$form{'last_name'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set address_street = '$form{'address_street'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set address_city = '$form{'address_city'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set address_state = '$form{'address_state'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set address_zip = '$form{'address_zip'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set address_county = '$form{'address_county'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set phone = '$form{'phone'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set fax = '$form{'fax'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set email = '$form{'email'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set first_call_time = '$form{'first_call_time'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set second_call_time = '$form{'second_call_time'}'
where id = '$form{'id'}'");
$dbh->do("update cust_info
set comments1 = '$form{'comments1'}'
where id = '$form{'id'}'");
} ############################################################################
if(($form{'add_object'} eq 'vessel') && ($form{'add_method'} eq 'add')) {
$dbh->do("insert into vess_info (cust_id,
vessel_name,
vessel_size,
fl_number,
manufacturer,
model,
clean_waterline,
waterline_interval,
clean_rungear,
rungear_interval,
clean_hull,
hull_interval,
prop_polish,
polish_interval,
leave_zincs,
shaft_zinc,
rudder_zinc,
trim_zinc,
trans_zinc,
other_zinc_1,
other_zinc_2,
other_zinc_3,
other_zinc_4,
other_zinc_5,
other_zinc_6,
other_zinc_7,
comments2,
vessel_location,
marina_name,
location_name,
vessel_address_street,
vessel_address_city,
vessel_address_state,
vessel_address_zip,
vessel_address_county,
dock,
slip,
comments3)
values ('$form{'id'}',
'$form{'vessel_name'}',
'$form{'vessel_size'}',
'new',
'$form{'manufacturer'}',
'$form{'model'}',
'$form{'clean_waterline'}',
'$form{'waterline_interval'}',
'$form{'clean_rungear'}',
'$form{'rungear_interval'}',
'$form{'clean_hull'}',
'$form{'hull_interval'}',
'$form{'prop_polish'}',
'$form{'polish_interval'}',
'$form{'leave_zincs'}',
'$form{'shaft_zinc'}',
'$form{'rudder_zinc'}',
'$form{'trim_zinc'}',
'$form{'trans_zinc'}',
'$form{'other_zinc_1'}',
'$form{'other_zinc_2'}',
'$form{'other_zinc_3'}',
'$form{'other_zinc_4'}',
'$form{'other_zinc_5'}',
'$form{'other_zinc_6'}',
'$form{'other_zinc_7'}',
'$form{'comments2'}',
'$form{'vessel_location'}',
'$form{'marina_name'}',
'$form{'location_name'}',
'$form{'vessel_address_street'}',
'$form{'vessel_address_city'}',
'$form{'vessel_address_state'}',
'$form{'vessel_address_zip'}',
'$form{'vessel_address_county'}',
'$form{'dock'}',
'$form{'slip'}',
'$form{'comments3'}')")
|| die "could not insert into database. $dbi::errstr";
my $sth = $dbh->prepare(qq{select * from vess_info where fl_number = 'new'});
$sth->execute();
@data = $sth->fetchrow_array();
$vessel_number = $data[0];
my $sth = $dbh->prepare(qq{select * from cust_info where id = '$form{'id'}'});
$sth->execute();
@data = $sth->fetchrow_array();
$vessel_names = $data[14];
$vessel_ids = $data[15];
$sth->finish();
if($vessel_ids eq ''){
$dbh->do("update cust_info
set vessel_ids = '$vessel_number'
where id = '$form{'id'}'");
}else{
$dbh->do("update cust_info
set vessel_ids = '$form{'vessel_ids'}|$vessel_number'
where id = '$form{'id'}'");
}
if($vessel_names eq ''){
$dbh->do("update cust_info
set vessel_names = '$vessel_name'
where id = '$form{'id'}'");
}else{
$dbh->do("update cust_info
set vessel_names = '$form{'vessel_names'}|$vessel_name'
where id = '$form{'id'}'");
}
$dbh->do("update vess_info
set fl_number = '$form{'fl_number'}'
where vessel_number = '$vessel_number'");
} ############################################################################
if(($form{'add_object'} eq 'vessel') && ($form{'add_method'} eq 'edit')) {
$dbh->do("update vess_info
set vessel_name = '$form{'vessel_name'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_size = '$form{'vessel_size'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set fl_number = '$form{'fl_number'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set manufacturer = '$form{'manufacturer'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set model = '$form{'model'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set clean_waterline = '$form{'clean_waterline'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set waterline_interval = '$form{'waterline_interval'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set clean_rungear = '$form{'clean_rungear'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set rungear_interval = '$form{'rungear_interval'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set clean_hull = '$form{'clean_hull'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set hull_interval = '$form{'hull_interval'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set prop_polish = '$form{'prop_polish'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set polish_interval = '$form{'polish_interval'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set leave_zincs = '$form{'leave_zincs'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set shaft_zinc = '$form{'shaft_zinc'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set rudder_zinc = '$form{'rudder_zinc'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set trim_zinc = '$form{'trim_zinc'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set trans_zinc = '$form{'trans_zinc'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_1 = '$form{'other_zinc_1'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_2 = '$form{'other_zinc_2'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_3 = '$form{'other_zinc_3'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_4 = '$form{'other_zinc_4'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_5 = '$form{'other_zinc_5'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_6 = '$form{'other_zinc_6'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set other_zinc_7 = '$form{'other_zinc_7'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set comments2 = '$form{'comments2'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_location = '$form{'vessel_location'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set marina_name = '$form{'marina_name'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set location_name = '$form{'location_name'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_address_street = '$form{'vessel_address_street'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_address_city = '$form{'vessel_address_city'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_address_state = '$form{'vessel_address_state'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_address_zip = '$form{'vessel_address_zip'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set vessel_address_county = '$form{'vessel_address_county'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set dock = '$form{'dock'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set slip = '$form{'slip'}'
where vessel_number = '$form{'vessel_number'}'");
$dbh->do("update vess_info
set comments3 = '$form{'comments3'}'
where vessel_number = '$form{'vessel_number'}'");
} ############################################################################
$dbh->disconnect();
print <<end;
content-type: text/html

<html>
<head>
<script language="javascript">
function submitform(){
document.forms['fwd_search'].submit()
}
</script>
<title>paradise dive service</title>
</head>
<body>
<form name='fwd_search' method='post' action='http://localhost/cgi-bin/view_account.pl'>
<input type='hidden' name='id' value="$form{'id'}">
</form>
</body>
</html>
<script language="javascript">
onload=submitform;
</script>
end
################################ end ###########################################