hej...
jeg kunne godt tænke mig at få lavet følgende PHP-kode til en delphi-kode således jeg kan køre opgaven via et program!
php-koden:
------------------------------------------------------
<?
include("db.php");
$phptime = time();
if ($_GET[type] == 1) { // om det er planlagt, eller fremskudt
$type = 1;
}
else {
$type = 0;
}
function hentmicrotime() {
list($usec, $sec) = explode(" ",microtime());
return ((float)$usec + (float)$sec);
}
$foresp = mysql_query("SELECT * FROM serv_server ORDER BY host ASC, port ASC") or die(mysql_error());
while($row = mysql_fetch_array($foresp)) {
$id = $row["id"];
$host = $row["host"];
$port = $row["port"];
$start = hentmicrotime();
if ($fp = @fsockopen($host,$port,$errno,$errstr,3)) {
$slut = hentmicrotime();
$svartid = $slut - $start;
$respons = substr($svartid,0,6);
fclose($fp);
mysql_query("insert into serv_status (type,host,port,tidspunkt,respons) values ('$type','$id','$port','$phptime','$respons')") or die(mysql_error());
$status .= "<b>" . $host . "</b> blev pinget på port <b>" . $port . "</b> med en svartid på <b>" . $respons . "</b> sek<br>";
}
else {
mysql_query("insert into serv_status (type,host,port,tidspunkt,error) values ('$type','$id','$port','$phptime','$errno')") or die(mysql_error());
$status .= "<b>" . $host . "</b> blev pinget på port <b>" . $port . "</b> men svarede ikke! Følgende fejlmeddelse fremkom: <b>" . $errstr . "</b><br>";
}
}
if ($type == 0) {
echo $status;
}
?>
------------------------------------------------------
mysql-tabellerne ser således ud:
-----------------------------------------------------------------
CREATE TABLE `serv_server` (
`id` int(12) NOT NULL auto_increment,
`host` varchar(55) NOT NULL default '',
`port` int(12) NOT NULL default '0',
PRIMARY KEY (`id`)
) TYPE=MyISAM AUTO_INCREMENT=6 ;
CREATE TABLE `serv_status` (
`id` int(12) NOT NULL auto_increment,
`type` int(1) NOT NULL default '1',
`host` int(12) NOT NULL default '0',
`port` int(12) NOT NULL default '0',
`tidspunkt` int(12) NOT NULL default '0',
`respons` varchar(55) NOT NULL default '',
`error` int(12) NOT NULL default '0',
PRIMARY KEY (`id`)
) TYPE=MyISAM AUTO_INCREMENT=229 ;
----------------------------------------------------------
kan det lade sig gøre?
på forhånd tak
-------------------------------------------------------
hellere dø i counter-strike end i virkeligheden!