#!/cgi-bin/php5
<? 
/*----------------------------------------------------------
COPYRIGHT NOTICE
Invitation 1.0 (PHP script).
Keeps track of guests for a party, gathering etc..
Copyright (C) 2004 teralaser from www.teralaser.net

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a link to the GNU General Public License
along with this script; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

For the full text of the GNU General Public License, please see 
http://www.gnu.org/licenses/gpl.txt
-----------------------------------------------------------
MANUAL 

Changes the variables below to make it work for your particular
party or invitation.
The first time, you use the script, you'll need to add to your
guest list, click the little "admin" word for this.

Version        : 1.0
WebSite        : www.teralaser.net
Email          : see site
File name      : invite.php
Files required : An empty file named in $data_file (see below)
               : If you named a $picture, then the picture file is required
Inviting       : This script does not send emails (except to you, if you set $notify="YES")
               : The recommended way to invite, remind etc. is to send to
               : all guests using "bcc:" with a link to this script in your
               : invitation.
-----------------------------------------------------------
SETTINGS :
*/
// error_reporting(0);
//--Change the following variables
// **************************
// ** Description of event **
// **************************
//Title of your invitation
  $title = "Robert and Noelle's backyard potluck";
// Where ?
  $where = "Robert and Noelle's<br>741 N 3rd St.<br>San Jose, CA 95112 (<a href='http://www.openstreetmap.org/export/embed.html?bbox=-121.900295,37.350245,-121.897388,37.351644&amp;layer=mapnik&amp;marker=37.35092,-121.89887' target='robertsplace'>map</a>)<br>Look for <font style='background-color:yellow'>yellow</font> fire hydrant and front yard succulents<br>Parking is on the street";
// When ?
  $when  = "August 24, 2024 at 4pm";
// What ?
  $what  = "Let's get together again<br>This event will be held outside";
// Bring ?
  $bring = "Beverages, dessert, entrees, salad, or snacks<br>Note: <font style='background-color:#ffafaf'>no barbeque grill will be available</font>";
// Last date to reply ? (can be "" then it is not included, is only shown by the script, later answers are possible)
  $lastdate = "";
// Contact ? (phone no. or similar) (can be "" then it is not included)
  $contact = "1-408-294-4687 (140-TAXI-HOUSE or 1-408-A-WHIM-TRIM or 1-408-BY-HINTS or 140VAX-4-GNUS)";
// Picture ?  (e.g. "invite.jpg" , can be "" then it is not included)
  $picture = "http://clipart-library.com/img1/1465723.jpg";
// *************************************************
// ** Administrator pwd, email , files and layout **
// *************************************************
//Change under "admin" with your own password. It's required for editing the entries. Not super-safe, so don't share with bank passwords etc..
  $admin_password = "teralaser";
//Enter your email here (spam protected, no robot can see it , however other users can. Other users' emails are fully protected)
  $admin_email = "acg7vfasvu@liamekaens.com";
//Your website URL
  $home = "http://invite.liberatedsoftware.com";
//Name of file used to store your guest list.
  $data_file = "/var/tmp/invite.dat";
//Send you an email when someone answers your invitation, YES or NO
  $notify = "NO";
//Your Operating System
//For Windows/NT user : WIN
//For Linux/Unix user : UNIX
  $os = "UNIX";
//Color & font setting
  $background = "#FFFFFF";
  $table_top = "#E3C6FE";
  $table_content_1a = "#EDEEFA";
  $table_content_1b = "#E4E4F6";
  $table_content_2a = "#EFE8F2";
  $table_content_2b = "#EFEFFF";
  $table_bottom = "#E3C6FE";
  $table_border = "#000000";
  $title_color = "black";
  $link = "blue";
  $visited_link = "blue";
  $active_link = "red";
  $font_face = "verdana";
  $message_font_face = "arial";
  $message_font_size = "2";
//Maximum entry per page (not implemented properly yet)
  $max_entry_per_page = "60";
//Maximum entries stored in data file (if 0, it is not checked) PS: Every change is an entry too.
  $max_record_in_data_file = "400";
// ***************************
// ** End of options to set **
// ***************************
// --------------------------------------------------------
//-- Don't change below this line --

if (!empty($_GET)) {
	if (isset($_GET["do"])) $do = $_GET["do"];
	if (isset($_GET["page"])) $page = $_GET["page"];
} 

if (isset($_POST["do"])) $do = $_POST["do"];

if (!isset($PHP_SELF)) {
	if (isset($_SERVER["PHP_SELF"])) $PHP_SELF = $_SERVER["PHP_SELF"];
	else if (isset($HTTP_SERVER_VARS["PHP_SELF"])) $PHP_SELF = $HTTP_SERVER_VARS["PHP_SELF"];
}
$iversion = "<A HREF=\"http://www.sup" . "erplanner.net\" title=\"Version 1.0 of the invite PHP script\"><FONT COLOR=\"" . $title_color .
                                  "\">1.0</FONT></A>";

if (!isset($do)) $do = "";
else if (preg_match("/\W/",$do)) $do = "";

if (!isset($page) or $page == 0) $page=1;

if (!file_exists($data_file)) {
    echo "<B>Error !!</B> Can't find data file : $data_file. <p><p><i> Webmaster/administrator : If this was the intended location please make an empty file.</i><BR>";
	exit;
} else {
  if ($max_record_in_data_file != "0") {
     $f = file($data_file);
     $j = count($f);
     if ($j > $max_record_in_data_file) {
        rsort($f);
        for ($i = 0; $i < $j; $i++) {
          if (isset($f[$i])) {
            $r = $record[$i];
            $row = explode("|~~|",$r);     
            $chkmail = $row[2];
            for($h = $i+1; $h < $jmlrec; $h++) {
              $r = $f[$h];
              $row = explode("|~~|",$r);        
              if (strcasecmp($row[2],$chkmail)==0 ) $f[$h] = "";
             }
           }
        }
        $rf = fopen($data_file,"w");
            if (strtoupper($os)=="UNIX") {		    		 
	           if (flock($rf,LOCK_EX)) {
                  for ($i=0; $i<$max_record_in_data_file; $i++) {
                      if ($f[$i] != "") fwrite($rf,$f[$i]);	     
			}
                  flock($rf,LOCK_UN);
	           }
            } else {
               for ($i=0; $i<$max_record_in_data_file; $i++) {
                  if ($f[$i] != "") fwrite($rf,$f[$i]);	     
	           }
	      }
	    fclose($rf);
     }
  }
}

$emailmsg = "";

