sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moved CTCP VERSION reply.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-09 14:43:48 -07:00
1 parent ad0c24cc5d
commit 3df0eced7b
3 files changed
+19 -20
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Core/Cmd.pm
-18
View File
@@ -11,24 +11,6 @@ use API::Std qw(trans has_priv match_user);
use API::Log qw(dbug alog);
use API::IRC qw(notice quit usrc);
sub version_reply
{
my (($svr, @ex)) = @_;
my %src = usrc(substr($ex[0], 1));
if ($ex[3] eq ":\001VERSION\001") {
if (Auto::RSTAGE ne 'd') {
notice($svr, $src{nick}, "VERSION ".Auto::NAME." ".Auto::VER.".".Auto::SVER.".".Auto::REV.Auto::RSTAGE." ".$OSNAME);
}
else {
notice($svr, $src{nick}, "VERSION ".Auto::NAME." ".Auto::VER.".".Auto::SVER.".".Auto::REV.Auto::RSTAGE."-".Auto::GR." ".$OSNAME);
}
}
return 1;
}
# Help hash for MODLOAD. Spanish, French and German needed.
our %HELP_MODLOAD = (
'en' => 'Loads a module into the running Auto live.',
src/Core/IRC.pm
+18
View File
@@ -8,3 +8,21 @@ use strict;
use warnings;
use API::Std qw(hook_add hook_del);
our $VERSION = 3.000000;
# CTCP VERSION reply.
sub version_reply
{
my (($svr, @ex)) = @_;
my %src = usrc(substr($ex[0], 1));
if ($ex[3] eq ":\001VERSION\001") {
if (Auto::RSTAGE ne 'd') {
notice($svr, $src{nick}, "\001VERSION ".Auto::NAME." ".Auto::VER.".".Auto::SVER.".".Auto::REV.Auto::RSTAGE." ".$OSNAME."\001");
}
else {
notice($svr, $src{nick}, "\001VERSION ".Auto::NAME." ".Auto::VER.".".Auto::SVER.".".Auto::REV.Auto::RSTAGE."-".Auto::GR." ".$OSNAME."\001");
}
}
return 1;
}