From 73555fc86ddc2021610ab944855b11d1c19816e6 Mon Sep 17 00:00:00 2001 From: timriker Date: Fri, 14 Nov 2003 04:19:25 +0000 Subject: [PATCH] standard TODO: and FIXME: git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@890 c11ca15a-4712-0410-83d8-924469b57eb5 --- blootbot | 4 +--- files/blootbot.help | 10 +++++----- files/sample/blootbot.config | 4 ++-- src/CommandStubs.pl | 13 +++++++------ src/DynaConfig.pl | 4 ++-- src/Factoids/Core.pl | 12 ++++++------ src/Factoids/Norm.pl | 2 +- src/Factoids/Question.pl | 6 +++--- src/Factoids/Reply.pl | 4 ++-- src/Factoids/Update.pl | 2 +- src/IRC/IrcHelpers.pl | 4 ++-- src/IRC/IrcHooks.pl | 9 +++++---- src/IRC/Schedulers.pl | 16 ++++++++-------- src/Modules/Debian.pl | 6 +++--- src/Modules/Dict.pl | 2 ++ src/Modules/Factoids.pl | 4 ++-- src/Modules/News.pl | 32 ++++++++++++++++---------------- src/Modules/RootWarn.pl | 2 +- src/Modules/UserDCC.pl | 10 +++++----- src/Modules/babel.pl | 2 +- src/Net.pl | 4 ++-- src/Process.pl | 2 +- src/UserExtra.pl | 6 +++--- src/logger.pl | 6 +++--- src/modules.pl | 2 +- 25 files changed, 85 insertions(+), 83 deletions(-) diff --git a/blootbot b/blootbot index 323c122..4ef62d5 100755 --- a/blootbot +++ b/blootbot @@ -62,9 +62,7 @@ exit 0; # just so you don't look farther down in this file :) # --- support routines -# FIXME. -# add arguments, basically '-h' and '--help', heh. -# +# FIXME: add arguments, basically '-h' and '--help', heh. # added by the xk sub duperuncheck { diff --git a/files/blootbot.help b/files/blootbot.help index 5004e54..7f7e886 100644 --- a/files/blootbot.help +++ b/files/blootbot.help @@ -56,12 +56,12 @@ babelfish: U: x babelfish: U: translate babelfish: E: x en de your cars rock --ban: D: FIXME. +-ban: D: FIXME: -ban: U: ## -ban: E: ## *!*@owns.org -ban: E: ## MoronMan -+ban: D: FIXME. ++ban: D: FIXME: +ban: U: ## [chan] [time] [reason] +ban: E: ## *!*@owns.org #bots 60 stop flooding. +ban: E: ## *!*@*microsoft.com STOOPID @@ -195,7 +195,7 @@ httpdtype: D: Get httpd server software version / configuration httpdtype: U: ## httpdtype: E: ## example.com -ignore: D: FIXME +ignore: D: FIXME: ignore: E: ## [mask chan expire comment] ircstats: ircstats dumps some status information on the bot's IRC connection @@ -390,12 +390,12 @@ uptime: U: ## wantnick: If someone's taken my nick (I hope not) and I'm using some temporary nick, I can change back to my original nick if it's not taken (again). --host: D: FIXME. +-host: D: FIXME: -host: U: ## [user] -host: E: ## *!*@owns.org -host: E: ## owner leet!leet@*.heh.org -+host: D: FIXME. ++host: D: FIXME: +host: U: ## [user] +host: E: ## *!*@owns.org +host: E: ## owner leet!leet@*.heh.org diff --git a/files/sample/blootbot.config b/files/sample/blootbot.config index 8bd2953..b140dff 100644 --- a/files/sample/blootbot.config +++ b/files/sample/blootbot.config @@ -121,7 +121,7 @@ set allowTelling 1 # Factoid related and unrelated features, mainly Extras. ##### -# [str] addressing is when you name the bot. FIXME +# [str] addressing is when you name the bot. FIXME: # REQUIRE -- the bot only does something if addressed. # OPTIONAL -- the bot responds (does not learn) irrelevent of # addressing. @@ -275,7 +275,7 @@ set userinfo true # [0/1] Uptime daemon set uptime true -# [0/1] Wingate checking and banning mechanism. FIXME. +# [0/1] Wingate checking and banning mechanism. FIXME: ###set wingate false # [int] seconds. minimum time to check. set wingateInterval 60 diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl index 7da444e..a2f00ef 100644 --- a/src/CommandStubs.pl +++ b/src/CommandStubs.pl @@ -3,7 +3,8 @@ # WARN: this file does not reload on HUP. # -# use strict; # TODO +# TODO: +# use strict; use vars qw($who $msgType $conn $chan $message $ident $talkchannel $bot_version $babel_lang_regex $bot_data_dir); @@ -850,7 +851,7 @@ sub do_text_counters { if (!defined $arg or $arg =~ /^\s*$/) { # this is way fucking ugly. - # TODO convert $where to hash + # TODO: convert $where to hash my %hash = &sqlSelectColHash("stats", "nick,counter", { }, $where." ORDER BY counter DESC LIMIT 3", 1 @@ -878,7 +879,7 @@ sub do_text_counters { &pSReply("zero counter for \037$type\037."); } } else { - # TODO convert $where to hash and use a sqlSelect + # TODO: convert $where to hash and use a sqlSelect my $x = (&sqlRawReturn("SELECT SUM(counter) FROM stats". " WHERE $where AND nick=".&sqlQuote($arg) ))[0]; @@ -888,7 +889,7 @@ sub do_text_counters { } # defined. - # TODO convert $where to hash + # TODO: convert $where to hash my @array = &sqlSelect("stats", "nick", undef, $where." ORDER BY counter", 1 ); @@ -962,7 +963,7 @@ sub textstats_main { return; } - # TODO add nick to where_href + # TODO: add nick to where_href my %hash = &sqlSelectColHash("stats", "type,counter", $where_href, " AND nick=".&sqlQuote($arg) ); @@ -975,7 +976,7 @@ sub textstats_main { foreach (keys %hash) { &DEBUG("_stats: hash{$_} => $hash{$_}"); # ranking. - # TODO convert $where to hash + # TODO: convert $where to hash my @array = &sqlSelect("stats", "nick", undef, $where." ORDER BY counter", 1); $good = 0; diff --git a/src/DynaConfig.pl b/src/DynaConfig.pl index f6f0666..6b4ee5a 100644 --- a/src/DynaConfig.pl +++ b/src/DynaConfig.pl @@ -443,7 +443,7 @@ sub writeChanFile { ##### USER COMMANDS. ##### -# todo: support multiple flags, eg: "+o-m" +# TODO: support multiple flags, eg: "+o-m" sub IsFlag { my $flags = shift; my ($ret, $f, $o) = ""; @@ -575,7 +575,7 @@ sub ignoreAdd { $ignore{$chan}{$mask} = [$expire, time(), $who, $comment]; - # todo: improve this. + # TODO: improve this. if ($expire == 0) { &status("ignore: Added $mask for $chan to NEVER expire, by $who, for $comment"); } else { diff --git a/src/Factoids/Core.pl b/src/Factoids/Core.pl index b3d009d..2e79107 100644 --- a/src/Factoids/Core.pl +++ b/src/Factoids/Core.pl @@ -156,7 +156,7 @@ sub FactoidStuff { return; } - # todo: squeeze 3 getFactInfo calls into one? + # TODO: squeeze 3 getFactInfo calls into one? my $author = &getFactInfo($faqtoid, "created_by"); my $count = &getFactInfo($faqtoid, "requested_count") || 0; # don't delete if requested $limit times @@ -200,7 +200,7 @@ sub FactoidStuff { # this may eat some memory. # prevent deletion if other factoids redirect to it. - # todo: use hash instead of array. + # TODO: use hash instead of array. my @list; if (&getChanConf("factoidPreventForgetRedirect")) { &status("Factoids/Core: forget: checking for redirect factoids"); @@ -219,7 +219,7 @@ sub FactoidStuff { $match++; } - # todo: warn for op aswell, but allow force delete. + # TODO: warn for op aswell, but allow force delete. if (!$isop and $match) { &msg($who, "uhm, other (redirection) factoids depend on this one."); return; @@ -235,8 +235,8 @@ sub FactoidStuff { } # ignore. - # todo: make forget limit configurable. - # todo: make forget ignore time configurable. + # TODO: make forget limit configurable. + # TODO: make forget ignore time configurable. if ($cache{forget}{$h} > 5) { &ignoreAdd(&makeHostMask($nuh), "*", 3*24*60, "abuse of forget"); &msg($who, "forget: Ignoring you for abuse!"); @@ -326,7 +326,7 @@ sub FactoidStuff { # &setFactInfo($faqtoid, "modified_time", 0); $check = &getFactoid($faqtoid); - # todo: check if $faqtoid." #DEL#" exists? + # TODO: check if $faqtoid." #DEL#" exists? if (defined $check) { &performReply("Successfully recovered '$faqtoid'. Have fun now."); $count{'Undelete'}++; diff --git a/src/Factoids/Norm.pl b/src/Factoids/Norm.pl index 028c72e..d58d4ed 100644 --- a/src/Factoids/Norm.pl +++ b/src/Factoids/Norm.pl @@ -4,7 +4,7 @@ # Version: 1997 # -# todo: +# TODO: # use strict; sub normquery { diff --git a/src/Factoids/Question.pl b/src/Factoids/Question.pl index 7a04977..3e93b05 100644 --- a/src/Factoids/Question.pl +++ b/src/Factoids/Question.pl @@ -186,7 +186,7 @@ sub factoidArgs { # to make it eleeter, split each arg and use "blah OR blah or BLAH" # which will make it less than linear => quicker! - # todo: cache this, update cache when altered. !!! !!! !!! + # TODO: cache this, update cache when altered. !!! !!! !!! # my $t = &timeget(); my ($first) = split(/\s+/, $str); my @list = &searchTable("factoids", "factoid_key", "factoid_key", "^CMD: $first "); @@ -205,7 +205,7 @@ sub factoidArgs { # &DEBUG("factarg: '$str' =~ /^$_\$/"); my $arg = $_; - # todo: ~punish apt for (Eating) (Parentheses) + # TODO: ~punish apt for (Eating) (Parentheses) # how the hell do I fix the above? -dms. # eval (evil!) code. cleaned up courtesy of lear. @@ -229,7 +229,7 @@ sub factoidArgs { # &DEBUG("vals => @vals"); &status("Question: factoid Arguments for '$str'"); - # todo: use getReply() - need to modify it :( + # TODO: use getReply() - need to modify it :( my $i = 0; my $q = "CMD: $_"; my $r = &getFactoid($q); diff --git a/src/Factoids/Reply.pl b/src/Factoids/Reply.pl index 056f947..4c8a44d 100644 --- a/src/Factoids/Reply.pl +++ b/src/Factoids/Reply.pl @@ -71,7 +71,7 @@ sub getReply { requested_count => $count } ); - # todo: rename $real to something else! + # TODO: rename $real to something else! my $real = 0; # my $author = &getFactInfo($lhs,"created_by") || ''; # $real++ if ($author =~ /^\Q$who\E\!/); @@ -240,7 +240,7 @@ sub substVars { my($reply,$flag) = @_; # $date, $time. - # todo: support localtime. + # TODO: support localtime. my $date = scalar(gmtime()); $date =~ s/\:\d+(\s+\w+)\s+\d+$/$1/; $reply =~ s/\$date/$date/gi; diff --git a/src/Factoids/Update.pl b/src/Factoids/Update.pl index c41c9e6..2a02b24 100644 --- a/src/Factoids/Update.pl +++ b/src/Factoids/Update.pl @@ -121,7 +121,7 @@ sub update { if ($also) { # 'is also'. if ($exists =~ /^ see /i) { - &DEBUG("Update.pl: todo: append to linked factoid."); + &TODO("Update.pl: append to linked factoid."); } if ($also_or) { # 'is also ||'. diff --git a/src/IRC/IrcHelpers.pl b/src/IRC/IrcHelpers.pl index 8055c4f..aa69201 100644 --- a/src/IRC/IrcHelpers.pl +++ b/src/IRC/IrcHelpers.pl @@ -316,7 +316,7 @@ sub chanLimitVerify { &chanServCheck($chan); - ### todo: unify code with chanlimitcheck() + ### TODO: unify code with chanlimitcheck() return if ($delta > 5); &status("clc: big change in limit for $chan ($delta);". @@ -350,7 +350,7 @@ sub chanServCheck { } # check for first hash then for next hash. - # todo: a function for &ischanop()? &isvoice()? + # TODO: a function for &ischanop()? &isvoice()? if (exists $channels{$chan} and exists $channels{$chan}{'o'}{$ident}) { return 0; } diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl index 9c9d87c..5a18b7c 100644 --- a/src/IRC/IrcHooks.pl +++ b/src/IRC/IrcHooks.pl @@ -69,7 +69,7 @@ sub on_chat { ### TODO: prevent users without CRYPT chatting. if (!defined $crypto) { - &DEBUG("todo: dcc close chat"); + &TODO("dcc close chat"); &msg($who, "nope, no guest logins allowed..."); return; } @@ -344,7 +344,7 @@ sub on_dcc_open_chat { my $crypto = $users{$userHandle}{PASS}; $dcc{'CHAT'}{$nick} = $sock; - # todo: don't make DCC CHAT established in the first place. + # TODO: don't make DCC CHAT established in the first place. if ($userHandle eq "_default") { &dccsay($nick, "_default/guest not allowed"); $sock->close(); @@ -694,7 +694,7 @@ sub on_nick { $channels{$chan}{$mode}{$newnick} = $channels{$chan}{$mode}{$nick}; } } - # todo: do %flood* aswell. + # TODO: do %flood* aswell. &delUserInfo($nick, keys %channels); $nuh{lc $newnick} = $nuh{lc $nick}; @@ -735,6 +735,7 @@ sub on_nick_taken { sub on_notice { my ($self, $event) = @_; + #$conn = $self; <- ugly hack or elegant solution? my $nick = $event->nick(); my $chan = ($event->to)[0]; my $args = ($event->args)[0]; @@ -855,7 +856,7 @@ sub on_public { $uh = $event->userhost(); $nuh = $nick."!".$uh; $msgType = "public"; - # todo: move this out of hookMsg to here? + # TODO: move this out of hookMsg to here? ($user,$host) = split(/\@/, $uh); $h = $host; diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl index bf254ba..00dabb3 100644 --- a/src/IRC/Schedulers.pl +++ b/src/IRC/Schedulers.pl @@ -77,10 +77,10 @@ sub setupSchedulers { &kernelLoop(2); &wingateWriteFile(2); &factoidCheck(2); # takes a couple of seconds on a 486. defer it -# todo: convert to new format... or nuke altogether. +# TODO: convert to new format... or nuke altogether. &newsFlush(1); - # todo: squeeze this into a one-liner. + # TODO: squeeze this into a one-liner. # my $count = map { exists $sched{$_}{TIME} } keys %sched; my $count = 0; foreach (keys %sched) { @@ -327,7 +327,7 @@ sub newsFlush { next unless (time() > $t); - # todo: show how old it was. + # TODO: show how old it was. delete $::news{$chan}{$item}; &status("NEWS: (newsflush) deleted '$item'"); $delete++; @@ -338,7 +338,7 @@ sub newsFlush { $none{$chan} = 1 if ($total == $i); } - # todo: flush users aswell. + # TODO: flush users aswell. my $duser = 0; foreach $chan (keys %::newsuser) { next if (exists $none{$chan}); @@ -683,10 +683,10 @@ sub ircCheck { &joinNextChan(); } - # todo: fix on_disconnect() + # TODO: fix on_disconnect() if (time() - $msgtime > 3600) { - # todo: shouldn't we use cache{connect} somewhere? + # TODO: shouldn't we use cache{connect} somewhere? if (exists $cache{connect}) { &WARN("ircCheck: no msg for 3600 and disco'd! reconnecting!"); $msgtime = time(); # just in case. @@ -812,7 +812,7 @@ sub miscCheck2 { closedir DEBIAN; # compress logs that should have been compressed. - # todo: use strftime? + # TODO: use strftime? my ($day,$month,$year) = (gmtime(time()))[3,4,5]; my $date = sprintf("%04d%02d%02d",$year+1900,$month+1,$day); @@ -963,7 +963,7 @@ sub wingateCheck { undef @wingateNow; } -### TODO. +### TODO: ?? sub wingateWriteFile { if (@_) { &ScheduleThis(60, "wingateWriteFile"); diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl index 45d7834..0e79930 100644 --- a/src/Modules/Debian.pl +++ b/src/Modules/Debian.pl @@ -8,7 +8,7 @@ package Debian; use strict; -no strict 'refs'; # FIXME dstats aborts if set +no strict 'refs'; # FIXME: dstats aborts if set my $announce = 0; my $defaultdist = "sid"; @@ -691,7 +691,7 @@ sub infoPackages { if (! -f $files[0]) { &::WARN("files[0] ($files[0]) doesn't exist."); - &::msg($::who, "WARNING: $files[0] does not exist? FIXME"); + &::msg($::who, "FIXME: $files[0] does not exist?"); return 'NULL'; } @@ -1111,7 +1111,7 @@ sub debianCheck { while (defined($file = readdir DEBIAN)) { next unless ($file =~ /(gz|bz2)$/); - # todo: add bzip2 support (debian doesn't do .bz2 anyway) + # TODO: add bzip2 support (debian doesn't do .bz2 anyway) my $exit = system("/bin/gzip -t '$debian_dir/$file'"); next unless ($exit); &::DEBUG("deb: hmr... => ".(time() - (stat($file))[8])."'."); diff --git a/src/Modules/Dict.pl b/src/Modules/Dict.pl index 38d81cd..d310491 100644 --- a/src/Modules/Dict.pl +++ b/src/Modules/Dict.pl @@ -4,6 +4,8 @@ # Version: v0.6c (20000924). # Created: 19990914. # +# see http://luetzschena-stahmeln.de/dictd/ +# for a list of dict servers package Dict; diff --git a/src/Modules/Factoids.pl b/src/Modules/Factoids.pl index 438471f..298e85d 100644 --- a/src/Modules/Factoids.pl +++ b/src/Modules/Factoids.pl @@ -236,7 +236,7 @@ sub CmdFactStats { push(@list, "total prepared for deletion - $str"); # total unique authors. - # todo: convert to sqlSelectColHash ? (or ColArray?) + # TODO: convert to sqlSelectColHash ? (or ColArray?) foreach ( &sqlRawReturn("SELECT created_by FROM factoids WHERE created_by IS NOT NULL") ) { /^(\S+)!/; my $nick = lc $1; @@ -728,7 +728,7 @@ sub CmdFactStats { return &formListReply(1, $prefix, @list); } elsif ($type =~ /^unrequest(ed)?$/i) { - # todo: use sqlSelect() + # TODO: use sqlSelect() my ($count) = &sqlRawReturn("SELECT COUNT(*) FROM factoids WHERE requested_count = '0'"); return "Unrequested factoids: $count"; diff --git a/src/Modules/News.pl b/src/Modules/News.pl index caee5f1..a2d7c3e 100644 --- a/src/Modules/News.pl +++ b/src/Modules/News.pl @@ -40,7 +40,7 @@ sub Parse { } if (defined $what and $what =~ s/^($::mask{chan})\s*//) { - # todo: check if the channel exists aswell. + # TODO: check if the channel exists aswell. $chan = lc $1; if (!&::IsNickInChan($who, $chan)) { @@ -118,7 +118,7 @@ sub Parse { } elsif ($what =~ /^(un)?notify$/i) { my $state = ($1) ? 0 : 1; - # todo: don't notify even if "news" is called. + # TODO: don't notify even if "news" is called. if (!&::IsChanConf("newsNotifyAll")) { &::DEBUG("news: chan => $chan, ::chan => $::chan."); &::notice($who, "not available for this channel or disabled altogether."); @@ -167,7 +167,7 @@ sub readNews { while () { chop; - # todo: allow commands. + # TODO: allow commands. if (/^[\s\t]+(\S+):[\s\t]+(.*)$/) { if (!defined $item) { @@ -218,7 +218,7 @@ sub writeNews { return; } - # todo: add commands to output file. + # TODO: add commands to output file. my $c = 0; my($cc,$ci,$cu) = (0,0,0); @@ -243,7 +243,7 @@ sub writeNews { } } - # todo: show how many users we wrote down. + # TODO: show how many users we wrote down. if (&::getChanConfList("newsKeepRead")) { # old users are removed in newsFlush(), perhaps it should be # done here. @@ -353,7 +353,7 @@ sub del { $auth++ if (&::IsFlag("o")); if (!$auth) { - # todo: show when it'll expire. + # TODO: show when it'll expire. &::notice($who, "Sorry, you cannot remove items; just let them expire on their own."); return; } @@ -420,7 +420,7 @@ sub list { next; } - # todo: show request stats aswell. + # TODO: show request stats aswell. &::msg($who, sprintf("\002[\002%2d\002]\002%s %s", $i, $chr, $subtopic)); $i++; @@ -452,7 +452,7 @@ sub read { my $item = &getNewsItem($str); if (!defined $item or !scalar keys %{ $::news{$chan}{$item} }) { - # todo: numerical check. + # TODO: numerical check. if ($str =~ /^(\d+)[-, ](\d+)$/ or $str =~ /^-(\d+)$/ or $str =~ /^(\d+)-$/ or 0 @@ -536,9 +536,9 @@ sub mod { } ### TODO: use m### to make code safe! - # todo: make code safer. + # TODO: make code safer. my $done = 0; - # todo: use eval to deal with flags easily. + # TODO: use eval to deal with flags easily. if ($flags eq "") { $done++ if (!$done and $mod_news =~ s/\Q$op\E/$np/); $done++ if (!$done and $mod_nnews =~ s/\Q$op\E/$np/); @@ -642,7 +642,7 @@ sub set { } if ($what eq "Expire") { - # todo: use do_set(). + # TODO: use do_set(). my $time = 0; my $plus = ($value =~ s/^\+//g); @@ -706,12 +706,12 @@ sub set { } if (!$auth) { - # todo: show when it'll expire. + # TODO: show when it'll expire. &::notice($who, "Sorry, you cannot set items. (author $author owns it)"); return; } - # todo: clean this up. + # TODO: clean this up. my $old = $::news{$chan}{$news}{$what}; if (defined $old) { &::DEBUG("news: old => $old."); @@ -727,7 +727,7 @@ sub latest { $chan = $tchan; $who = $::who; - # todo: if chan = undefined, guess. + # TODO: if chan = undefined, guess. # if (!exists $::news{$chan}) { if (!exists $::channels{$chan}) { &::notice($who, "invalid chan $chan") if ($flag); @@ -844,7 +844,7 @@ sub latest { } ); } - # todo: implement throttling via schedule into ¬ice() / &msg(). + # TODO: implement throttling via schedule into ¬ice() / &msg(). $::conn->schedule(int((2+$i)/2), sub { &::notice($who, "|= to read, do \002news $chan read <#>\002 or \002news $chan read \002"); } ); @@ -989,7 +989,7 @@ sub do_set { return; } - &::DEBUG("news: do_set: TODO..."); + &::TODO("news: do_set:"); } sub stats { diff --git a/src/Modules/RootWarn.pl b/src/Modules/RootWarn.pl index 647cffe..ae44676 100644 --- a/src/Modules/RootWarn.pl +++ b/src/Modules/RootWarn.pl @@ -70,7 +70,7 @@ sub rootWarn { } # Extras function. -# todo: support arguments to get info on a particular nick? +# TODO: support arguments to get info on a particular nick? sub CmdrootWarn { my $reply; my $count = &countKeys("rootwarn"); diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl index f287c76..49a9172 100644 --- a/src/Modules/UserDCC.pl +++ b/src/Modules/UserDCC.pl @@ -22,7 +22,7 @@ sub userDCC { # quit. if ($message =~ /^(exit|quit)$/i) { # do ircII clients support remote close? if so, cool! - &status("userDCC: quit called. FIXME"); + &FIXME("userDCC: quit called."); &dcc_close($who); &status("userDCC: after dcc_close!"); @@ -339,7 +339,7 @@ sub userDCC { &DEBUG("chan => '$1', msg => '$msg'."); - # todo: add nick destination. + # TODO: add nick destination. if (&validChan($chan)) { &msg($chan, $msg); } else { @@ -921,7 +921,7 @@ sub userDCC { $user = &getUser($args[0]); $mask = $args[1]; } else { # - # who or verifyUser. FIXME (don't remember why) + # FIXME: who or verifyUser. (don't remember why) $user = &getUser($who); $mask = $args[0]; } @@ -932,7 +932,7 @@ sub userDCC { } if (!defined $mask) { - ### FIXME. + ### FIXME: &pSReply("Hostmasks for $user: $users{$user}{HOSTS}"); return; @@ -1225,7 +1225,7 @@ sub userDCC { } if ( &ignoreAdd($mask, $chan, $time, $comment) > 1) { - &pSReply("warn: $mask already in ignore list; written over anyway. FIXME"); + &pSReply("FIXME: $mask already in ignore list; written over anyway."); } else { &pSReply("added $mask to ignore list."); } diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl index 56dc427..1de131c 100644 --- a/src/Modules/babel.pl +++ b/src/Modules/babel.pl @@ -107,7 +107,7 @@ sub translate { &main::DEBUG("$translated\n===remove to first ':', optional Help\n"); $translated =~ s/\n/ /g; - # FIXME should we do unicode->iso + # FIXME: should we do unicode->iso (no. use utf8!) } else { $translated = ":("; # failure } diff --git a/src/Net.pl b/src/Net.pl index 082c856..c08341c 100644 --- a/src/Net.pl +++ b/src/Net.pl @@ -77,7 +77,7 @@ sub ftpGet { if (defined $lsize) { &DEBUG("FTP: locsize => '$lsize'."); if ($size != $lsize) { - &WARN("FTP: downloaded file seems truncated. FIXME."); + &FIXME("FTP: downloaded file seems truncated."); } } @@ -145,7 +145,7 @@ sub ftpList { ### LWP. # Usage: &getURL($url, [$post]); -# todo: rename this to getHTTP +# TODO: rename this to getHTTP sub getURL { my ($url,$post) = @_; my ($ua,$res,$req); diff --git a/src/Process.pl b/src/Process.pl index 8b58869..286215b 100644 --- a/src/Process.pl +++ b/src/Process.pl @@ -157,7 +157,7 @@ sub process { return; } - # todo: use &getUser()? + # TODO: use &getUser()? my $first = 1; foreach (keys %users) { if ($users{$_}{FLAGS} =~ /n/) { diff --git a/src/UserExtra.pl b/src/UserExtra.pl index b11f221..69df451 100644 --- a/src/UserExtra.pl +++ b/src/UserExtra.pl @@ -164,7 +164,7 @@ sub chaninfo { $new{$_} = $userstats{$_}{'Count'}; } - # todo: show top 3 with percentages? + # TODO: show top 3 with percentages? my($count) = (sort { $new{$a} <=> $new{$b} } keys %new)[0]; if ($count) { $reply .= ". \002$count\002 has said the most with a total of \002$new{$count}\002 messages"; @@ -486,7 +486,7 @@ sub do_countrystats { push(@list, "$str ($_, $perc %)"); } - # todo: move this into a scheduler like nickometer + # TODO: move this into a scheduler like nickometer $msgType = "private"; &pSReply( &formListReply(0, "Country Stats ", @list) ); @@ -869,7 +869,7 @@ if (0) { } # idea from dondelecarlo :) - # todo: use cache{nickserv} + # TODO: use cache{nickserv} if ($param{'nickServ_pass'}) { return if ($param{'ircNick'} eq $ident or $force == 0); diff --git a/src/logger.pl b/src/logger.pl index a74602d..e6c530a 100644 --- a/src/logger.pl +++ b/src/logger.pl @@ -376,7 +376,7 @@ sub debug_perl { return; } - # todo: better filename. + # TODO: better filename. open(OUT, ">>debug.log"); print OUT "DEBUG: $str\n"; @@ -386,8 +386,8 @@ sub debug_perl { chop; $i++; # bleh. this tries to duplicate status(). - # todo: statcountfix - # todo: rename to log_*someshit* + # TODO: statcountfix + # TODO: rename to log_*someshit* if ($i == $line) { my $msg = "$file: $i:!$_"; printf "%s[%6d]%s %s\n", $_green, $statcount, $ob, $msg; diff --git a/src/modules.pl b/src/modules.pl index 7de063a..a86900c 100644 --- a/src/modules.pl +++ b/src/modules.pl @@ -87,7 +87,7 @@ sub loadCoreModules { sub loadDBModules { my $f; - # todo: use function to load module. + # TODO: use function to load module. if ($param{'DBType'} =~ /^(mysql|SQLite|pgsql)$/i) { eval "use DBI"; -- 2.39.2