mirror of
https://github.com/irssi/irssi.git
synced 2026-08-08 19:30:15 +02:00
Merge pull request #39 from ailin-nemui/sync
run syncdocs.sh and syncscripts.sh
(cherry picked from commit 85a9dc146d)
This commit is contained in:
ailin-nemui
Ailin Nemui
parent
117758fb90
commit
0ba449d8be
6 changed files with 102 additions and 78 deletions
|
|
@ -6,36 +6,27 @@ use Irssi::Irc;
|
|||
use strict;
|
||||
use vars qw($VERSION %IRSSI);
|
||||
|
||||
$VERSION = "1.00";
|
||||
$VERSION = "1.01";
|
||||
%IRSSI = (
|
||||
authors => 'Timo Sirainen',
|
||||
name => 'quitmsg',
|
||||
description => 'Random quit messages',
|
||||
license => 'Public Domain',
|
||||
changed => 'Sun Mar 10 23:18 EET 2002'
|
||||
changed => 'Mon Jul 22 20:00 EET 2020'
|
||||
);
|
||||
|
||||
my $quitfile = glob "~/.irssi/irssi.quit";
|
||||
my $quitfile = Irssi::get_irssi_dir() . "/irssi.quit";
|
||||
|
||||
sub cmd_quit {
|
||||
my ($data, $server, $channel) = @_;
|
||||
return if ($data ne "");
|
||||
|
||||
open (my $fh, "<", $quitfile) || return;
|
||||
my @lines = <$fh>;
|
||||
|
||||
open (f, "<", $quitfile) || return;
|
||||
my $lines = 0; while(<f>) { $lines++; };
|
||||
|
||||
my $line = int(rand($lines))+1;
|
||||
|
||||
my $quitmsg;
|
||||
seek(f, 0, 0); $. = 0;
|
||||
while(<f>) {
|
||||
next if ($. != $line);
|
||||
|
||||
chomp;
|
||||
$quitmsg = $_;
|
||||
last;
|
||||
}
|
||||
close(f);
|
||||
my $quitmsg = $lines[int(rand(@lines))];
|
||||
chomp($quitmsg);
|
||||
close($fh);
|
||||
|
||||
foreach my $server (Irssi::servers) {
|
||||
$server->command("/disconnect ".$server->{tag}." $quitmsg");
|
||||
|
|
|
|||
|
|
@ -5,7 +5,7 @@
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2003020807';
|
||||
our $VERSION = '2020042700';
|
||||
our %IRSSI = (
|
||||
authors => 'Stefan \'tommie\' Tomanek',
|
||||
contact => 'stefan@pico.ruhr.de',
|
||||
|
|
@ -23,12 +23,15 @@ use Irssi 20020324;
|
|||
use CPAN::Meta::YAML;
|
||||
use LWP::UserAgent;
|
||||
use POSIX;
|
||||
use version;
|
||||
|
||||
# GnuPG is not always needed
|
||||
$have_gpg = 0;
|
||||
eval "use GnuPG qw(:algo :trust);";
|
||||
$have_gpg = 1 if not ($@);
|
||||
|
||||
my $irssi_version = qv(Irssi::parse_special('v$J') =~ s/-.*//r);
|
||||
|
||||
sub show_help {
|
||||
my $help = "scriptassist $VERSION
|
||||
/scriptassist check
|
||||
|
|
@ -39,15 +42,15 @@ sub show_help {
|
|||
Search the script database
|
||||
/scriptassist info <scripts>
|
||||
Display information about <scripts>
|
||||
".#/scriptassist ratings <scripts>
|
||||
# Retrieve the average ratings of the the scripts
|
||||
#/scriptassist top <num>
|
||||
# Retrieve the first <num> top rated scripts
|
||||
"/scriptassist new <num>
|
||||
/scriptassist ratings <scripts|all>
|
||||
Retrieve the average ratings of the the scripts
|
||||
/scriptassist top <num>
|
||||
Retrieve the first <num> top rated scripts
|
||||
/scriptassist new <num>
|
||||
Display the newest <num> scripts
|
||||
".#/scriptassist rate <script> <stars>
|
||||
# Rate the script with a number of stars ranging from 0-5
|
||||
"/scriptassist contact <script>
|
||||
/scriptassist rate <script>
|
||||
Rate the script if you like it
|
||||
/scriptassist contact <script>
|
||||
Write an email to the author of the script
|
||||
(Requires OpenURL)
|
||||
/scriptassist cpan <module>
|
||||
|
|
@ -95,6 +98,7 @@ sub call_openurl {
|
|||
$code->($url);
|
||||
} else {
|
||||
print CLIENTCRAP "%R>>%n Please install openurl.pl";
|
||||
print CLIENTCRAP "%R>>%n or open < $url > manually";
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -188,7 +192,7 @@ sub get_unknown {
|
|||
foreach (keys %$db) {
|
||||
next unless defined $db->{$_}{commands};
|
||||
foreach my $item (split / /, $db->{$_}{commands}) {
|
||||
return { $_ => $db->{$_} } if ($item =~ /^$cmd$/i);
|
||||
return { $_ => +{%{$db->{$_}}} } if ($item =~ /^$cmd$/i);
|
||||
}
|
||||
}
|
||||
return undef;
|
||||
|
|
@ -264,47 +268,80 @@ sub script_info {
|
|||
$result{$sname}{modules}{$mod}{installed} = module_exist($mod);
|
||||
}
|
||||
}
|
||||
if (defined $xml->{$plname}{depends}) {
|
||||
my $depends = $xml->{$plname}{depends};
|
||||
foreach my $dep (split(/ /, $depends)) {
|
||||
$result{$sname}{depends}{$dep}{installed} = 1;
|
||||
}
|
||||
}
|
||||
# if (defined $xml->{$plname}{depends}) {
|
||||
# my $depends = $xml->{$plname}{depends};
|
||||
# foreach my $dep (split(/ /, $depends)) {
|
||||
# $result{$sname}{depends}{$dep}{installed} = 1; #(defined ${ 'Irssi::Script::'.$dep });
|
||||
# }
|
||||
# }
|
||||
}
|
||||
return \%result;
|
||||
}
|
||||
|
||||
sub get_rate_url {
|
||||
my ($src) = @_;
|
||||
my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
|
||||
$ua->agent('ScriptAssist/'.$VERSION);
|
||||
my $request = HTTP::Request->new('GET', $src);
|
||||
my $response = $ua->request($request);
|
||||
unless ($response->is_success) {
|
||||
my $error = join "\n", $response->status_line(), (grep / at .* line \d+/, split "\n", $response->content()), '';
|
||||
die("Fetching ratings location failed: $error");
|
||||
}
|
||||
my $votes_url;
|
||||
for my $tag ($response->content() =~ /<script([^>]*)>/g) {
|
||||
my $attr = " $tag ";
|
||||
($votes_url = $1) =~ s/\.\w+$/.yml/
|
||||
if $attr =~ /\sasync\s/ && $attr =~ m{\ssrc="(https?://.*?/votes\.\w+)"\s};
|
||||
}
|
||||
unless ($votes_url) {
|
||||
die("Fetching ratings failed: Could not find votes script\n");
|
||||
}
|
||||
$request = HTTP::Request->new('GET', $votes_url);
|
||||
$response = $ua->request($request);
|
||||
if (!$response->is_success) {
|
||||
my $error = join "\n", $response->status_line(), (grep / at .* line \d+/, split "\n", $response->content()), '';
|
||||
die("Fetching ratings failed: $error");
|
||||
}
|
||||
my $data = $response->content();
|
||||
utf8::decode($data);
|
||||
CPAN::Meta::YAML->read_string($data)->[0];
|
||||
}
|
||||
|
||||
sub rate_script {
|
||||
my ($script, $stars) = @_;
|
||||
my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
|
||||
$ua->agent('ScriptAssist/'.2003020803);
|
||||
my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?&stars='.$stars.'&mode=rate&script='.$script);
|
||||
my $response = $ua->request($request);
|
||||
unless ($response->is_success() && $response->content() =~ /You already rated this script/) {
|
||||
return 1;
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
my $xml = get_scripts();
|
||||
my $votes = get_rate_url(map { $_->{source} } values %$xml);
|
||||
my ($sname, $plname, $pname) = get_names($script, $xml);
|
||||
die "Script $script not found\n" unless $votes->{$plname};
|
||||
return $votes->{$plname}{u}
|
||||
}
|
||||
|
||||
sub get_ratings {
|
||||
my ($scripts, $limit) = @_;
|
||||
my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
|
||||
$ua->agent('ScriptAssist/'.2003020803);
|
||||
my $script = join(',', @{$scripts});
|
||||
my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?script='.$script.'&sort=rating&limit='.$limit);
|
||||
my $response = $ua->request($request);
|
||||
my %result;
|
||||
if ($response->is_success()) {
|
||||
foreach (split /\n/, $response->content()) {
|
||||
if (/<tr><td><a href=".*?">(.*?)<\/a>/) {
|
||||
my $entry = $1;
|
||||
if (/"><\/td><td>([0-9.]+)<\/td><td>(.*?)<\/td><td>/) {
|
||||
$result{$entry} = [$1, $2];
|
||||
}
|
||||
}
|
||||
my $xml = get_scripts();
|
||||
my $votes = get_rate_url(map { $_->{source} } values %$xml);
|
||||
foreach (keys %{$votes}) {
|
||||
if ($xml->{$_}) {
|
||||
$xml->{$_}{votes} = $votes->{$_}{v};
|
||||
}
|
||||
}
|
||||
my %result;
|
||||
if (@{$scripts}) {
|
||||
foreach (@{$scripts}) {
|
||||
my ($sname, $plname, $pname) = get_names($_, $xml);
|
||||
next unless (defined $xml->{$plname} || ( exists $Irssi::Script::{$pname} && exists $Irssi::Script::{$pname}{IRSSI} ));
|
||||
$result{$plname} = [$xml->{$plname}{votes}];
|
||||
}
|
||||
} else {
|
||||
my @keys = sort { $xml->{$b}{votes} <=> $xml->{$a}{votes}
|
||||
|| $xml->{$b}{modified} cmp $xml->{$a}{modified} }
|
||||
grep { !$xml->{$_}{HIDDEN} && $xml->{$_}{votes} ne '' } keys %$xml;
|
||||
foreach (splice @keys, 0, $limit) {
|
||||
$result{$_} = [$xml->{$_}{votes}];
|
||||
}
|
||||
}
|
||||
die "No such script found\n" unless keys %result;
|
||||
return \%result;
|
||||
}
|
||||
|
||||
|
|
@ -597,13 +634,8 @@ sub print_rate {
|
|||
my (%data) = @_;
|
||||
my $line;
|
||||
foreach my $script (sort keys(%data)) {
|
||||
if ($data{$script}) {
|
||||
$line .= "%go%n %9".$script."%9 has been rated";
|
||||
} else {
|
||||
$line .= "%ro%n %9".$script."%9 : Already rated this script";
|
||||
}
|
||||
call_openurl($data{$script});
|
||||
}
|
||||
print CLIENTCRAP draw_box('ScriptAssist', $line, 'rating', 1) ;
|
||||
}
|
||||
|
||||
sub print_ratings {
|
||||
|
|
@ -617,8 +649,7 @@ sub print_ratings {
|
|||
push @line, "%yo%n";
|
||||
}
|
||||
push @line, "%9".$script."%9";
|
||||
push @line, $data{$script}{rating};
|
||||
push @line, "[".$data{$script}{votes}." votes]";
|
||||
push @line, "[".(length $data{$script}{rating} ? $data{$script}{rating} : 'no')." votes]";
|
||||
push @table, \@line;
|
||||
}
|
||||
print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'ratings', 1) ;
|
||||
|
|
@ -845,7 +876,8 @@ sub get_scripts {
|
|||
}
|
||||
$fetched = 1;
|
||||
my $data = $response->content();
|
||||
my ($src, $type);
|
||||
my $src = $site;
|
||||
my $type = '';
|
||||
if ($site =~ /(.*\/).+\.(.+)/) {
|
||||
$src = $1;
|
||||
$type = $2;
|
||||
|
|
@ -1115,9 +1147,9 @@ sub cmd_scripassist {
|
|||
} elsif ($args[0] eq 'ratings' && defined $args[1]) {
|
||||
shift @args;
|
||||
bg_do("ratings ".join(' ', @args));
|
||||
} elsif ($args[0] eq 'rate' && defined $args[1] && defined $args[2]) {
|
||||
} elsif ($args[0] eq 'rate' && defined $args[1]) {
|
||||
shift @args;
|
||||
bg_do("rate ".join(' ', @args)) if ($args[2] >= 0 && $args[2] < 6);
|
||||
bg_do("rate ".join(' ', @args));
|
||||
} elsif ($args[0] eq 'info' && defined $args[1]) {
|
||||
shift @args;
|
||||
bg_do("info ".join(' ', @args));
|
||||
|
|
@ -1158,6 +1190,7 @@ sub sig_command_script_load {
|
|||
sub sig_default_command {
|
||||
my ($cmd, $server) = @_;
|
||||
return unless Irssi::settings_get_bool("scriptassist_check_unknown_commands");
|
||||
return if ($cmd =~ /^\d+$/ && $irssi_version >= v1.2.0 && Irssi::settings_get_bool("window_number_commands"));
|
||||
bg_do('unknown '.$cmd);
|
||||
}
|
||||
|
||||
|
|
@ -1213,11 +1246,11 @@ foreach my $cmd ( ( 'check',
|
|||
'search',
|
||||
# '-h',
|
||||
'help',
|
||||
# 'ratings',
|
||||
# 'rate',
|
||||
'ratings',
|
||||
'rate',
|
||||
'info',
|
||||
# 'echo',
|
||||
# 'top',
|
||||
'top',
|
||||
'cpan',
|
||||
'autorun',
|
||||
'new' ) ) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue