aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2959 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-10-15 07:40:47 +00:00 committed by cras
parent 80a3674acb
commit d20c8238b7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/scriptassist.pl
View File

@ -8,7 +8,7 @@
use strict; use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = '2002101401'; $VERSION = '2002101402';
%IRSSI = ( %IRSSI = (
authors => 'Stefan \'tommie\' Tomanek', authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de', contact => 'stefan@pico.ruhr.de',
@ -988,9 +988,9 @@ sub cmd_scripassist ($$$) {
bg_do("info ".join(' ', @args)); bg_do("info ".join(' ', @args));
} elsif ($args[0] eq 'echo') { } elsif ($args[0] eq 'echo') {
bg_do("echo"); bg_do("echo");
} elsif ($args[0] eq 'top' && defined $args[1]) { } elsif ($args[0] eq 'top') {
shift @args; my $number = defined $args[1] ? $args[1] : 10;
bg_do("top ".join(' ', @args)); bg_do("top ".$number);
} elsif ($args[0] eq 'cpan' && defined $args[1]) { } elsif ($args[0] eq 'cpan' && defined $args[1]) {
call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]); call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]);
} elsif ($args[0] eq 'autorun' && defined $args[1]) { } elsif ($args[0] eq 'autorun' && defined $args[1]) {