// Check email if list
if ($do == "list") {
   if (isset($_POST["vemail"])) $vemail = $_POST["vemail"];
   if (!isset($vemail)) $vemail = $_GET["vemail"];
   $vemail = trim($vemail);
   $f = file($data_file);
   rsort($f);
   $found = -1;
   $frow[0] = $frow[1] = $frow[2] = $frow[3] = $frow[4] = $frow[5] =
      $frow[6] = $frow[7] = "";
   for ($i = 0; $i < $j; $i++) {
     if (isset($f[$i])) {
       $frow = explode("|~~|",$f[$i]);
       if (strcasecmp($frow[2],$vemail) == 0 ) { $found = $i; break; }
     }
   }
   if ( $found < 0 ) {
     if (!preg_match("/([\w\.\-]+)(\@[\w\.\-]+)(\.[a-z]{2,4})+/i", $vemail)) {
        echo "<HTML><BODY bgcolor='#ffffff'><H2>Error !</H2><FONT SIZE=2 FACE='$font_face'>Invalid email address. Please click <B><A HREF='javascript:history.back()'>here</A></B> and try again.</FONT></BODY></HTML>";
	exit;
     }
     if ( $vemail == "" ) {
	$do = "";
	$vemail = "(not given)";
     	$emailmsg = "The email " . $vemail . " is not in the guest list. Please check with the invitation for the correct email.";
     } else {
        $idx = date("YmdHis");
        $tgl = date("F d, Y - h:i A");
        #$vname = $vemail;
        #$domain = strpos($vname, '@');
        #if ($domain > 0) $vname = substr($vname, 0, $domain);
	$vname = "";
        $newdata = "<?//|~~|$idx|~~|$vemail|~~|$vname|~~|looked|~~||~~||~~||~~|$tgl|~~|?>\n";
        $newdata = stripslashes($newdata);
        $tambah = fopen($data_file,"a");
        if (flock($tambah,LOCK_EX)) {
           fwrite($tambah,$newdata);
           flock($tambah,LOCK_UN);
        }
        fclose($tambah);   
     }
   }
   // Check if vreply is never then change to "looked"
   if ( $frow[4] == "never" && $found >= 0 ) {
     $idx = date("YmdHis");
     $tgl = date("F d, Y - h:i A");
     $frow[4] = "looked";
     $newdata = "<?//|~~|$idx|~~|$frow[2]|~~|$frow[3]|~~|looked|~~|$frow[5]|~~|$frow[6]|~~|$frow[7]|~~|$tgl|~~|?>\n";
     $newdata = stripslashes($newdata);

     $tambah = fopen($data_file,"a");
     if (strtoupper($os)=="UNIX") {
        if (flock($tambah,LOCK_EX)) {
  	     fwrite($tambah,$newdata);
	     flock($tambah,LOCK_UN);
        }
     } else fwrite($tambah,$newdata);
     fclose($tambah);   
   }
}

