aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-06-02 06:11:11 +00:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3109 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2003-02-08 23:50:14 +00:00 committed by cras
parent bd4a30de77
commit 725ac8be7e
1 changed files with 46 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
scripts/scriptassist.pl
View File

@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '2003022201';
$VERSION = '2003020803';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
@ -15,7 +15,8 @@ $VERSION = '2003022201';
license => 'GPLv2',
url => 'http://irssi.org/scripts/',
changed => $VERSION,
modules => 'Data::Dumper LWP::UserAgent (GnuPG)'
modules => 'Data::Dumper LWP::UserAgent (GnuPG)',
commands => "scriptassist"
);
use vars qw($forked %remote_db $have_gpg);
@ -159,7 +160,6 @@ sub bg_do ($) {
#$result{data}{rate}{-foo} = 1;
$result{data}{rate}{$items[1]} = rate_script($items[1], $items[2]);
} elsif ($items[0] eq 'info') {
#$result{data}{info}{-foo} = 1;
shift(@items);
$result{data}{info} = script_info(\@items);
} elsif ($items[0] eq 'echo') {
@ -173,6 +173,9 @@ sub bg_do ($) {
} elsif ($items[0] eq 'new') {
my $new = get_new($items[1]);
$result{data}{new} = $new;
} elsif ($items[0] eq 'unknown') {
my $cmd = $items[1];
$result{data}{unknown}{$cmd} = get_unknown($cmd, $xml);
}
my $dumper = Data::Dumper->new([\%result]);
$dumper->Purity(1)->Deepcopy(1)->Indent(0);
@ -184,6 +187,17 @@ sub bg_do ($) {
}
}
sub get_unknown ($$) {
my ($cmd, $db) = @_;
foreach (keys %$db) {
next unless defined $db->{$_}{commands};
foreach my $item (split / /, $db->{$_}{commands}) {
return { $_ => $db->{$_} } if ($item =~ /^$cmd$/i);
}
}
return undef;
}
sub script_info ($) {
my ($scripts) = @_;
no strict "refs";
@ -430,6 +444,26 @@ sub pipe_input {
if (defined $result{echo}) {
Irssi::print "ECHO";
}
if ($result{unknown}) {
print_unknown($result{unknown});
}
}
sub print_unknown ($) {
my ($data) = @_;
foreach my $cmd (keys %$data) {
print CLIENTCRAP "%R<<%n No script provides '/$cmd'" unless $data->{$cmd};
foreach (keys %{ $data->{$cmd} }) {
my $text .= "The command '/".$cmd."' is provided by the script '".$data->{$cmd}{$_}{name}."'.\n";
$text .= "This script is currently not installed on your system.\n";
$text .= "If you want to install the script, enter\n";
my ($name) = /(.*?)\.pl$/;
$text .= " %U/script install ".$name."%U ";
my $output = draw_box("ScriptAssist", $text, "'".$_."' missing", 1);
print CLIENTCRAP $output;
}
}
}
sub check_autorun ($) {
@ -1061,6 +1095,12 @@ sub sig_command_script_load ($$$) {
}
}
sub sig_default_command ($$) {
my ($cmd, $server) = @_;
return unless Irssi::settings_get_bool("scriptassist_check_unknown_commands");
bg_do('unknown '.$cmd);
}
sub sig_complete ($$$$$) {
my ($list, $window, $word, $linestart, $want_space) = @_;
return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/;
@ -1089,7 +1129,9 @@ Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_catch_script_errors', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_install_unsigned_scripts', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_use_gpg', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_integrate', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_unknown_commands', 1);
Irssi::signal_add_first("default command", \&sig_default_command);
Irssi::signal_add_first('complete word', \&sig_complete);
Irssi::signal_add_first('command script load', \&sig_command_script_load);
Irssi::signal_add_first('command script unload', \&sig_command_script_load);
@ -1099,7 +1141,7 @@ if (defined &Irssi::signal_register) {
Irssi::signal_add_last('script error', \&sig_script_error);
}
Irssi::command_bind('scriptassist', 'cmd_scripassist');
Irssi::command_bind('scriptassist', \&cmd_scripassist);
Irssi::theme_register(['box_header', '%R,--[%n$*%R]%n',
'box_inside', '%R|%n $*',