$notsize = 0;
$notcount = 0;
###
-$bot_release = "1.3.3";
-if ( -d 'CVS' ) {
- use POSIX qw(strftime);
- $bot_release .= strftime(" cvs (%Y%m%d)", gmtime( (stat('CVS'))[9] ) );
-}
-$bot_version = "blootbot $bot_release -- $^O";
+open(VERSION, '<VERSION');
+$bot_release = <VERSION> || "(unknown version)";
+chomp($bot_release);
+close(VERSION);
+$bot_version = "infobot $bot_release -- $^O";
$noreply = 'NOREPLY';
##########
&status("parent caught SIG$sig (pid $$).") if (defined $sig);
&status("--- Start of quit.");
- $ident ||= 'blootbot'; # lame hack.
+ $ident ||= 'infobot'; # lame hack.
&status("Memory Usage: $memusage KiB");
}
# Usage: &IsParam($param);
-# blootbot.config specific.
+# infobot.config specific.
sub IsParam {
my $param = $_[0];
&status("--- Started logging.");
# read.
- &loadLang($bot_data_dir. "/blootbot.lang");
+ &loadLang($bot_data_dir. "/infobot.lang");
&loadIRCServers();
&readUserFile();
&readChanFile();
sub setupConfig {
$param{'VERBOSITY'} = 1;
- &loadConfig($bot_config_dir."/blootbot.config");
+ &loadConfig($bot_config_dir."/infobot.config");
foreach ( qw(ircNick ircUser ircName DBType tempDir) ) {
next if &IsParam($_);
&status("--- shutdown called.");
# hack.
- $ident ||= 'blootbot';
+ $ident ||= 'infobot';
- if (!&isFileUpdated("$bot_state_dir/blootbot.users", $wtime_userfile)) {
+ if (!&isFileUpdated("$bot_state_dir/infobot.users", $wtime_userfile)) {
&writeUserFile()
}
- if (!&isFileUpdated("$bot_state_dir/blootbot.chan", $wtime_chanfile)) {
+ if (!&isFileUpdated("$bot_state_dir/infobot.chan", $wtime_chanfile)) {
&writeChanFile();
}
&DCCBroadcast("-HUP called.",'m');
&shutdown($sig);
- &loadConfig($bot_config_dir."/blootbot.config");
+ &loadConfig($bot_config_dir."/infobot.config");
&reloadAllModules() if (&IsParam('DEBUG'));
&setup();
}
1;
+
+# vim:ts=4:sw=4:expandtab:tw=80