\n"; if (!$start_server && $svid) { if (preg_match("/^(\w+)\.(.+)/", $svid, $m)) { reset($SERVERS); foreach($SERVERS as $key=>$server) { // $err .= "T1 uid=" . $server->uid . " scode=" . $server->scode . " m[1]=$m[1]
"; if ($server->uid == $m[1] || $server->scode == $m[1]) { $start_server = $server->uid; $override = $m[2]; break; } } } } // if (!$svid && $start_server) { if ($start_server) { reset($SERVERS); foreach($SERVERS as $key=>$server) { // $err .= "T2 uid=" . $server->uid . " scode=" . $server->scode . " start_server=$start_server
"; if ($server->uid == $start_server || $server->scode == $start_server) { $start_server = $server->uid; $found_server = 1; $on_load = "onLoad=\"scook('$server->uid','$server->default_room')\""; break; } } if (!$found_server) { $start_server = ""; } } if (!$start_server && $default_serv) { reset($SERVERS); foreach($SERVERS as $key=>$server) { if ($server->name == $default_serv) { $start_server = $server->uid; break; } } } if (!$start_server) { reset($SERVERS); foreach($SERVERS as $key=>$server) { $start_server = $server->uid; break; } } reset($SERVERS); foreach($SERVERS as $key=>$server) { if ($start_server == $server->uid || $start_server == $server->scode) { $start_server = $server->uid; break; } } reset($SERVERS); // get the room counts // replacement code will insert roomcounts after here $rc = array (); $rc["MY.Malaysia"] = "15";//RCD $rc["3.Pakistan"] = "1";//RCD $rc["2.Philippines"] = "1";//RCD $rc["1.Maks"] = "13";//RCD $rc["FC.FrameChat"] = "1";//RCD $rc["SG.Alamak"] = "21";//RCD $rc["SG.Singapore"] = "13";//RCD $rsid = ''; for ($i=0; $i<=11; $i++) { $rand = rand(65, 90); $rsid .= sprintf("%c",$rand); } $code=''; for ($i=0; $i<=5; $i++) { if (rand(0,3) < 1) { $code .= (int)rand(2,9); } else { $code .= sprintf("%c",rand(97,122)); } } global $roomcount_table; global $time; // disable this code use replacement above with template_chatlogin.php and /root/room_counts.cron $dbh = db_connect("web_data"); if($dbh) { access_log(''); // get room counts // $query = "select IDX,Server,Room,Count,UTime from $roomcount_table"; // $result = mysqli_query($dbh,$query) or log_errors_silent('MySQL Error: '.mysqli_error($dbh).' query='.$query); // if ($result && mysqli_num_rows($result) >= 1) { // while ($r = mysqli_fetch_array($result)) { // if ($r[1] && $r[2] && $r[3] && $time-$r[4] < 600) { // $rc["$r[1].$r[2]"] = $r[3]; // } else { // $query2 = "delete from $roomcount_table where IDX='$r[0]'"; // $result2 = mysqli_query($dbh,$query2) or log_errors_silent('MySQL Error: '.mysqli_error($dbh).' query='.$query2); // unset($result2); // } // } // } // if( $result) { @mysqli_free_result($result); } // check robots on and insert if needed if ($server->scode) { //$query = "select Server from NoRobots where Server='$server->scode'"; // $err .= "query=$query
\n"; //$result = mysqli_query($dbh,$query) or log_errors_silent('MySQL Error: ' . mysqli_error($dbh)); //if ($result && mysqli_num_rows($result) >= 1) { // $norobots = 1; //} //if ($result) { mysqli_free_result($result); } if (is_file("/tmp/norobots" . $server->scode)) { $norobots = 1; } if ($norobots) { $query = "insert into NoRobotsCode values (NULL,'$rsid','$code','$time','0')"; $result = mysqli_query($dbh,$query) or log_errors_silent('MySQL Error: ' . mysqli_error($dbh)); if ($result) { $norobots = mysqli_insert_id($dbh); } else { $norobots = ""; log_errors_silent('No Result for insert into RobotCode table'); } unset($result); } } db_close($dbh); } $host = GetEnv('HTTP_HOST'); if (preg_match("/rust/i", $host)) { $sv = "ru"; } else if (preg_match("/^sg\.|^singapore\./i", $host)) { $sv = "sg"; // here } else if (preg_match("/sg|lin|sgm/i", $start_server)) { $sv = "sg"; } else if (preg_match("/malay|^my\./i", $host)) { $sv = "my"; } else { $sv = "us"; } $mirror = ''; foreach ($mirrors as $key=>$val) { if ($sv == $key->id) { $mirror = $val; break; } } // global $col,$color; // $c = $col[$color]; $js = "\n"; // $on_load = "onLoad=\"foc()\""; PageTopBG("Chat Login"); ChatLogin($start_server); PageEnd(); function ChatLogin($start_server) { global $PHP_SELF; global $SERVERS; global $rc; global $norobots; global $rsid; global $hostname; global $mirror; global $secure; global $time; global $agent; global $color; global $col; global $err; $c = $col[$color]; $bg = "#666666"; $first_server = ''; if ($mirror && $mirror->name != '') { $page_title = $mirror->name . " Chat Login"; } else { $page_title = "Chat Login"; } TableTopBG($page_title, "", "", "", $c[2]); if ($err) { if ($agent=='NS') { $font1 = ""; $font2 = ""; print "
\n

\n"; } else { print " \n \n"; } TableLine("Debug", "", $c[2]); print "\n"; print " $err \n"; } if ($agent=='NS') { $font1 = ""; $font2 = ""; print " \n \n"; } else { print "\n"; print " \n \n"; } if (preg_match("/backup|^202\.56\.144\.86$/",$hostname)) { TableLine("Backup Servers 1 2 3 MY & TR", "", $c[2]); print "\n"; print " NOTICE THESE ARE BACKUP SERVERS These servers are only a backup and should be used only in case you can not access http://www.alamak.com. If you do not find your normal group of chatters here go to our main US Cluster, or try the US Cluster frequently to see if it is back up again. www.alamak.com \n"; } else { TableLine("Important Notice", "", $c[2]); print " WELCOME TO THE 2025 NEW FASTER ALAMAK CHAT SERVER!! Try The Alamak App for Android!!! \n"; } //If you can not access alamak.com or www.alamak.com please try our backup cluster which is http://backup.alamak.com. Please write down or remember this address in case you can not access the regular servers. This address is also on our list of mirrors in the top right corner of our login page. //http://backup.alamak.com if ($agent=='NS') { $font1 = ""; $font2 = ""; print " \n \n"; } else { print " \n \n"; } TableLine("Step 1: Select a Server", 6, $c[2]); $count = 0; $users = ""; reset($SERVERS); foreach($SERVERS as $key=>$server) { if ($start_server == $server->uid) { $img = "bul_on.gif"; } else { $img = "bul_off.gif"; } $k = $server->scode . "." . $server->default_room; if (!isset($rc[$k]) || $rc[$k] < 1) { $users = ""; } else { $users = " ($rc[$k] users)"; } if ($count%3==0) { print ""; } if ($first_server == $server->uid) { print "\n"; } else { if ($secure) { $vserver = "https://"; if (preg_match("/alamak\.com\.sg$/", $hostname )) { $vserver .= "alamak.com.sg"; } else if (preg_match("/alamak\.com$|alamak\.net$/", $hostname )) { $vserver .= "alamak.com"; } } else { $vserver = "http://"; if ($server->vhost) { $vserver .= $server->vhost; } else if (preg_match("/alamak\.com\.sg$/", $hostname )) { $vserver .= "alamak.com.sg"; } else if (preg_match("/alamak\.com$|alamak\.net$/", $hostname )) { $vserver .= "www.alamak.com"; } else { $vserver .= "failed.alamak.com"; } } print "\n"; } $count++; if ($count%3==0) { print ""; } } if ($count%3!=0) { while ($count%3!=0) { print "\n"; $count++; } print ""; } print " uid\" onClick=\"scook('$server->uid','$server->default_room')\">$server->name$users     uid\" onClick=\"scook('$server->uid','$server->default_room')\">$server->name$users         \n"; reset($SERVERS); foreach($SERVERS as $key=>$server) { if ($start_server == $server->uid) { break; } } if ($err) { if ($agent=='NS') { $font1 = ""; $font2 = ""; print " \n \n"; } else { print " \n \n"; } TableLine("Debuging Notes - Errors", 3, $c[2]); print "\n"; print " $err \n"; } if ($agent=='NS') { $font1 = ""; $font2 = ""; print " \n\n"; TableEnd(); } ?> \n"; } else { print " \n \n"; } TableLine("Step 2: Login $server->name ( $server->vhost )", 3, $c[2]); if ($secure) { print("Sec_URL\">\n"); } else { print("URL\">\n"); } print "\n"; if ($norobots) { print("\n"); } else { print"\n"; } print "\n Nickname   $font1$font2  Pick a nickname, use 3-16 characters including A-Z, a-z, 0-9 Password  $font1$font2  Non-Members use for Password! Members use Operator Password to Login Password  $font1$font2  Non-Member password not required. Members use Operator Password to Login Starting Room  $font1uid',this.options[this.selectedIndex].value)\">\n"; $server->RoomList($override); print"$font2  Frames     "; print "Alt Port URL', '$server->Alt_URL', '$server->Sec_URL', '$server->Sec_Alt_URL');\"\">   "; if ($secure) { print "Secure Ops Login Enabled"; } else { print "uid&use_secure=1\">Secure Ops Login URL', '$server->Alt_URL', '$server->Sec_URL', '$server->Sec_Alt_URL')\">"; } print "   $font1$font2