", $text); $text = stripslashes($text); $text = trim($text); return $text; } function flt_bdwrd ($text, $badwords){ foreach ($badwords as $badword){ $text = str_replace ($badword, "***", $text);} return $text; } function flt_smiley ($text){ $text = ereg_replace(" :)", " \":)\"", $text); $text = ereg_replace(" :D", " \":D\"", $text); $text = ereg_replace(" 8)", " \"8)\"", $text); $text = ereg_replace(" ;)", " \";)\"", $text); $text = ereg_replace(" :P", " \":P\"", $text); $text = ereg_replace(" :o", " \":o\"", $text); $text = ereg_replace(" >:\(", " \":(\" border=\"0\">", $text); $text = ereg_replace(" :\(", " \":(\"", $text); return $text; } function test_lngwrd ($text, $lng){ $test = explode(" ", $text); foreach ($test as $word){ if (strlen($word) > $lng){$tmp = true;}} if ($tmp){return $tmp;} } function test_lngmsg ($text, $lng){ if (strlen($text) > $lng){$tmp = true;} if ($tmp){return $tmp;} } function test_email($email){ if (eregi("^([a-z]|[0-9]|\.|-|_)+@([a-z]|[0-9]|\.|-|_)+\.([a-z]|[0-9]){2,3}$", $email, $arr_vars) && !eregi("(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)", $email, $arr_vars)){ return true;} else {return false;} } ############################################################ # Main code if($msgnew){ if ($spam && $gb_fltspam){$msg_txt = $lgerr[4]; $msg_cap = $lgerr[0]; $id="message";} else { if($name & $message){ $name = flt_tags ($name,1); $email = flt_tags ($email,1); $pageMy = flt_tags ($pageMy,1); $message = flt_tags ($message,$gb_flthtml); $index = date("YmdHis",time()); $day = date("d.m.Y",time()); $time = date("H:i",time()); if (test_lngwrd($message,$gb_lngwrd)){$msg_txt = $lgerr[1]; $msg_cap = $lgerr[0]; $id="message";} elseif (test_lngmsg($message,$gb_lngmsg)){$msg_txt = $lgerr[2]; $msg_cap = $lgerr[0]; $id="message";} elseif ($private) { $mail_msg = "---------------------------------------------------------------\n". "The folowning information was submitted on\n". "$day $time\n". "---------------------------------------------------------------\n". "Name: $name\n". "Email: $email\n". "URL: $pageMy\n". "Message: $message.\n". "---------------------------------------------------------------\n". "Remote host: $REMOTE_HOST \n". "Remote address: $REMOTE_ADDR \n". "User Agent: $HTTP_USER_AGENT \n". "---------------------------------------------------------------\n"; mail($gb_mail, "Private guestbook message pryduvalova.com", $mail_msg, "From: $name <$email>"); $msg_txt = $lgpri[1]; $msg_cap = $lgpri[0]; $id="message"; session_register("spam"); $spam = true; } else { $mail_msg = "---------------------------------------------------------------\n". "The folowning information was submitted on\n". "$day $time\n". "---------------------------------------------------------------\n". "Name: $name\n". "Email: $email\n". "URL: $pageMy\n". "Message: $message.\n". "---------------------------------------------------------------\n". "Remote host: $REMOTE_HOST \n". "Remote address: $REMOTE_ADDR \n". "User Agent: $HTTP_USER_AGENT \n". "---------------------------------------------------------------\n"; if ($error =="ok") { mail($gb_mail, "Private guestbook message pryduvalova.com", $mail_msg, "From: $name <$email>"); $data = fopen($gb_data, "a"); fwrite($data, "$index|$day|$time|$REMOTE_ADDR|$HTTP_USER_AGENT|$name|$email|$pageMy|$message|||\r\n"); fclose($data); session_register("spam"); $spam = true; } } } else{$msg_txt = $lgerr[3]; $msg_cap = $lgerr[0]; $id = "message";} } } if($logon){ if ($password == $gb_psswd){ session_register("psswd"); $psswd = $password; } else {$msg_txt = $lgerr[5]; $msg_cap = $lgerr[0]; $id="message";} } if($msgdelete || $msgdelete == "0" ){ if ($psswd == $gb_psswd){ $data = file($gb_data); rsort ($data); unset($data[$msgdelete]); $fp = fopen($gb_data,"w"); foreach ($data as $row){fputs($fp, $row);} fclose($fp); } else{$msg_txt = $lgerr[6]; $msg_cap = $lgerr[0]; $id="message";} } if($msgedit || $msgedit == "0" ){ if ($psswd == $gb_psswd){ $id = "edit"; } else{$msg_txt = $lgerr[7]; $msg_cap = $lgerr[0]; $id="message";} } if($msgreplace){ if ($psswd == $gb_psswd){ $data = file($gb_data); rsort ($data); $message = flt_tags ($message,$gb_flthtml); $comment = flt_tags ($comment,0); $data[$num] = "$index|$day|$time|$ip|$browser|$name|$email|$pageMy|$message|$comment|0\r\n"; $fp = fopen($gb_data,"w"); foreach ($data as $row){fputs($fp, $row);} fclose($fp); } else{$msg_txt = $lgerr[6]; $msg_cap = $lgerr[0]; $id="message";} } ############################################################ # HTML code ?> <? echo $page_title[$lan] ?>
Ukrainian Artist Olena Pryduvalova www.pryduvalova.com :: Kyiv, Ukraine
Ukrainian Artist Olena Pryduvalova. Comments / reviews
   
   
 " class="n2" > | " class="n2" > | " class="n2" >
« $lgtxt[4]");} else{$tmp = $pg -1; print("« $lgtxt[4]");} $tmp = $pg * $gb_msgpg + $gb_msgpg; print(" | "); if ($maxmsg > $tmp){$tmp = $pg + 1; print ("$lgtxt[5] »");} else {print("$lgtxt[5] »");} ?>






: ">
: ">
: ">
: ">
: ">
: ">
: ">
:
:
"> "> ">
:
:
:
:
  "> ">
$maxmsg){$lastmsg=$maxmsg;} for ($u=$frstmsg; $u<$lastmsg; $u++) { $entry = explode("|",$data[$u]); if ($gb_flthtml) {$entry[8] = strip_tags($entry[8]);} if ($gb_fltbdwrd) {$entry[8] = flt_bdwrd($entry[8],$lgbdwrd);} if ($gb_url2lnk) {$entry[8] = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]", "\\0", $entry[8]);} if ($gb_smiley){$entry[8] = flt_smiley ($entry[8]);} ?>
: :

<?php if ($psswd == $gb_psswd){print("> <?php print("> "><?php print(" border="0"> <?php print(" border="0"> " target="_blank"><?php print(" border="0"> <?php print(" border="0">

[ "> | "> ]
- $entry[9]

");}?>
 
  
Software Development Company Offshore Custom Development, Outsourcing, IT services  
www.pryduvalova.com :: Kyiv, Ukraine
Painting. Virtual gallery of works of the artist
Applied art. Virtual gallery of works of the artist.
Graphics. Virtual gallery of works of the artist.
Ukrainian Artist Olena Pryduvalova ( property of the author ).

   
 
Links:

Īleksij Apollonov
www.apollonov.com