+sub makeuuid {
+ unless ( -e "$Conf::dbdir/uuid" ) {
+ message("Creating a random key...");
+ open(FILE, "</proc/sys/kernel/random/uuid");
+ my @line = <FILE>;
+ close(FILE);
+
+ open(FILE, ">$Conf::dbdir/uuid");
+ foreach (@line) {
+ print FILE $_;
+ }
+ close(FILE);
+ }
+}
+
+sub senduuid {
+ unless("$Conf::uuid") {
+ $Conf::uuid = `cat $Conf::dbdir/uuid`;
+ }
+ logger("Sending my uuid: $Conf::uuid");
+ fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid", "$Conf::mainserver");
+ system("rm -f $Conf::cachedir/counter.cgi* 2>/dev/null");
+}