aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

run syncscripts.sh

Browse Source 
sync scriptassist.pl to 2003020807
This commit is contained in:
ailin-nemui 2020-03-30 14:30:05 +02:00
parent be467111fa
commit 97670d1dc1
1 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
scripts/scriptassist.pl
View File

@ -5,22 +5,22 @@
use strict; use strict;
our $VERSION = '2003020806'; our $VERSION = '2003020807';
our %IRSSI = ( our %IRSSI = (
authors => 'Stefan \'tommie\' Tomanek', authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de', contact => 'stefan@pico.ruhr.de',
name => 'scriptassist', name => 'scriptassist',
description => 'keeps your scripts on the cutting edge', description => 'keeps your scripts on the cutting edge',
license => 'GPLv2', license => 'GPLv2',
url => 'http://irssi.org/scripts/', url => 'https://scripts.irssi.org/',
modules => 'Data::Dumper LWP::UserAgent (GnuPG)', modules => 'CPAN::Meta::YAML LWP::Protocol::https (GnuPG)',
commands => "scriptassist" commands => "scriptassist"
); );
our ($forked, %remote_db, $have_gpg, @complist); our ($forked, %remote_db, $have_gpg, @complist);
use Irssi 20020324; use Irssi 20020324;
use Data::Dumper; use CPAN::Meta::YAML;
use LWP::UserAgent; use LWP::UserAgent;
use POSIX; use POSIX;
@ -170,14 +170,13 @@ sub bg_do {
my $cmd = $items[1]; my $cmd = $items[1];
$result{data}{unknown}{$cmd} = get_unknown($cmd, $xml); $result{data}{unknown}{$cmd} = get_unknown($cmd, $xml);
} }
my $dumper = Data::Dumper->new([\%result]); my $yaml = CPAN::Meta::YAML->new(\%result);
$dumper->Purity(1)->Deepcopy(1)->Indent(0); my $data = $yaml->write_string();
my $data = $dumper->Dump;
print($wh $data); print($wh $data);
}; };
if ($@) { if ($@) {
print($wh Data::Dumper->new([+{data=>+{error=>$@}}]) print($wh CPAN::Meta::YAML->new(+{data=>+{error=>$@}})
->Purity(1)->Deepcopy(1)->Indent(0)->Dump); ->write_string());
} }
close($wh); close($wh);
POSIX::_exit(1); POSIX::_exit(1);
@ -313,7 +312,7 @@ sub get_new {
my ($num) = @_; my ($num) = @_;
my $result; my $result;
my $xml = get_scripts(); my $xml = get_scripts();
foreach (sort {$xml->{$b}{last_modified} cmp $xml->{$a}{last_modified}} keys %$xml) { foreach (sort {$xml->{$b}{modified} cmp $xml->{$a}{modified}} keys %$xml) {
my %entry = %{ $xml->{$_} }; my %entry = %{ $xml->{$_} };
next if $entry{HIDDEN}; next if $entry{HIDDEN};
$result->{$_} = \%entry; $result->{$_} = \%entry;
@ -427,8 +426,8 @@ sub pipe_input {
print CLIENTCRAP "%R<<%n Something weird happend (no text)"; print CLIENTCRAP "%R<<%n Something weird happend (no text)";
return(); return();
} }
local our $VAR1; utf8::decode($text);
my $incoming = eval($text); my $incoming = CPAN::Meta::YAML->read_string($text)->[0];
if ($incoming->{db} && $incoming->{timestamp}) { if ($incoming->{db} && $incoming->{timestamp}) {
$remote_db{db} = $incoming->{db}; $remote_db{db} = $incoming->{db};
$remote_db{timestamp} = $incoming->{timestamp}; $remote_db{timestamp} = $incoming->{timestamp};
@ -628,7 +627,7 @@ sub print_ratings {
sub print_new { sub print_new {
my ($list) = @_; my ($list) = @_;
my @table; my @table;
foreach (sort {$list->{$b}{last_modified} cmp $list->{$a}{last_modified}} keys %$list) { foreach (sort {$list->{$b}{modified} cmp $list->{$a}{modified}} keys %$list) {
my @line; my @line;
my ($name) = get_names($_); my ($name) = get_names($_);
if (get_local_version($name)) { if (get_local_version($name)) {
@ -637,7 +636,7 @@ sub print_new {
push @line, "%yo%n"; push @line, "%yo%n";
} }
push @line, "%9".$name."%9"; push @line, "%9".$name."%9";
push @line, $list->{$_}{last_modified}; push @line, $list->{$_}{modified};
push @table, \@line; push @table, \@line;
} }
print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'new scripts', 1) ; print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'new scripts', 1) ;
@ -822,7 +821,7 @@ sub contact_author {
sub get_scripts { sub get_scripts {
my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30); my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
$ua->agent('ScriptAssist/'.2003020803); $ua->agent('ScriptAssist/'.$VERSION);
$ua->env_proxy(); $ua->env_proxy();
my @mirrors = split(/ /, Irssi::settings_get_str('scriptassist_script_sources')); my @mirrors = split(/ /, Irssi::settings_get_str('scriptassist_script_sources'));
my %sites_db; my %sites_db;
@ -852,22 +851,25 @@ sub get_scripts {
$type = $2; $type = $2;
} }
push @sources, $src; push @sources, $src;
#my @header = ('name', 'contact', 'authors', 'description', 'version', 'modules', 'last_modified'); #my @header = ('name', 'contact', 'authors', 'description', 'version', 'modules', 'modified');
if ($type eq 'dmp') { if ($type eq 'dmp') {
no strict 'vars'; die("Support for $type script database has been removed. Please /set scriptassist_script_sources and change $type -> yml.\n");
my $new_db = eval "$data"; } elsif ($type eq 'yml') {
foreach (keys %$new_db) { utf8::decode($data);
if (defined $sites_db{script}{$_}) { my $new_db = CPAN::Meta::YAML->read_string($data);
my $old = $sites_db{$_}{version}; foreach (@{$new_db->[0]}) {
my $new = $new_db->{$_}{version}; my $K = $_->{filename};
if (defined $sites_db{script}{$K}) {
my $old = $sites_db{$K}{version};
my $new = $_->{version};
next if (compare_versions($old, $new) eq 'newer'); next if (compare_versions($old, $new) eq 'newer');
} }
#foreach my $key (@header) { #foreach my $key (@header) {
foreach my $key (keys %{ $new_db->{$_} }) { foreach my $key (keys %$_) {
next unless defined $new_db->{$_}{$key}; next unless defined $_->{$key};
$sites_db{$_}{$key} = $new_db->{$_}{$key}; $sites_db{$K}{$key} = $_->{$key};
} }
$sites_db{$_}{source} = $src; $sites_db{$K}{source} = $src;
} }
} else { } else {
die("Unknown script database type ($type).\n"); die("Unknown script database type ($type).\n");
@ -1093,6 +1095,7 @@ sub missing_module {
sub cmd_scripassist { sub cmd_scripassist {
my ($arg, $server, $witem) = @_; my ($arg, $server, $witem) = @_;
utf8::decode($arg);
my @args = split(/ /, $arg); my @args = split(/ /, $arg);
if ($args[0] eq 'help' || $args[0] eq '-h') { if ($args[0] eq 'help' || $args[0] eq '-h') {
show_help(); show_help();
@ -1176,7 +1179,7 @@ sub sig_complete {
} }
Irssi::settings_add_str($IRSSI{name}, 'scriptassist_script_sources', 'https://scripts.irssi.org/scripts.dmp'); Irssi::settings_add_str($IRSSI{name}, 'scriptassist_script_sources', 'https://scripts.irssi.org/scripts.yml');
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_cache_sources', 1); Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_cache_sources', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_update_verbose', 1); Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_update_verbose', 1);
Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_verbose', 1); Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_verbose', 1);