Add all of nei's scripts from nei's website

1 files changed, 278 insertions, 0 deletions

diff --git a/scripts/linebuffer.pl b/scripts/linebuffer.pl
new file mode 100644
index 0000000..9e002bb
--- /dev/null
+++ b/scripts/linebuffer.pl
@@ -0,0 +1,278 @@
+use strict;
+use warnings;
+use Irssi;
+use Irssi::TextUI;
+use Hash::Util qw();
+our $VERSION = '0.2'; # c1eddc6a0d6385a
+our %IRSSI = (
+    authors     => 'Nei',
+    contact     => 'Nei @ anti@conference.jabber.teamidiot.de',
+    url         => "http://anti.teamidiot.de/",
+    name        => 'linebuffer',
+    description => 'dump the linebuffer content',
+    license     => 'GNU GPLv2 or later',
+   );
+
+sub cmd_help {
+    my ($args) = @_;
+    if ($args =~ /^dumplines *$/i) {
+        print CLIENTCRAP <<HELP
+
+DUMPLINES [-file <filename>] [-format] [-ids] [-levels[-prepend|-hex]] [-time] [<count> [<refnum>]]
+
+    Dump the content of the line buffer to a window or file.
+
+    -file:   Output to this file.
+    -format: Format the text output.
+    -ids:    Print line IDs.
+    -levels: Print levels. -prepend: before text, -hex: as hex value
+    -time:   Print time stamp.
+    count:   Number of lines to reproduce.
+    refnum:  Specifies the window to dump.
+HELP
+
+    }
+}
+
+{
+    my %control2format_d = (
+	'a' => 'F',
+	'c' => '_',
+	'e' => '|',
+	'i' => '#',
+	'f' => 'I',
+	'g' => 'n',
+       );
+    my %control2format_c = (
+	"\c_" => 'U',
+	"\cV" => '8',
+       );
+    my %base_bg = (
+	'0' => '0',
+	'1' => '4',
+	'2' => '2',
+	'3' => '6',
+	'4' => '1',
+	'5' => '5',
+	'6' => '3',
+	'7' => '7',
+	'8' => 'x08',
+	'9' => 'x09',
+	':' => 'x0a',
+	';' => 'x0b',
+	'<' => 'x0c',
+	'=' => 'x0d',
+	'>' => 'x0e',
+	'?' => 'x0f',
+       );
+    my %base_fg = (
+	'0' => 'k',
+	'1' => 'b',
+	'2' => 'g',
+	'3' => 'c',
+	'4' => 'r',
+	'5' => 'm',		# p
+	'6' => 'y',
+	'7' => 'w',
+	'8' => 'K',
+	'9' => 'B',
+	':' => 'G',
+	';' => 'C',
+	'<' => 'R',
+	'=' => 'M',		# P
+	'>' => 'Y',
+	'?' => 'W',
+       );
+
+    my $to_true_color = sub {
+	my (@rgbx) = map { ord } @_;
+	$rgbx[3] -= 0x20;
+	for (my $i = 0; $i < 3; ++$i) {
+	    if ($rgbx[3] & (0x10 << $i)) {
+		$rgbx[$i] -= 0x20;
+	    }
+	}
+	my $color = $rgbx[0] << 16 | $rgbx[1] << 8 | $rgbx[2];
+	($rgbx[3] & 0x1 ? 'z' : 'Z') . sprintf '%06X', $color;
+    };
+
+    my %ext_color_off = (
+	'.' =>  [0, 0x10],
+	'-' =>  [0, 0x60],
+	',' =>  [0, 0xb0],
+	'+' =>  [1, 0x10],
+	"'" =>  [1, 0x60],
+	'&' =>  [1, 0xb0],
+       );
+    my @ext_color_al = (0..9, 'A' .. 'Z');
+    my $to_ext_color = sub {
+	my ($sig, $chr) = @_;
+	my ($bg, $off) = @{ $ext_color_off{$sig} };
+	my $color = $off - 0x3f + ord $chr;
+	$color += 10 if $color > 213;
+	($bg ? 'x' : 'X') . (1+int($color / 36)) . $ext_color_al[$color % 36];
+    };
+    sub control2format {
+	my $line = shift;
+	$line =~ s/%/%%/g;
+	$line =~ s{( \c_ | \cV )
+	       |(?:\cD(?:
+			   ([aceigf])
+		       |(?:\#(.)(.)(.)(.))
+		       |(?:([-.,+'&])(.))
+		       |(?:(?:/|([0-?]))(?:/|([/0-?])))
+		       |\xff/|(/\xff)
+		   ))
+	      }{
+		  '%'.(defined $1  ? $control2format_c{$1}         :
+		       defined $2  ? $control2format_d{$2}         :
+		       defined $6  ? $to_true_color->($3,$4,$5,$6) :
+		       defined $8  ? $to_ext_color->($7,$8)        :
+		       defined $10 ? ($base_bg{$10} . (defined $9 ? '%'.$base_fg{$9} : '')) :
+		       defined $9  ? $base_fg{$9} :
+		       defined $11 ? 'o' : 'n')
+	      }gex;
+	$line
+    }
+}
+
+sub simpletime {
+    my ($sec, $min, $hour, $mday, $mon, $year) = localtime $_[0];
+    sprintf "%04d"."%02d"x5, 1900+$year, 1+$mon, $mday, $hour, $min, $sec;
+}
+
+sub prt_report {
+    my $fh = shift;
+    if ($fh->isa('Irssi::UI::Window')) {
+	for (split "\n", (join $,//'', @_)) {
+	    my $line;
+	    for (split "\t") {
+		if (defined $line) {
+		    $line .= ' ' x (5 - (length $line) % 6);
+		    $line .= ' ';
+		}
+		$line .= $_;
+	    }
+	    $line .= '';
+	    $fh->print($line, MSGLEVEL_NEVER);
+	}
+    }
+    else {
+	$fh->print(@_);
+    }
+}
+
+sub dump_lines {
+    my ($data, $server, $item) = @_;
+    my ($args, $rest) = Irssi::command_parse_options('dumplines', $data);
+    ref $args or return;
+    my $win = Irssi::active_win;
+    my ($count, $winnum) = $data =~ /(-?\d+)/g;
+    if (defined $winnum) {
+	$win = Irssi::window_find_refnum($winnum) // do {
+	    print CLIENTERROR "Window #$winnum not found";
+	    return;
+	};
+    }
+    my $fh;
+    my $is_file;
+    if (defined $args->{file}) {
+	unless (length $args->{file}) {
+	    print CLIENTERROR "Missing argument to option: file";
+	    return;
+	}
+	open $fh, '>', $args->{file} or do {
+	    print CLIENTERROR "Error opening ".$args->{file}.": $!";
+	    return;
+	};
+	$is_file = 1;
+    }
+    else {
+	$fh = Irssi::Windowitem::window_create(undef, 0);
+	$fh->command('^scrollback home');
+	$fh->command('^scrollback clear');
+	$fh->command('^window scroll off');
+    }
+    prt_report($fh, "\n==========\nwindow: ", $win->{refnum}, "\n");
+    my $view = $win->view;
+    my $lclength = length $view->{buffer}{lines_count};
+    $lclength = 3 if $lclength < 3;
+    my $padlen = $lclength;
+    my $hdr = sprintf "%${lclength}s", " # ";
+    my $hllen = length sprintf '%x', MSGLEVEL_LASTLOG << 1;
+                                                                        #123456789012345
+    if (defined $args->{ids})          { $padlen += 10;         $hdr .= '|    ID   ' }
+    if (defined $args->{time})         { $padlen += 15;         $hdr .= '| date & time  ' }
+    if (defined $args->{'levels-hex'}) { $padlen += $hllen + 1; $hdr .= sprintf "|%${hllen}s", ' levels ' }
+
+    prt_report($fh,
+	" "x$padlen,"\t/buffer first line\n",
+	" "x$padlen,"\t|/buffer cur line\n",
+	" "x$padlen,"\t||/bottom start line\n",
+	$hdr,"\t|||/start line\n");
+    my $j = 1;
+    $count = $view->{height} unless $count;
+    my $start_line;
+    if ($count < 0) {
+	$start_line = $view->get_lines;
+    }
+    else {
+	$j = $view->{buffer}{lines_count} - $count + 1;
+	$j = 1 if $j < 1;
+	$start_line = $view->{buffer}{cur_line};
+	for (my $line = $start_line;
+	     $line && $count--;
+	     ($start_line, $line) = ($line, $line->prev))
+	    {}
+    }
+    for (my $line = $start_line; $line; $line = $line->next) {
+	my $i = 0;
+	my $t = sprintf "%${lclength}d", $j++;
+	$t .= sprintf " %9d", $line->{_irssi} if defined $args->{ids};
+	$t .= ' '.simpletime($line->{info}{time}) if defined $args->{time};
+	$t .= sprintf " %${hllen}x", $line->{info}{level} if defined $args->{'levels-hex'};
+	$t .= "\t" . (join '', map {;++$i; $_->{_irssi} == $line->{_irssi} ? $i : ' ' }
+			     $view->{buffer}{first_line}, $view->{buffer}{cur_line},
+			 $view->{bottom_startline}, $view->{startline});
+	$t .= "\t";
+	my $text = $line->get_text(1);
+	if (defined $args->{format}) {
+	    if (!$is_file) {
+		$text = control2format($text);
+		$text =~ s{(%.)}{ $1 eq "%o" ? "\cD/\xff" : $1 }ge;
+	    }
+	}
+	else {
+	    $text = control2format($text);
+	    if (!$is_file) {
+		$text =~ s/%/%%/g;
+	    }
+	}
+	my $lst;
+	if (defined $args->{'levels-prepend'} || defined $args->{levels}) {
+	    my $levels = Irssi::bits2level($line->{info}{level});
+	    if (!$is_file) {
+		$lst = "%n%r[%n$levels%r]%n";
+	    }
+	    else {
+		$lst = "[$levels]";
+	    }
+	}
+	$t .= "$lst\t" if defined $args->{'levels-prepend'};
+	$t .= $text;
+	$t .= "\t$lst" if defined $args->{levels};
+	$t .= "\n";
+	prt_report($fh, $t);
+    }
+    prt_report($fh, "----------\n", map { $_ // 'NULL' }
+	"view w", $view->{width}, " h", $view->{height}, " scroll ", $view->{scroll}, "\n",
+	       "     ypos ", $view->{ypos}, "\n",
+	"     bottom subline ", $view->{bottom_subline}, " subline ", $view->{subline}, ", is bottom: ", $view->{bottom}, "\n",
+	    "buffer: lines count ", $view->{buffer}{lines_count}, ", was last eol: ", $view->{buffer}{last_eol}, "\n",
+		"win: last line ", simpletime($win->{last_line}),"\n\n");
+}
+
+
+Irssi::command_bind('dumplines' => 'dump_lines');
+Irssi::command_set_options('dumplines' => 'format ids time levels levels-prepend levels-hex 1 -file');
+Irssi::command_bind_last('help' => 'cmd_help');