switch ($do) {
case "list":
   $record = file($data_file);
   rsort($record);
   $jmlrec = count($record);
   // Delete duplicates (the dum way...)
   for ($i = 0; $i < $jmlrec; $i++) {
     if (isset($record[$i])) {
       $r = $record[$i];
       $row = explode("|~~|",$r);     
       if (count($row) < 3) {
         continue;
       }
       $chkmail = $row[2];
       for($j = $i+1; $j < $jmlrec; $j++) {
         $r = $record[$j];
         $row = explode("|~~|",$r);        
         if (count($row) < 3) {
           continue;
         }
         if (strcasecmp($row[2],$chkmail)==0 ) { $record[$j] = ""; }
       }
     }
   }
   //
?>
   <HTML>
   <HEAD><TITLE><?echo "$title"?></TITLE>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
   </HEAD>
   <BODY bgcolor="<?echo "$background"?>" link="<?echo "$link"?>" vlink="<?echo "$visited_link"?>" alink="<?echo "active_link"?>" topmargin="0" marginheight="0">
   <CENTER>
   <FONT SIZE="4" FACE="<?echo $font_face?>" COLOR="<?echo "$title_color"?>"><B><?echo "$title"?></B></FONT><BR>
   <FONT SIZE="3" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>">(:: <B><A HREF="<?echo "$home"?>"><font color="<?echo "$title_color"?>"><?echo "$home"?></font></A></B> ::)</FONT><P>
      <table border="1" bordercolor="#000000" cellspacing="0" width="600" > 
       <tr> <td bgcolor="#F0FFD0" width='34%' >
        <font size="2"> Where: </font>
       </td> 
        <td bgcolor="#FFE0C0">
         <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$where"; ?> </b></FONT> 
        </td> 
       </tr> 
       <tr> <td bgcolor="#FFE0C0" width='34%'>
        <font size="2"> When: </font>
       </td> 
        <td bgcolor="#F0FFD0">
         <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$when";  ?> </b></FONT> 
        </td>
       </tr>
       <tr> <td bgcolor="#F0FFD0" width='34%'>
        <font size="2"> What: </font>
       </td>
       <td bgcolor="#FFE0C0">
        <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$what";  ?> </b></FONT>
       </td>
       </tr>
       <tr> <td bgcolor="#FFE0C0" width='34%'>
        <font size="2"> Food to bring: </font> 
       </td> 
       <td bgcolor="#F0FFD0">
         <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$bring"; ?> </b></FONT>
       </td>
       </tr>
<? if (isset($lastdate) && $lastdate != "") { 
?>
       <tr> <td bgcolor="#F0FFD0" width='34%'>
        <font size="2"> Last date to reply: </font> 
       </td>
       </td>
       <td bgcolor="#FFE0C0">
         <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$lastdate"; ?> </b></FONT>
       </td>
       </tr>
<? } // end if lastdate
   if (isset($contact) && $contact != "") { 
?>
       <tr> <td bgcolor="#F0FFD0" width='34%'>
        <font size="2"> Contact: </font> 
       </td>
       </td>
       <td bgcolor="#FFE0C0">
         <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>"><b> <? echo "$contact"; ?> </b></FONT>
       </td>
       </tr>
<? } // end if contact  
   echo "</table>";
   if (isset($picture) && $picture != "") echo "<P><A HREF='mailto:{$admin_email}' ><IMG SRC='$picture' ALIGN='center' BORDER=0 WIDTH=300 HEIGHT=300 ALT='click to email host' ></A>";
?>

<P><P>
<div align="center"> 
  <form method="post" action="<?echo "$PHP_SELF"?>">
  <input type="hidden" name="do" value="add">
  <input type="hidden" name="vemail" value="<? echo "$vemail";  ?>" >
  <input type="hidden" name="vname"  value="<? echo "$frow[3]"; ?>" >
    <table width="600" border="0" cellspacing="0" cellpadding="0" bgcolor="<?echo "$table_border"?>">
     <tr>
      <td>
        <div align="center">
        <font face="<?echo $font_face?>" color="<? echo "$title_color"; ?>" size="2"> 
          :: Hello <? echo "$frow[3]" ?> ::
        </font>
        </div>
      </td>
     </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_2a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Your&nbsp;reply: </font></div>
                </td>
                <td width="72%">
<?
    if ($frow[4] != "host" ) { 
?>
                  <input type="radio" name="vreply" value="maybe" <? if ($frow[4]=="never"||$frow[4]=="looked"||$frow[4]=="maybe") print"checked"; ?> > Maybe
                  <input type="radio" name="vreply" value="no"    <? if ($frow[4]=="no") print "checked";  ?> > No
                  <input type="radio" name="vreply" value="yes"   <? if ($frow[4]=="yes") print "checked"; ?> > Yes
<? 
     } else 
       print"<input type='hidden' name='vreply' value='host'>(The hosts can not change their answer)"; 
?>
                </td>
              </tr>
            </table>
        </div>
      </td>
     </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Your&nbsp;name: </font></div>
                </td>
                <td width="72%"> 
                  <input type="text" name="vname" size="20" maxlength="20" value="<? echo "$frow[3]";?>" >
                </td>
              </tr>
            </table>
        </div>
      </td>
     </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Guests coming (incl.yourself)
                      : </font></div>
                </td>
                <td width="72%"> 
                  <input type="text" name="vamount" size="4" maxlength="4" value="<? echo "$frow[5]";?>" >
                </td>
              </tr>
            </table>
        </div>
      </td>
     </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Food you will bring
                      : </font></div>
                </td>
                <td width="72%"> 
                  <input type="text" name="vbrings" size="30" maxlength="70" value="<? echo "$frow[6]";?>" >
                </td>
              </tr>
            </table>
        </div>
      </td>
     </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Comment: </font></div>
                </td>
                <td width="72%"> 
                  <input type="text" name="vcomment" size="50" maxlength="100" value="<? echo "$frow[7]"; ?>" >
                </td>
              </tr>
            </table>
        </div>
      </td>
    </tr>
     <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="100%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2">
                    <input type="submit" value="Respond">
                  </font></div>
                </td>

              </tr>
            </table>
        </div>
      </td>
    </tr>
  </table>
  </form>
</div>
    <P>
   <TABLE width="600" cellpadding=0 cellspacing=1 border=0>
   <TR bgcolor='<?echo "$table_border"?>'>
   <TD>
      <TABLE width="100%" cellpadding=4 cellspacing=1 border=0>
      <TR>
	    <TD bgcolor='<?echo "$table_top"?>' align='center' colspan=2 width='66%'>
           <B>Invited guests:</B>
        </TD>
	    <TD bgcolor='<?echo "$table_top"?>' align='center' width='33%'>
	       <B>Coming:</B>
	    </TD>
	  </TR>
      <TR><TD bgcolor='<?echo "$table_top"?>' align='center' width='33%'>Undecided</TD>
      <TD bgcolor='<?echo "$table_top"?>' align='center' width='33%'>No</TD>
      <TD bgcolor='<?echo "$table_top"?>' align='center' width='33%'>Yes</TD>
      </TR>
<?
      $jml_page = intval($jmlrec/$max_entry_per_page);
      $sisa = $jmlrec%$max_entry_per_page;
      if ($sisa > 0) $jml_page++;
      // Set $nomaybe, $nono, $noyes DEBUG
      $nomaybe = 0;
      $nono = 0;
      $noyes = 0;
      $countmaybe = 0;
      $countno = 0;
      $countyes = 0;
      $counttotal = 0;
      $no = 0;
      
      if ($jmlrec == 0) echo "<TR><TD colspan=3 bgcolor='#FFE1E1' align='center'><FONT SIZE='3' FACE='$font_face'>There is no entries.</FONT></TD></TR>";

        $w = 0; //--Color
        for ($i=0; $i<$max_entry_per_page; $i++) {
                // Find the lowest next possible record.
                $no = $jmlrec + 1;
		    if ($nomaybe < $jmlrec   ) $no = $nomaybe + 1;
		    if ($nono    < $no - 1   ) $no = $nono + 1;
		    if ($noyes   < $no - 1   ) $no = $noyes + 1;
                // Check this is valid.
                do {
                  while (($no < $jmlrec + 1) && (!isset($record[$no-1]) || $record[$no-1] == "")) { $no++; }
  		      $recno = $no - 1;
                  $cont = 0;
                  if ($no < $jmlrec + 1) {
                    $row = explode("|~~|",$record[$recno]);
                    $vr = $row[4];
                    $cont = 0;
                    if (($vr == "never" || $vr == "looked" || $vr == "maybe") && ($no <= $nomaybe)) $cont = 1;
                    if (($vr == "no" ) && ($no <= $nono)) $cont = 1;
                    if (($vr == "yes" || $vr == "host") && ($no <= $noyes)) $cont = 1;
                    if ($cont == 1) $no++;
                  }
                } while ($cont == 1);

		    if (isset($record[$recno]) && $record[$recno] != "") {
			   if ($w==0) { 
				   $warna = $table_content_1a;
				   $warna2 = $table_content_1b;
				   $w=1;
			   } else { 
				   $warna = $table_content_2a;
				   $warna2 = $table_content_2b;
				   $w=0;
			   }
			   echo "<TR>
			           <TD bgcolor='$warna2' align='left' valign='top' width='33%'>";
                     do {
                       $nomaybe++;
                       $recno = $nomaybe-1;
		       if (isset($record[$recno]) && $record[$recno] != "") {
		         $row = explode("|~~|",$record[$recno]);
		       }
		       else {
		         $row[4] = "";
		       }
                     } while ($nomaybe <= $jmlrec && $row[4] != "never" && $row[4] != "looked" && $row[4] != "maybe" );
                     if ($row[4] == "never" || $row[4] == "looked" || $row[4]=="maybe") { 
                       echo "$row[3] ";
                       $countmaybe++;
                     }
                     if ($row[4] == "looked") echo "(looked <font size=1>$row[8]</font>)";
                     if ($row[4] == "maybe") echo "(maybe <font size=1>$row[8]</font>)";
                     if (isset($row[7]) && ($row[4]=="looked" || $row[4]=="maybe") && $row[7] != "") 
                               echo "<BR><FONT FACE='$font_face' SIZE='1'>Comment: $row[7]</FONT>";
                     echo "</TD><TD bgcolor='$warna' width='33%'>";
                     do {
                       $nono++;
                       $recno = $nono-1;
		       if (isset($record[$recno]) && $record[$recno] != "") {
		         $row = explode("|~~|",$record[$recno]);
		       }
		       else {
		         $row[4] = "";
		       }
                     } while ($nono <= $jmlrec && $row[4] != "no" && $row != "looked" && $row[5] != "maybe" );
		     if (isset($record[$recno]) && $record[$recno] != "") {
                       $row = explode("|~~|",$record[$recno]);
		     }
		     else {
		       $row[4] = "";
		     }
                     if ($row[4] == "no" ) { echo "$row[3] (<font size=1>$row[8]</font>)";
                       if (isset($row[7]) && $row[7] != "") echo "<BR><FONT FACE='$font_face' SIZE='1'>Comment: $row[7]</FONT>";
                       $countno++;
                     }
                     echo "</TD><TD bgcolor='$warna2' width='33%'>";
                     do {
                       $noyes++;
                       $recno = $noyes-1;
		       if (isset($record[$recno]) && $record[$recno] != "") {
                         $row = explode("|~~|",$record[$recno]);
		       }
		       else {
		         $row[4] = "";
		       }
                     } while ($noyes <= $jmlrec && $row[4] != "yes" && $row[4] != "host" );
                     if ($row[4] == "yes" || $row[4] == "host" ) { 
                       echo "$row[3] (";
                       if ($row[4] == "host") print "host ";
                       echo "<font size=1>$row[8]</font>)";
                       if (isset($row[5]) && $row[5] != "1" && $row[5] != "") echo "<BR><FONT FACE='$font_face' SIZE='1'>($row[5] guests)</FONT>";
                       if (isset($row[7]) && $row[7] != "" ) echo "<BR><FONT FACE='$font_face' SIZE='1'>Comment: $row[7]</FONT>";
                       if (isset($row[6]) && $row[6] != "" ) echo "<BR><FONT FACE='$font_face' SIZE='1'>Food bringing:  $row[6]</FONT>";
                       $countyes++;
                       if (isset($row[5]) && $row[5] != "") {
		         $count = intval($row[5]);
		         $counttotal = $counttotal + ($count > 0 ? $count : 1);
		       }
		       else {
		         $counttotal += 1;
		       }
                     }
                     echo "</TD></TR>";
			} //--end if	
        } //--end for
      echo "<TR><TD colspan=3 bgcolor='$table_bottom' align='center' width='600'><FONT SIZE='1' FACE='$font_face'>";	  	  
      if ($jml_page > 1) {	   
	   if ($page <> 1) echo "[<A HREF='$PHP_SELF?page=1'>Top</A>] "; else echo "[Top] "; 
	   echo "Page # ";
       if ($jml_page > 10) {
	 	 if ($page < 5) {
		    $start = 1;
			$stop = 10;
		 } elseif ($jml_page - $page < 5) {
		    $start = $jml_page - 9;
			$stop = $jml_page;
		 } else {
		    $start = $page-4;
			$stop = $page+5;
		 }
		 if ($start <> 1) echo "... ";
         for ($p=$start; $p<=$stop; $p++) {
	         if ($p == $page) echo "<FONT color='$active_link'><B>$p</B></FONT>&nbsp;&nbsp;";
			 else echo "<A HREF='$PHP_SELF?page=$p'>$p</A>&nbsp;&nbsp;";
         }
		 if ($stop <> $jml_page) echo "... ";		 		 
		 echo "of $jml_page ";
       } else {
         for ($p=1; $p<=$jml_page; $p++) {
	         if ($p == $page) echo "<FONT color='$active_link'><B>$p</B></FONT>&nbsp;&nbsp;";
			 else echo "<A HREF='$PHP_SELF?page=$p'>$p</A>&nbsp;&nbsp;";
         }
	   }	   
       if ($page <> $jml_page) echo "[<A HREF='$PHP_SELF?page=$jml_page'>Bottom</A>]"; else echo "[bottom]"; 
      } else echo "Page #1 of 1";
        echo "<br> Undecided : $countmaybe No : $countno Yes : $countyes Total guests : $counttotal";
	  echo "</FONT></TD></TR>";
?>
        </TABLE>        
		</TD>
		</TR>
		</TABLE>
<IMG SRC='inviteqr.png'><BR>
   <FONT FACE="<?echo $font_face?>" COLOR="<?echo "$title_color"?>" SIZE=1><A HREF="http://www.teralaser.net"><FONT COLOR="<?echo "$title_color"?>">Invitation </FONT></A><? echo "$iversion" ?> :: <A HREF="<? echo "$PHP_SELF?do=admin"?>"><FONT COLOR="<?echo "$title_color"?>">admin</FONT></A></FONT>

   </CENTER>
   </BODY>
   </HTML>
<?
break;
case "":
?>
<!-- For advanced user : You can customize your login form here -->
<html>
<head>
<title><?echo "$title"?></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="<?echo "$background"?>">
<div align="center"> 
  <font size="5" face="<?echo $font_face?>" color="<?echo "$title_color"?>"><b><?echo "$title"?></b></font><BR>
  <FONT SIZE="1" FACE="<?echo $font_face?>"><B><A HREF="<?echo "$home"?>"><FONT COLOR="<?echo "$title_color"?>">Home</FONT></A>
</B></FONT>
  <form method="GET" action="<?echo "$PHP_SELF" ?>?" >
  <input type="hidden" name="do" value="list">
    <table width="460" border="0" cellspacing="0" cellpadding="0" bgcolor="<?echo "$table_border"?>">
      <tr>
      <td>
        <div align="center">
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
	      <tr bgcolor="<?echo "$table_content_2b"?>">
	      <th colspan="3" width="100%"><center>Register or update your RSVP</center></th>
	      </tr>
              <tr bgcolor="<?echo "$table_content_1a"?>"> 
                <td width="28%"> 
                  <div align="right"><font face="<?echo $font_face?>" size="2"> Your&nbsp;Email: </font></div>
                </td>
                <td width="68%"> 
                  <input type="text" name="vemail" size="30" maxlength="70">
                </td>
		<td width="4%">
		  <input type='submit' value='enter site'>
		</td>
              </tr>
            </table>
        </div>
      </td>
    </tr>
  </table>
  </form>
</div>
<center>
<p>
<FONT FACE="<?echo "$font_face?"; ?>" COLOR="<?echo "$title_color"?>" SIZE=3>
<B><? echo "$emailmsg" ?></B> &nbsp; <br> </FONT><p>
<FONT FACE="<?echo "$font_face?"; ?>" COLOR="<?echo "$title_color"?>" SIZE=1>
<A HREF="http://www.teralaser.net"><FONT COLOR="<?echo "$title_color"; ?>">Invitation </FONT></A><?echo "$iversion";?> :: <A HREF="<? echo "$PHP_SELF?do=admin"; ?>"> <FONT COLOR="<?echo "$title_color"?>">admin</FONT></A></FONT></center>
</body>
</html>
<!-- End of log in form -->
<?
break;
case "add":
   if (!empty($_POST)) {
	   if (isset($_POST["vname"])) {
		   $vname = $_POST["vname"];
		   if (strlen($vname) > 70) $vname = substr($vname,0,70);
	   }
	   if (isset($_POST["vemail"])) {
		   $vemail = $_POST["vemail"];
		   $vemail = trim($vemail);
		   if (strlen($vemail) > 100) $vemail = substr($vemail,0,100);
	   }
	   if (isset($_POST["vreply"])) {
		   $vreply = $_POST["vreply"];
		   if (strlen($vreply) > 10) $vreply = substr($vreply,0,10);
	   }
	   if (isset($_POST["vamount"])) {
		   $vamount = $_POST["vamount"];
		   if (strlen($vamount) > 4) $vamount = substr($vamount,0,4);
	   }
	   if (isset($_POST["vbrings"])) {
		   $vbrings = $_POST["vbrings"];
		   if (strlen($vbrings) > 70) $vbrings = substr($vbrings,0,70);
	   }

	   if (isset($_POST["vcomment"])) $vcomment = $_POST["vcomment"];
   }

   if (trim($vemail)=="") {
      echo "<HTML><BODY bgcolor='#ffffff'><H2>Error !</H2><FONT SIZE=2 FACE='$font_face'>The email got lost. Please try again from the start. Please click <B><A HREF='javascript:history.back()'>here</A></B> and try again.</FONT></BODY></HTML>";
	  exit;
   }

   if (!preg_match("/([\w\.\-]+)(\@[\w\.\-]+)(\.[a-z]{2,4})+/i", $vemail)) {
      echo "<HTML><BODY bgcolor='#ffffff'><H2>Error !</H2><FONT SIZE=2 FACE='$font_face'>Invalid email address. Please click <B><A HREF='javascript:history.back()'>here</A></B> and try again.</FONT></BODY></HTML>";
	  exit;
   }

   $test_comment = explode(" ",$vcomment);
   $jmltest = count($test_comment);
   for ($t=0; $t<$jmltest; $t++) {
      if (strlen(trim($test_comment[$t])) > 35) {
        echo "<HTML><BODY bgcolor='#ffffff'><H2>Error!</H2><FONT SIZE=2 FACE='verdana'>Please don't abuse my invitation. Click <B><A HREF='javascript:history.back()'>here</A></B> and try again.</FONT></BODY></HTML>";
	    exit;
	  }
   }

   //--only maxchar characters allowed for comment, change this value if necessary
   $maxchar = 150;
   if (strlen($vcomment) > $maxchar) $vcomment = substr($vcomment,0,$maxchar)."...";

   $idx = date("YmdHis");
   $tgl = date("F d, Y - h:i A");

   $vname = str_replace("<","",$vname);
   $vname = str_replace(">","",$vname);
   $vname = str_replace("~","-",$vname);
   $vname = str_replace("\"","&quot;",$vname);

   $vcomment = str_replace("<","&lt;",$vcomment);
   $vcomment = str_replace(">","&gt;",$vcomment);
   $vcomment = str_replace("~","-",$vcomment);
   $vcomment = str_replace("\"","&quot;",$vcomment);

   $vbrings = str_replace("<","&lt;",$vbrings);
   $vbrings = str_replace(">","&gt;",$vbrings);
   $vbrings = str_replace("~","-",$vbrings);
   $vbrings = str_replace("\"","&quot;",$vbrings);

   if (strtoupper($os) == "WIN") {
	   $vcomment = str_replace("\r\n","<BR>",$vcomment);
	   $vcomment = str_replace("\r","",$vcomment);
	   $vcomment = str_replace("\n","",$vcomment);
   } else {
	   $vcomment = str_replace("\n","<BR>",$vcomment);
	   $vcomment = str_replace("\r","",$vcomment);
   }
   $newdata = "<?//|~~|$idx|~~|$vemail|~~|$vname|~~|$vreply|~~|$vamount|~~|$vbrings|~~|$vcomment|~~|$tgl|~~|?>\n";
   $newdata = stripslashes($newdata);

   $tambah = fopen($data_file,"a");
   if (strtoupper($os)=="UNIX") {
      if (flock($tambah,LOCK_EX)) {
	     fwrite($tambah,$newdata);
	     flock($tambah,LOCK_UN);
      }
   } else fwrite($tambah,$newdata);
   fclose($tambah);
   //--SEND MAIL
   if (strtoupper($notify) == "YES") {
      $msgtitle = $vname." answered your invitation :".$vreply;
      $vcomment = str_replace("&quot;","\"",$vcomment);   
      $vcomment = stripslashes($vcomment);
      $vcomment = str_replace("<BR>","\n",$vcomment);
      if ($vcomment == "") $vcomment = "(no comment)";
      $msgcontent = "Local time : ".$tgl."\n\nThe reply : ".$vreply;
      if ($vamount != "1") $msgcontent .= "\n $vname will bring a total of ". $vamount . " guests.";
      $msgcontent .= " \nThe comments from ".$vname." :\n----------------------------\n\n".$vcomment."\n";
      if ($vbrings != "" ) $msgcontent .= "He or she will bring : " . $vbrings . "\n";
      $msgcontent .= "\n----------------------------\n";
      mail($admin_email,$msgtitle,$msgcontent,"From: ".$vemail."\n");
   }
   //-----------
   header("Location: http://". $_SERVER['HTTP_HOST']. $_SERVER['PHP_SELF'] . "?do=list&vemail=" . $vemail );
   exit;
break;
case "admin":
   ?>
     <HTML><head><TITLE>Administrator</TITLE>
     <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
     </head>
     <BODY bgcolor='<? echo "$background" ?>'>
     <form method="post" action="<?echo "$PHP_SELF"?>">
     <CENTER>
      <FONT FACE='<? echo "$font_face" ?>' SIZE='4' COLOR='<? echo "$title_color" ?>'>Administrator for <? echo "$title" ?> </FONT>
	 <BR><BR>
	  <TABLE border=0 cellpadding=5 cellspacing=1 width=450>
	   <TR>
	     <TD bgcolor='<? echo "$table_top" ?>'>
            <FONT SIZE=2 FACE='<? echo "$font_face"?>'>
		  <B> Admin password : </b>
		</FONT> 
	     </TD>
           <TD>
             <INPUT TYPE='hidden' NAME='do' VALUE='admin2'>
             <INPUT TYPE='password' NAME='pwd' >
           </TD>
	     </TR>
	    </TABLE>
   <?
break;
case "admin2":
   if (isset($_POST["pwd"])) $pwd = $_POST["pwd"];
   else $pwd="";
   $pwdchk = 1;
   if (isset($_GET["pwd2"])) $pwdchk = strcasecmp(md5( date("z") . $admin_password),$_GET["pwd2"]);

   if (strcasecmp($pwd,$admin_password) != 0 && $pwdchk != 0) {
         echo "<HTML><HEAD><META HTTP-EQUIV='REFRESH' CONTENT='1; URL=$PHP_SELF?do=admin'></HEAD><BODY bgcolor='#ffffff'><CENTER><H2>Invalid admin password $pwd !</H2>Please wait...</CENTER></BODY><HTML>";
         exit;
   }
   $pwd2 = md5( date("z") . $admin_password);

   $record = file($data_file);
   rsort($record);
   $jmlrec = count($record);

   // Delete duplicates (the dum way...) and get host email if any
   $hostemail = "";
   for ($i = 0; $i < $jmlrec; $i++) {
     if (isset($record[$i])) {
       $r = $record[$i];
       $row = explode("|~~|",$r);
       $chkmail = $row[2];
       if ($row[4] == "host") $hostemail = $row[2];
       for($j = $i+1; $j < $jmlrec; $j++) {
         $r = $record[$j];
         $row = explode("|~~|",$r);        
         if (strcasecmp($row[2],$chkmail)==0 ) $record[$j] = "";
       }
     }
   }
   // Administrator page start.
?>
   <HTML>
   <HEAD><TITLE>Administration of <?echo "$title"?></TITLE>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
   </HEAD>
   <BODY bgcolor="<?echo "$background"?>" link="<?echo "$link"?>" vlink="<?echo "$visited_link"?>" alink="<?echo "active_link"?>" topmargin="0" marginheight="0">
   <CENTER>
   <FONT SIZE="6" FACE="<?echo $font_face?>" COLOR="<?echo "$title_color"?>"><B><?echo "$title"?></B></FONT><BR>
   <FONT SIZE="2" FACE="<?echo $font_face?>" color="<?echo "$title_color"?>">(:: <B><A HREF="<? if ($hostemail != "") echo "$PHP_SELF?do=list&vemail=$hostemail"; else echo "$PHP_SELF?do="; ?>"><font color="<?echo "$title_color"?>">Back</font></A></B> ::)</FONT><P>
   <form method="post" action="<?echo "$PHP_SELF?do=adminadd&pwd2=$pwd2"; ?>">
      <table width="100%" > 
	 <TR>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='7%'><b>No.</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='23%'><b>Email (deleted if empty)</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='20%'><b>Name (deleted if empty)</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='10%'><b>Reply</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='10%'><b>Guests</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='10%'><b>Bringing</b></TD>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='20%'><b>Comment</b></TD>
       </TR>
<?
   $emailsall = "";
   $emailsundecided = "";
   $emailsno = "";
   $emailsyes = "";
   $no = 0;
   for($i = 0; $i < $jmlrec+10; $i++) {
     if (isset($record[$i]) && $record[$i] != "") {
       $no++;
       $row = explode("|~~|",$record[$i]);
     } else {
       $row = "";
       if ($i >= $jmlrec) {
         $no++;
         $idx = date("YmdHis");
         // Empty person
         $row = explode("|~~|","<?//|~~|$idx|~~||~~||~~|never|~~|1|~~||~~||~~||~~|?>\n");
       }
     }

     if (isset($row) && $row !="" ) {
       if ($w==0) { 
        $warna = $table_content_1a;
	  $warna2 = $table_content_1b;
	  $w=1;
	 } else { 
	  $warna = $table_content_2a;
	  $warna2 = $table_content_2b;
	  $w=0;
 	 }
	 echo "<TR>";
       // Number column
       echo "<TD bgcolor='$warna2' align='left' valign='top' width='7%'>$no</TD>";
       // Email column
       echo "<TD bgcolor='$warna'  align='left' valign='top' width='23%'>";
       echo "<input type='hidden' name='idx$no' value='$row[1]'>";
       $tab = 2 * $i + 1;
       echo "<input type='text' name='vemail$no' size='50' maxlength='100' value='$row[2]' tabindex='$tab'></TD>";
       $cemail = $row[2];
       $emailsall .= "," . $cemail;
       // Name column
       $tab = 2 * $i + 2;
       echo "<TD bgcolor='$warna2' align='left' valign='top' width='20%'>";
       echo "<input type='text' name='vname$no' size='30' maxlength='100' value='$row[3]' tabindex='$tab'></TD>";
       // Selection column
       $tab = 5 * $i + 5000;
       echo "<TD bgcolor='$warna'  align='left' valign='top' width='10%'>";
       echo "<SELECT size='1' name='vreply$no' tabindex='$tab'>";
       $ix = ""; if ($row[4] == "never")  { $ix = "selected"; $emailsundecided .= "," . $cemail; }
       echo "<OPTION $ix >never</OPTION>";
       $ix = ""; if ($row[4] == "looked") { $ix = "selected"; $emailsundecided .= "," . $cemail; }
       echo "<OPTION $ix >looked</OPTION>";
       $ix = ""; if ($row[4] == "host") $ix = "selected";
       echo "<OPTION $ix >host</OPTION>";
       $ix = ""; if ($row[4] == "maybe")  { $ix = "selected"; $emailsundecided .= "," . $cemail; }
       echo "<OPTION $ix >maybe</OPTION>";
       $ix = ""; if ($row[4] == "no")     { $ix = "selected"; $emailsno .= "," . $cemail; }
       echo "<OPTION $ix >no</OPTION>";
       $ix = ""; if ($row[4] == "yes")    { $ix = "selected"; $emailsyes .= "," . $cemail; }
       echo "<OPTION $ix >yes</OPTION>";
       echo "</SELECT></TD>";
       // No. of persons
       $tab = 5 * $i + 5001;
       echo "<TD bgcolor='$warna2' align='left' valign='top' width='10%'>";
       echo "<input type='text' name='vamount$no' size='4' maxlength='4' value='$row[5]' tabindex='$tab'></TD>";
       // Brings
       $tab = 5 * $i + 5002;
       echo "<TD bgcolor='$warna'  align='left' valign='top' width='10%'>";
       echo "<input type='text' name='vbrings$no' size='30' maxlength='100' value='$row[6]' tabindex='$tab'></TD>";
       // Comment
       $tab = 5 * $i + 5003;
       echo "<TD bgcolor='$warna2' align='left' valign='top' width='20%'>";
       echo "<input type='text' name='vcomment$no' size='30' maxlength='100' value='$row[7]' tabindex='$tab'></TD>";
       // Date
       echo "<input type='hidden' name='tgl$no' value='$row[8]'>";
       echo "</TR>";
     } // isset record
   } // for i
   echo "<TR><TD colspan='8' align='right' ><input type='submit' value='send'><input type='reset' value='reset'></TD></TR>";
   echo "</table>";
   if ( $emailsall != "" ) $emailsall = substr($emailsall,1);
   while ( substr($emailsall,-1) == "," ) $emailsall = substr($emailsall,0,-1);
   if ( $emailsundecided != "" ) $emailsundecided = substr($emailsundecided,1);
   while ( substr($emailsundecided,-1) == "," ) $emailsundecided = substr($emailsundecided,0,-1);
   if ( $emailsno != "" ) $emailsno = substr($emailsno,1);
   if ( $emailsyes != "" ) $emailsyes = substr($emailsyes,1);

?> 
   &nbsp;<br><p>
   <table width="400" > 
	 <TR>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='390px'>
            <A title="Use either somemail@mail.com or &quot;John Smith&quot; &lt;somemail@mail.com&gt; separated by commas"> 
                   <FONT SIZE="2" FACE="<?echo "$font_face"?>" COLOR="<?echo "$title_color"?>"><b>Quick name add (from email)</b></FONT></A>
         </TD>
       </TR>
       <TR>
         <TD bgcolor='<?echo "$table_content_1a"?>' align='center' valign='top' width='390px' >
          <TEXTAREA name="quickadd" rows="6" cols="40"></TEXTAREA>
         </TD>
       </TR>
       <TR>
         <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='390px'>
             <b>List of all emails</b>
         </TD>
       </TR>
       <TR>
          <TD bgcolor='<?echo "$table_content_2a"?>' align='center' valign='top' width='390px'>
           <TEXTAREA name ="emailsall" rows="6" cols="40"><?echo "$emailsall" ?></TEXTAREA>
          </TD>
       </TR>
       <TR>
        <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='390px'>
             <b>List of all undecided emails</b>
        </TD>
       </TR>
       <TR>
         <TD bgcolor='<?echo "$table_content_1a"?>' align='center' valign='top' width='390px'>
           <TEXTAREA name ="emailsall" rows="6" cols="40"><?echo "$emailsundecided" ?></TEXTAREA>
         </TD>
       </TR>
       <TR>
        <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='390px'>
             <b>List of all no emails</b>
        </TD>
       </TR>
       <TR>
         <TD bgcolor='<?echo "$table_content_2a"?>' align='center' valign='top' width='390px'>
           <TEXTAREA name ="emailsall" rows="6" cols="40"><?echo "$emailsno" ?></TEXTAREA>
         </TD>
       </TR>
       <TR>
        <TD bgcolor='<?echo "$table_top"?>' align='center' valign='top' width='390px'>
             <b>List of all yes emails (not including hosts)</b>
        </TD>
       </TR>
       <TR>
         <TD bgcolor='<?echo "$table_content_1a"?>' align='center' valign='top' width='390px'>
           <TEXTAREA name ="emailsyes" rows="6" cols="40"><?echo "$emailsundecided" ?></TEXTAREA>
         </TD>
       </TR>
   </table>
   </form>
   <p>
   <center>
     <FONT FACE="<?echo "$font_face?"; ?>" COLOR="<?echo "$title_color"?>" SIZE=1>
      <A HREF="http://www.teralaser.net"><FONT COLOR="<?echo "$title_color"; ?>">Invitation </FONT></A><?echo "$iversion";?>
     </FONT><br>&nbsp;<p>
   </center>
</body>
</html>
<?
break;
case "adminadd":
  if (isset($_POST["pwd"])) $pwd = $_POST["pwd"];
  else $pwd="";
  $pwdchk = 1;
  if (isset($_GET["pwd2"])) $pwdchk = strcasecmp(md5( date("z") . $admin_password),$_GET["pwd2"]);

  if (strcasecmp($pwd,$admin_password) != 0 && $pwdchk != 0) {
         echo "<HTML><HEAD><META HTTP-EQUIV='REFRESH' CONTENT='1; URL=$PHP_SELF?do=admin'></HEAD><BODY bgcolor='#ffffff'><CENTER><H2>Invalid admin password !</H2>Please wait...</CENTER></BODY><HTML>";
         exit;
  }

  // Get all administrator changes
  $record = file($data_file);
  rsort($record);
  $jmlrec = count($record);

  // Delete duplicates (the dum way...) and get host email if any
  $hostemail = "";
  for ($i = 0; $i < $jmlrec; $i++) {
    if (isset($record[$i])) {
      $r = $record[$i];
      $row = explode("|~~|",$r);
      $chkmail = $row[2];
      if ($row[4] == "host") $hostemail = $row[2];
      for($j = $i+1; $j < $jmlrec; $j++) {
        $r = $record[$j];
        $row = explode("|~~|",$r);        
        if (strcasecmp($row[2],$chkmail)==0 ) { $record[$j] = ""; }
      }
    }
  }

  $updno = 0;
  $err = 0;
  for ($i = 0; $i < $jmlrec+12; $i++) {
    // Changes ?
    if (isset($_POST["vemail".$i])) $chkmail = $_POST["vemail".$i]; else $chkmail ="";
    $chkmail = trim($chkmail);
    $found = -1;
    if ($chkmail != "") {
      // Find existing record if possible...
      $recno = count($record);
      for($j = 0; $j < $recno; $j++) {
        $r = $record[$j];
        $row = explode("|~~|",$r);
        if (strcasecmp($row[2],$chkmail) == 0) { $found = $j; break; }
      }
      $changed = 1;
      if ($found >= 0) {
        // Changed ?
        if ( $row[2] == trim($_POST["vemail".$i]) && $row[3] == $_POST["vname".$i] && $row[4] == $_POST["vreply".$i] && $row[5] == $_POST["vamount".$i] &&
             $row[6] == $_POST["vbrings".$i] && $row[7] == $_POST["vcomment".$i] ) $changed = 0;
      }
      if ( $changed != 0 ) {
        $updno++;
        $idx = date("YmdHis");
        $tgl = date("F d, Y - h:i A");

        $vemail = str_replace("<","",trim($_POST["vemail".$i]));
        $vemail = str_replace(">","",$vemail);
        $vemail = str_replace("~~","--",$vemail);
        $vemail = str_replace("\"","&quot;",$vemail);

        $vname = str_replace("<","",$_POST["vname".$i]);
        $vname = str_replace(">","",$vname);
        $vname = str_replace("~","-",$vname);
        $vname = str_replace("\"","&quot;",$vname);

        $vreply = str_replace("<","",$_POST["vreply".$i]);
        $vreply = str_replace(">","",$vreply);
        if ($vreply != "never" && $vreply != "looked" && $vreply != "maybe" && $vreply != "no" && $vreply != "yes" && $vreply != "host") $vreply = "never";
        if ($vreply != "host" && $vreply != "never" && $found >= 0 ) $tgl = $tgl . "*"; // admin change

        $vamount = str_replace("<","&lt;",$_POST["vamount".$i]);
        $vamount = str_replace(">","&gt;",$vamount);
        $vamount = str_replace("~","-",$vamount);
        $vamount = str_replace("\"","&quot;",$vamount);

        $vcomment = str_replace("<","&lt;",$_POST["vcomment".$i]);
        $vcomment = str_replace(">","&gt;",$vcomment);
        $vcomment = str_replace("~","-",$vcomment);
        $vcomment = str_replace("\"","&quot;",$vcomment);

        $vbrings = str_replace("<","&lt;",$_POST["vbrings".$i]);
        $vbrings = str_replace(">","&gt;",$vbrings);
        $vbrings = str_replace("~","-",$vbrings);
        $vbrings = str_replace("\"","&quot;",$vbrings);

        if (strtoupper($os) == "WIN") {
	   $vcomment = str_replace("\r\n","<BR>",$_POST["vcomment".$i]);
	   $vcomment = str_replace("\r","",$vcomment);
	   $vcomment = str_replace("\n","",$vcomment);
        } else {
	   $vcomment = str_replace("\n","<BR>",$vcomment);
	   $vcomment = str_replace("\r","",$vcomment);
        }
        $validemail = 1;
        if (!preg_match("/([\w\.\-]+)(\@[\w\.\-]+)(\.[a-z]{2,4})+/i", $vemail)) $validemail = 0;
        if ( $vname != "" && $validemail == 0 ) { echo "Email not valid for $vname : $vemail <br>"; $err++; }
        if ( $vname != "" && $validemail == 1 ) {
          if ($found < 0 ) { $record[] = "\n"; $found = count($record) - 1; }
          $newdata = "<?//|~~|$idx|~~|$vemail|~~|$vname|~~|$vreply|~~|$vamount|~~|$vbrings|~~|$vcomment|~~|$tgl|~~|?>\n";
          $newdata = "!" . stripslashes($newdata);
          $record[$found] = $newdata;
        } else { 
         if ( $vname != "") { $updno--; $changed = 0; }
        }
      }
      if ( $changed == 0 ) {
        if ($found >= 0) $record[$found] = "!".$record[$found];
      }
    }
  }

  // Quick add
  $quickadd = "";
  if (isset($_POST["quickadd"]) && $_POST["quickadd"] != "") $quickadd = stripslashes($_POST["quickadd"]);
  if (trim($quickadd) != "") {
    $qadd = explode("\"",$quickadd);
    $qaddn = count($qadd);
    $nametoadd = "";
    for($i = 0; $i < $qaddn; $i++) {
      if ($i % 2 == 0) {
        $q2 = explode(",",$qadd[$i]);
        $q2n = count($q2);
        for($j = 0; $j < $q2n; $j++) {
          $mailtoadd = trim($q2[$j]);
          $mailtoadd = str_replace("<","",$mailtoadd);
          $mailtoadd = str_replace(">","",$mailtoadd);
          $mailtoadd = str_replace("~~","--",$mailtoadd);
          if ($mailtoadd != "") {
            $validemail = 1;
            if (!preg_match("/([\w\.\-]+)(\@[\w\.\-]+)(\.[a-z]{2,4})+/i", $mailtoadd)) $validemail = 0;
            if ($validemail == 0 ) { echo "Error at quickadd at $mailtoadd (not valid email)"; $err++; } else {
              if ($nametoadd == "") { $nametoaddarr = explode("@",$mailtoadd); $nametoadd = $nametoaddarr[0]; }
              $idx = date("YmdHis");
              $newdata = "<?//|~~|$idx|~~|$mailtoadd|~~|$nametoadd|~~|never|~~|1|~~||~~||~~|none|~~|?>\n";
              $newdata = "!" . stripslashes($newdata);
              $record[]= $newdata;
              $nametoadd = "";
            }
          }
        }
      }
      if ($i % 2 == 1) {
        $nametoadd = $qadd[$i];
        $nametoadd = str_replace("<","" ,$nametoadd);
        $nametoadd = str_replace(">","" ,$nametoadd);
        $nametoadd = str_replace("~","-",$nametoadd);
      }
    }
  }

  $jmlrec = count($record);
  $update_data = fopen($data_file,"w");
  if (strtoupper($os) == "UNIX") {
     if (flock($update_data,LOCK_EX)) {
        for ($j=0; $j<$jmlrec; $j++) {
             if (strncasecmp($record[$j],"!",1) != 0 ) $updno++;
             if ($record[$j] != "" && strncasecmp($record[$j],"!",1) == 0 ) fputs($update_data,substr($record[$j],1));
		 }
		 flock($update_data,LOCK_UN);
	  }
   } else {
	     for ($j=0; $j<$jmlrec; $j++) {
             if (strncasecmp($record[$j],"!",1) != 0 ) $updno++;
             if ($record[$j] != ""  && strncasecmp($record[$j],"!",1) == 0 ) fputs($update_data,substr($record[$j],1));
		 }
   }
   fclose($update_data);
   $pwd2 = md5( date("z") . $admin_password );
   if ($err == 0 ) { header("Location: http://". $_SERVER['HTTP_HOST']. $_SERVER['PHP_SELF'] . "?do=admin2&pwd2=".$pwd2 ); exit; }
   echo "<p>The errored guest have not updated. Please press your back button and correct.<br>";
   exit;
break;
default: echo "<html><body><center><h1>Illegal url. Get this script from www.ter"; echo "alaser.net. Thanks !</h1></center></body></html>";
} //--end switch