GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

VERSION: add built-in version command

Browse Source
This commit is contained in:
Pragmatic Software 2020-01-19 19:53:45 -08:00
parent 0308806ac0
commit 64cba56698
1 changed files with 34 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
PBot/VERSION.pm
View File

@ -7,8 +7,6 @@
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
# $Id$
package PBot::VERSION;
use strict;
@ -22,17 +20,22 @@ BEGIN {
our @EXPORT_OK = qw(version);
}
use LWP::UserAgent;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 2827,
BUILD_DATE => "2020-01-18",
BUILD_REVISION => 2829,
BUILD_DATE => "2020-01-19",
};
sub new {
my ($class, %conf) = @_;
my $self = bless {}, $class;
$self->{pbot} = delete $conf{pbot} // Carp::croak("Missing pbot reference to " . __FILE__);
$self->{pbot}->{commands}->register(sub { $self->version_cmd(@_) }, "version", 0);
return $self;
}
@ -40,4 +43,31 @@ sub version {
return BUILD_NAME . " version " . BUILD_REVISION . " " . BUILD_DATE;
}
sub version_cmd {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
if (length $arguments) {
if ($arguments eq '-check') {
my $url = $self->{pbot}->{registry}->get_value('version', 'check_url') // 'https://raw.githubusercontent.com/pragma-/pbot/master/PBot/VERSION.pm';
my $ua = LWP::UserAgent->new(timeout => 10);
my $response = $ua->get($url);
return "Unable to get version information: " . $response->status_line if (not $response->is_success);
my $text = $response->decoded_content;
my ($version, $date) = $text =~ m/^\s+BUILD_REVISION => (\d+).*^\s+BUILD_DATE\s+=> "([^"]+)"/ms;
if ($version != BUILD_REVISION) {
return "/say " . $self->version . "; new version available: $version ($date)!";
} else {
return "/say " . $self->version . "; you have the latest version.";
}
} else {
my $nick = $self->{pbot}->{nicklist}->is_present_similar($arguments);
if ($nick) {
return "/say $nick: " . $self->version;
}
}
}
return "/say " . $self->version;
}
1;