Apache Error Log:
[Thu Apr 11 00:45:26 2002] [error] [29963]ERR: 13: Line 4: Missing right -]
EMBPERL in HTML
<HTML><HEAD><TITLE>Enter Site Info</TITLE></HEAD>
<BODY>
[- use INNS -]
[- $statement = INNS::make_data(\%fdat) -] <---This is line 4
STATEMENT [+ $statement +]<P>
[$ FOREACH $tmp sort keys(%fdat) $]
Key [+ $tmp +] VALUE [+ $fdat{$tmp} +]<P>
[$ ENDFOREACH $]
</BODY>
</HTML>
~
EMBPERL LOG
[29842]SRC: Line 4: [- $statement = INNS::make_data(\%fdat) -]
[29842]SVs: 16904
[29842]EVAL< $statement = INNS::make_data(\%fdat)
[29842]MEM: Alloc 58 Bytes at 0834a9b0 Allocated so far 307 Bytes
[29842]MEM: Reload /usr/local/apache/htdocs/inns/addmysite/enterdata.html in
HTML::Embperl::DOC::_1
[29842]MEM: Free 58 Bytes at 0834a9ac Allocated so far 249 Bytes
[29842]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3)
[29842]REQ: Package = HTML::Embperl::DOC::_1
[29842]TAB: get TabRow = 0, Used = 1
[29842]Using APACHE for output...
[29842]SVs: Entry-SVs: 18071 -OBJs: 28 Curr-SVs: 18075 -OBJs: 28
[29842]SRC: Line 1: <HTML><HEAD><TITLE>Enter Site Info</TITLE></HEAD>
[29842]CMD-: Cmd = 'html'
[29842]MEM: Alloc 17 Bytes at 0834a9f0 Allocated so far 266 Bytes
[29842]MEM: Alloc 21 Bytes at 0834aa08 Allocated so far 287 Bytes
[29842]SRC: Line 1: <HEAD><TITLE>Enter Site Info</TITLE></HEAD>
[29842]CMD-: Cmd = 'head'
[29842]MEM: Alloc 17 Bytes at 0834aa28 Allocated so far 304 Bytes
[29842]MEM: Alloc 21 Bytes at 0834aa40 Allocated so far 325 Bytes
[29842]SRC: Line 1: <TITLE>Enter Site Info</TITLE></HEAD>
[29842]CMD-: Cmd = 'title'
[29842]MEM: Alloc 17 Bytes at 0834aa60 Allocated so far 342 Bytes
[29842]MEM: Alloc 37 Bytes at 0834aa78 Allocated so far 379 Bytes
[29842]SRC: Line 1: </TITLE></HEAD>
[29842]SRC: Line 1: <TITLE>Enter Site Info</TITLE></HEAD>
[29842]CMD-: Cmd = 'title'
[29842]MEM: Alloc 17 Bytes at 0834aa60 Allocated so far 342 Bytes
[29842]MEM: Alloc 37 Bytes at 0834aa78 Allocated so far 379 Bytes
[29842]SRC: Line 1: </TITLE></HEAD>
[29842]CMD-: Cmd = '/title'
[29842]MEM: Alloc 17 Bytes at 0834aaa8 Allocated so far 396 Bytes
[29842]MEM: Alloc 23 Bytes at 0834aac0 Allocated so far 419 Bytes
[29842]SRC: Line 1: </HEAD>
[29842]CMD-: Cmd = '/head'
[29842]MEM: Alloc 17 Bytes at 0834aae0 Allocated so far 436 Bytes
[29842]MEM: Alloc 23 Bytes at 0834aaf8 Allocated so far 459 Bytes
[29842]SRC: Line 1: <BODY>
[29842]CMD+: Cmd = 'body'
[29842]MEM: Alloc 17 Bytes at 0834ab18 Allocated so far 476 Bytes
[29842]MEM: Alloc 22 Bytes at 0834ab30 Allocated so far 498 Bytes
[29842]SRC: Line 2: [- use INNS -]
[29842]SVs: 18098
[29842]EVAL< use INNS
[29842]SVs: 18098
[29842]EVAL> <undefined>
[29842]TAB: nResult = 0
[29842]SVs: Entry-SVs: 18071 -OBJs: 28 Curr-SVs: 18097 -OBJs: 28
[29842]SRC: Line 4: [- $statement = INNS::make_data(\%fdat)
[29842]ERR: 13: Line 4: Missing right -]
package INNS;
use SQLHANDLE;
sub make_data{
my $fdat = shift;
my @fdat = keys(%$fdat);
my $obj=SQLHANDLE->allocate('addmysite');
%$fdat = map{
my $val = $$fdat{$_};
$val =~ s/'/\\'/g;
print STDERR "$val\n";
$_ => $val;
} @fdat;
my $tmp;
my $statement = 'INSERT INTO bio VALUES (';
if (!defined $$fdat{'name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'name'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'innkeeper_01_name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'innkeeper_01_name'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'innkeeper_02_name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'innkeeper_02_name'} .'\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'innkeeper_03_name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'innkeeper_03_name'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'name_of_inn'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'name_of_inn'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'address1'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'address1'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'address2'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'address2'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'city'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'city'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'Selection2'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Selection2'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'zip'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'zip'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'Selection'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Selection'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'email'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'email'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'inns_provided_email'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'inns_provided_email'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'telephone'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'telephone_toll_free'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone_toll_free'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'toll_free_appear'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'toll_free_appear'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'fax'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'fax'} . '\'' . ", ";
$statement .= $tmp;
}
if (!defined $$fdat{'company_website'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'company_website'} . '\'';
$statement .= $tmp;
}
$statement .= " ,NULL )";
print STDERR " STATEMENT $statement\n";
my $last_id = $obj->insert_statement($statement);
#SECOND INSERT
$statement = 'INSERT INTO creds VALUES (';
if (!defined $$fdat{'paii'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'paii'} . '\', ' ;
$statement .= $tmp;
}
if (!defined $$fdat{'AAA'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'AAA'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'AAA_star_rating'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'AAA_star_rating'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'iia'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'iaa'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'aaaii'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'aaaii'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'friend_of_aaaii'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'friend_of_aaaii'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'member_state'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'member_state'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'state_assoc_name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'state_assoc_name'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'web_address_of_state_association'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'web_address_of_state_association'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'paaac'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'paaac'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'paaac_inspected'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'paaac_inspected'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'inspection_frequency'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'inspection_frequency'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'fully_licensed'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'fully_licensed'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'fully_insured'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'fully_insured'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'cleanliness_safety_hospitality'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'cleanliness_safety_hospitality'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'area_association_member'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'area_association_member'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'area_assoc_name'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'area_assoc_name'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'web_address_of_area_association'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'web_address_of_area_association'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'not_a_member_of_a_national_state_or_area_association'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' .
$$fdat{'not_a_member_of_a_national_state_or_area_association'} . '\', ';
$statement .= $tmp;
}
if (!defined $last_id){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $last_id . '\')';
$statement .= $tmp;
}
print STDERR "$statement \n";
$obj->insert_statement($statement);
#THIRD DAMN STATEMENT
$statement = 'INSERT INTO inn_description VALUES (';
if (!defined $$fdat{'room_rate_begin'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'room_rate_begin'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'room_rate_ending'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'room_rate_ending'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'peak_begins'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'peak_begins'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'peak_ends'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'peak_ends'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'slow_begins'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'slow_begins'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'slow_ends'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'slow_ends'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'gay_lesbian_friendly'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'gay_lesbian_friendly'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'pet_friendly'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'pet_friendly'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'visa'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'visa'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'master_card'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'master_card'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Amex'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Amex'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Discover'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Discover'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Diners'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Diners'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'English'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'English'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Spanish'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Spanish'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'German'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'German'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'French'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'French'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Portugese'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Portugese'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Italian'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Italian'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Japanese'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Japanese'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Korean'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Korean'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Mandarin'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Mandarin'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'Vietnamese'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'Vietnamese'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'telephone_ans_from'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone_ans_from'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'telephone_ans_am_pm_from'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone_ans_am_pm_from'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'telephone_ans_until'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone_ans_am_pm_until'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'telephone_ans_until'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'telephone_ans_am_pm_until'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'bed_size_king'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'bed_size_king'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'bed_size_queen'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'bed_size_queen'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'bed_size_twin'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'bed_size_twin'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'total_accomodations_number'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'total_accomodations_number'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'all_full_private_bath'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'all_full_private_bath'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'guest_rooms_number'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'guest_rooms_number'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'guest_rooms_with_whirlpool_tubs'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'guest_rooms_with_whirlpool_tubs'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'guest_suites_number'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'guest_suites_number'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'deluxe_guest_suites_number'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'deluxe_guest_suites_number'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'guest_rooms_with_fireplaces_number'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'guest_rooms_with_fireplaces_number'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'connecting_rooms'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'connecting_rooms'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'children_age'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'children_age'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'available_cots'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'available_cots'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'available_cribs'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'available_cribs'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'des_general_property'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'des_general_property'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'smoke_free'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'smoke_free'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'description_where_smoking_is_allowed'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'description_where_smoking_is_allowed'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'physically_challenged'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'physically_challenged'} . '\', ';
$statement .= $tmp;
}
if (!defined $$fdat{'description_physically_challenged'}){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $$fdat{'description_physically_challenged'} . '\', ';
$statement .= $tmp;
}
if (!defined $last_id){
$statement .= 'NULL, ';
}else{
$tmp = '\'' . $last_id . '\') ';
$statement .= $tmp;
}
print STDOUT "$statement\n";
return $last_id;
}
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
