2010-03-12 10:45:23 +01:00
|
|
|
#!/usr/bin/php
|
|
|
|
<?php
|
|
|
|
|
2012-05-14 12:50:10 +02:00
|
|
|
$verbose = 0;
|
|
|
|
if (isset($argv[1])) {
|
|
|
|
if ($argv[1] == "-h" || $argv[1] == "--help") {
|
|
|
|
print "Usage: " . $argv[0] . " [-h|--help] [-v]\n";
|
|
|
|
exit(1);
|
|
|
|
}
|
2010-03-12 10:45:23 +01:00
|
|
|
|
2012-05-14 12:50:10 +02:00
|
|
|
if ($argv[1] && $argv[1] != "-v") {
|
|
|
|
print $argv[0] . ": invalid option -- '" . $argv[0] . "'\n";
|
|
|
|
print "Try `" . $argv[0] . " --help' for more information.\n";
|
|
|
|
exit(1);
|
|
|
|
}
|
2010-03-12 10:45:23 +01:00
|
|
|
|
2012-05-14 12:50:10 +02:00
|
|
|
$verbose = $argv[1] == "-v";
|
|
|
|
}
|
2010-03-12 10:45:23 +01:00
|
|
|
|
|
|
|
set_include_path(get_include_path() . PATH_SEPARATOR .
|
|
|
|
"/usr/share/ykval:/etc/ykval");
|
|
|
|
|
|
|
|
require_once 'ykval-config.php';
|
2012-05-14 12:42:51 +02:00
|
|
|
require_once 'ykval-db.php';
|
2010-03-12 10:45:23 +01:00
|
|
|
|
|
|
|
$logname="ykval-checksum-clients";
|
|
|
|
$myLog = new Log($logname);
|
|
|
|
|
|
|
|
$db=new Db($baseParams['__YKVAL_DB_DSN__'],
|
|
|
|
$baseParams['__YKVAL_DB_USER__'],
|
|
|
|
$baseParams['__YKVAL_DB_PW__'],
|
|
|
|
$baseParams['__YKVAL_DB_OPTIONS__'],
|
|
|
|
$logname . ':db');
|
|
|
|
|
|
|
|
if (!$db->connect()) {
|
|
|
|
$myLog->log(LOG_WARNING, "Could not connect to database");
|
|
|
|
exit(1);
|
|
|
|
}
|
|
|
|
|
|
|
|
$everything = "";
|
|
|
|
$result=$db->customQuery("SELECT id, active, secret ".
|
|
|
|
"FROM clients ".
|
|
|
|
"ORDER BY id");
|
|
|
|
while($row = $result->fetch(PDO::FETCH_ASSOC)) {
|
2010-03-12 11:10:24 +01:00
|
|
|
if ($row['active'] == "") {
|
2010-03-12 11:09:19 +01:00
|
|
|
# For some reason PostgreSQL returns empty strings for false values?!
|
|
|
|
$row['active'] = "0";
|
|
|
|
}
|
2010-03-12 10:45:23 +01:00
|
|
|
$everything = $everything .
|
|
|
|
$row['id'] . "\t" . $row['active'] . "\t" . $row['secret'] .
|
|
|
|
"\n";
|
|
|
|
}
|
|
|
|
|
|
|
|
$hash = sha1 ($everything);
|
|
|
|
|
|
|
|
if ($verbose) {
|
|
|
|
print $everything;
|
|
|
|
}
|
|
|
|
print substr ($hash, 0, 10) . "\n";
|
|
|
|
|
|
|
|
$result=null;
|
|
|
|
$db=null;
|
|
|
|
|
|
|
|
?>
|