mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:45:40 -04:00
52 lines
1.2 KiB
Perl
52 lines
1.2 KiB
Perl
package Bot::BB3::Plugin::Package;
|
|
use POE::Component::IRC::Common qw/l_irc/;
|
|
use DBD::SQLite;
|
|
use strict;
|
|
|
|
sub new {
|
|
my( $class ) = @_;
|
|
my $self = bless {}, $class;
|
|
$self->{name} = "package";
|
|
$self->{opts} = {
|
|
command => 1,
|
|
};
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub dbh {
|
|
my( $self ) = @_;
|
|
|
|
if( $self->{dbh} and $self->{dbh}->ping ) {
|
|
return $self->{dbh};
|
|
}
|
|
|
|
my $dbh = $self->{dbh} = DBI->connect( "dbi:SQLite:dbname=var/perlpacks.db", "", "", { PrintError => 0, RaiseError => 1 } );
|
|
|
|
return $dbh;
|
|
}
|
|
|
|
sub command {
|
|
my( $self, $said, $pm ) = @_;
|
|
my( $dist, $module ) = @{ $said->{recommended_args} };
|
|
|
|
my $package = $self->dbh->selectrow_arrayref( "SELECT package FROM packages WHERE distro = ? AND module = ?",
|
|
undef,
|
|
lc $dist,
|
|
$module
|
|
);
|
|
|
|
if( $package and @$package and $package->[0] ) {
|
|
|
|
return( 'handled', "You should find $module in the $dist package named: ".$package->[0] );
|
|
}
|
|
else {
|
|
return( 'handled', "I don't know where to find $module in $dist. Try CPAN" );
|
|
}
|
|
}
|
|
|
|
no warnings 'void';
|
|
"Bot::BB3::Plugin::Package";
|
|
|
|
__DATA__
|
|
The package plugin. Attempts to locate packages in Package managers for various operating systems. Currently only supports debian. Talk to simcop2387 about how to help get more added.
|