setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
/**
* Name of the site
*/
$sth = $dbh->prepare("SELECT name,name_in from site_public ".
"where id=:site;");
$sth->bindParam(':site', $my_site, PDO::PARAM_INT);
$sth->execute();
$names = $sth->fetchObject();
$name = $names->name;
$name_in = $names->name_in;
$sth->closeCursor();
/**
* Let's get visitors.
*/
$sth = $dbh->prepare("SELECT nick,CONVERT_TZ(jointime,'UTC','Europe/Helsinki') as jointime ".
"from visitor_public as v, device_public as d ".
"where site=:site and v.id=d.id and leavetime IS NULL");
$sth->bindParam(':site', $my_site, PDO::PARAM_INT);
$sth->execute();
$row = $sth->fetchObject();
print(''.$names->name_in.' tällä hetkellä
');
if ($row === FALSE) {
print(''.$names->name_in.' ei tällä hetkellä ole ketään, joka haluaa tietonsa näkyvän.
');
} else {
print('| Nick | Saapui |
|---|
');
do {
print('| '.htmlspecialchars($row->nick).
' | '.htmlspecialchars($row->jointime).' |
');
} while (($row = $sth->fetchObject()) !== FALSE);
print('
');
}
$sth->closeCursor();
/**
* Last visit time and total.
*/
$sth = $dbh->prepare("
SELECT nick,sec_to_time(sum(time_to_sec(timediff(coalesce(leavetime,utc_timestamp()),jointime)))) as total,
convert_tz((select leavetime from visitor_public as v2
where v2.id=v.id and site=:site_a order by leavetime desc limit 1),
'UTC','Europe/Helsinki') as last_visit
from visitor_public as v, device_public as d
where site=:site_b and v.id=d.id group by v.id");
$sth->bindParam(':site_a', $my_site, PDO::PARAM_INT);
$sth->bindParam(':site_b', $my_site, PDO::PARAM_INT);
$sth->execute();
$row = $sth->fetchObject();
print('Henkilöiden vierailut '.$names->name_in.'
');
if ($row === FALSE) {
print('Kanta on tyhjä.
');
} else {
print('| Nick | Yhteensä paikalla | Lähti viimeksi |
|---|
');
do {
print('| '.htmlspecialchars($row->nick).' | '.
''.htmlspecialchars($row->total).' | '.
''.htmlspecialchars($row->last_visit).' |
');
} while (($row = $sth->fetchObject()) !== FALSE);
print('
');
}
$sth->closeCursor();
?>
Täällä ovat näkyvillä vain niiden henkilöiden tiedot, joiden
Bluetooth-kännykkä on haettavissa ja he ovat antaneet suostumuksensa tietojen
käyttöön tällä sivulla.
Suostumuksen saa annettua kirjoittamalla irkkiin Zouppen -nimimerkille.
Tutustu lähdekoodiin ja kokeile myös itse yhdistää tietokantaan palvelimella zouppen.iki.fi. Koneelle pääsee mm. yliopiston www-palvelimelta käsin ja osoitteista, jotka on ilmoitettu Zouppenille.
Koko projektin lähdekoodit löytyvät myös.