summaryrefslogtreecommitdiffstats
path: root/scripts/paste_derwan.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/paste_derwan.pl')
-rw-r--r--scripts/paste_derwan.pl381
1 files changed, 381 insertions, 0 deletions
diff --git a/scripts/paste_derwan.pl b/scripts/paste_derwan.pl
new file mode 100644
index 0000000..0a2b480
--- /dev/null
+++ b/scripts/paste_derwan.pl
@@ -0,0 +1,381 @@
+use strict;
+use vars qw($VERSION %IRSSI %HELP);
+
+use Irssi 0 qw
+(
+ active_win server_find_tag signal_stop window_find_name parse_special
+);
+
+use Irssi::UI;
+use Irssi::TextUI;
+
+$VERSION = '1.1';
+%IRSSI =
+(
+ 'authors' => 'Marcin Rozycki',
+ 'contact' => 'derwan@irssi.pl',
+ 'name' => 'paste',
+ 'description' => 'Pasting lines to specified targets, type "/paste -help" for help',
+ 'license' => 'GNU GPL v2',
+ 'modules' => '',
+ 'url' => 'http://derwan.irssi.pl',
+ 'changed' => '2018-07-14',
+);
+
+$HELP{'paste'} = <<EOF;
+PASTE [-help] [-c] [-q] [-msg | -notice] [-<server tag>] [<target>] [<indexes>]
+
+ -help: print this help
+ -c: enable colors
+ -q: quiet mode (pasted lines are not dispalyed)
+ -msg: sends messages as msg (as default)
+ -notice: sends messages as notice
+ -<server target>: sends messages to specified server
+ <target>: targets (separated with commas)
+ <indexes>: indexes of lines to paste ( separated with spaces)
+
+Examples:
+
+ /PASTE - pasting to active channel or query
+ /PASTE -c - pasting to active channel or query with colors
+ /PASTE -c 1 3-5 - pasting to active channel or query lines 1, 3, 4 and 5
+ /PASTE -notice - pasting to active item - messages sent as notice, not msg
+ /PASTE derwan - sends messages to derwan
+ /PASTE -ircnet -c derwan,#irssi - sends messages (with colors) to derwan and #irssi in IRCNet
+
+Paste window - indexes:
+
+ [0] [<index>] [<index from>-<index to>]
+
+Examples:
+
+ 0 - cancel
+ 4 - line 4
+ 4 8 9 10 - lines 4, 8, 9, 10
+ 4 8-10 - lines 4, 8, 9, 10
+
+Themes:
+
+ paste_normal - \$0 line
+ paste_reverse - \$0 line
+ paste_count - \$0 count, \$1 server tag, \$2 target
+ paste_input
+ paste_no_server - \$0 comment
+ paste_argument_missing - \$0 option, \$1 comment
+ paste_argument_unknown - \$0 option, \$1 comment
+ paste_nothing
+
+Your version is $VERSION - for updates visit $IRSSI{url}
+Mail bug reports and suggestions to <$IRSSI{contact}>
+EOF
+
+my ( $p );
+
+# paste (str data, rec server, rec window)
+sub paste ($$$)
+{
+ buf_destroy();
+
+ $p = {};
+ $p->{color} = 0;
+ $p->{cmd} = 'msg';
+ $p->{quiet} = 0;
+
+ my $win = active_win();
+
+ foreach my $arg ( split /\s+/, $_[0] )
+ {
+ ( $arg eq '-help' ) and Irssi::print($HELP{'paste'}, MSGLEVEL_CLIENTCRAP), return;
+ ( $arg eq '-c' ) and $p->{color} = 1, next;
+ ( $arg eq '-q' ) and $p->{quiet} = 1, next;
+ ( $arg =~ m/^-(msg|notice)$/ ) and $p->{cmd} = $1, next;
+ ( $arg =~ m/^-(.*)$/ and !$p->{tag} ) and $p->{tag} = $1, next;
+ ( $arg =~ m/^([^-\s]*[^-\d]+[^\s]*)$/ and !$p->{target} ) and $p->{target} = $1, next;
+ ( $arg =~ m/^([1-9]\d*)$/ ) and $p->{l}->{$1} = 1, next;
+ if ( $arg =~ m/^([1-9]\d*)-(\d+)$/ and $1 <= $2 )
+ {
+ map { $p->{l}->{$_} = $p->{buf}->[$_-1] } ( $1 .. $2 );
+ next;
+ }
+
+ $win->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_argument_unknown', $arg, 'type /paste -help for help'
+ );
+ buf_destroy(), return;
+ }
+
+ if ( !exists $p->{tag} or !defined $p->{tag} )
+ {
+ if ( !ref $_[1] and !ref $win->{server} )
+ {
+ $win->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_argument_missing', 'server tag', 'type /paste -help for help'
+ );
+ buf_destroy(), return;
+ }
+ $p->{tag} = ( ref $_[1] ) ? $_[1]->{tag} : $win->{active}->{server}->{tag};
+ }
+ elsif ( ! ref server_find_tag($p->{tag}) )
+ {
+ $win->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_argument_unknown', $p->{tag}, 'not connected to that server'
+ );
+ buf_destroy(), return;
+ }
+
+ unless ( exists $p->{target} and defined $p->{target} )
+ {
+ if ( !ref $win->{active} or !$win->{active}->{name} )
+ {
+ $win->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_argument_missing', 'target', 'type /paste -help for help'
+ );
+ buf_destroy(), return;
+ }
+ $p->{target} = $win->{active}->{name};
+ }
+
+ if ( buf_create() == 0 )
+ {
+ $win->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_nothing'
+ );
+ buf_destroy(), return;
+ }
+
+ foreach my $idx ( keys %{$p->{l}} )
+ {
+ $p->{l}->{$idx} = $p->{buf}->[$idx-1];
+ }
+
+ buf_destroy(), return if ( buf_flush() != 0 );
+
+ $p->{win} = sprintf('paste.%d', (int(rand(9000))+1000));
+ my $input = Irssi::Windowitem::window_create($p->{win}, 1);
+ $input->set_name($p->{win});
+ $input->set_history($p->{win});
+ $input->change_server(server_find_tag($p->{tag}));
+
+ my $width = $input->{width} - 8;
+ my $theme = 'normal';
+
+ for ( my $idx = $#{$p->{buf}}; $idx >= 0; $idx-- )
+ {
+ my $text = $p->{buf}->[$idx]->get_text(0);
+ $text = sprintf
+ (
+ '%03d %'.( length($text) > $width ? '.'.($width-1).'s$' : '-'.$width.'s' ).
+ ' %03d', $idx+1, $text, $idx+1
+ );
+ $input->printformat(MSGLEVEL_NOHILIGHT, 'paste_'.$theme, $text);
+ $theme = $theme eq 'normal' ? 'reverse' : 'normal';
+ }
+
+ $input->printformat(MSGLEVEL_NOHILIGHT, 'paste_input');
+ $input->set_active();
+};
+
+sub buf_create ()
+{
+ return unless ( defined $p and ref $p );
+
+ my $win = active_win();
+ return 0 unless ( ref $win );
+
+ my $curline = $win->view()->{buffer}->{cur_line};
+ return 0 unless ( ref $curline );
+
+ for ( my $idx = 0; $idx < 100; $idx++ )
+ {
+ last unless ( ref $curline );
+ push @{$p->{buf}}, $curline;
+ $curline = $curline->prev();
+ }
+
+ return ( $#{$p->{buf}} >= 0 ? 1 : 0 );
+}
+
+sub buf_flush ()
+{
+ return unless ( defined $p and ref $p );
+
+ my $serv = server_find_tag($p->{tag});
+
+ unless ( ref $serv and $serv->{connected} )
+ {
+ active_win()->printformat
+ (
+ MSGLEVEL_CRAP, 'paste_no_server', $p->{tag}
+ );
+
+ return -1;
+ }
+
+ my $count = 0;
+ foreach my $idx ( sort { $b <=> $a } ( keys %{$p->{l}} ) )
+ {
+ if ( defined $p->{l}->{$idx} and ref $p->{l}->{$idx} and ++$count )
+ {
+ if ( $p->{quiet} == 0 )
+ {
+ my $cmd = sprintf
+ (
+ '%s %s %s', $p->{cmd}, $p->{target}, convertstr($p->{l}->{$idx}->get_text($p->{color}))
+ );
+ $serv->command($cmd);
+ }
+ else
+ {
+ my $raw = sprintf
+ (
+ '%s %s :%s', ( $p->{cmd} eq 'msg' ? 'privmsg' : 'notice' ), $p->{target},
+ convertstr($p->{l}->{$idx}->get_text($p->{color}))
+ );
+ $serv->send_raw($raw);
+ }
+
+ }
+ }
+
+ if ( $count > 0 )
+ {
+ active_win()->printformat(MSGLEVEL_CRAP, 'paste_count', $count, $p->{tag}, $p->{target});
+ }
+ else
+ {
+ active_win()->printformat(MSGLEVEL_CRAP, 'paste_nothing');
+ }
+
+ return $count;
+}
+
+# sig_send_command (str data, rec server, rec window)
+sub sig_send_command ($$$)
+{
+ unless ( defined $p and ref $p and defined $p->{win} )
+ {
+ return;
+ }
+
+ my $win = active_win();
+
+ if ( $_[0] eq 0 )
+ {
+ buf_destroy(), return;
+ }
+
+ if ( substr($_[0], 0, 1) eq parse_special('$K') )
+ {
+ return;
+ }
+
+ unless ( ref $win and $win->{name} eq $p->{win} )
+ {
+ return;
+ }
+
+ signal_stop ();
+
+ $win->destroy();
+ delete $p->{win};
+
+ foreach my $arg ( split /\s+/, $_[0] )
+ {
+ if ( $arg =~ m/^(\d+)$/ and $1 > 0 )
+ {
+ $p->{l}->{$1} = $p->{buf}->[$1-1];
+ }
+ elsif ( $arg =~ m/^([1-9]\d*)-(\d+)$/ and $1 <= $2 )
+ {
+ map { $p->{l}->{$_} = $p->{buf}->[$_-1] } ( $1 .. $2 );
+ }
+ else
+ {
+ active_win()->printformat(MSGLEVEL_CRAP, 'paste_argument_unknown', $arg, 'type /paste -help for help');
+ }
+ }
+
+ buf_flush();
+ buf_destroy();
+};
+
+sub buf_destroy ()
+{
+ if ( defined $p and ref $p )
+ {
+ @{$p->{buf}} = () if ( defined $p->{buf} and ref $p->{buf} );
+ %{$p->{l}} = () if ( defined $p->{l} and ref $p->{l} );
+ if ( defined $p->{win} )
+ {
+ my $win = window_find_name($p->{win});
+ $win->destroy if ( ref $win );
+ }
+ undef ( $p );
+ }
+}
+
+# convertstr (str text), str text
+# thanks for Stanislaw Halik <weirdo@blindfold.no-ip.com>
+sub convertstr ($)
+{
+ if ( $_[0] )
+ {
+ $_[0] =~ s/[\004]g\//\003\002\002/g;
+ $_[0] =~ s/[\004]\?\/+/\0030\002\002/g;
+ $_[0] =~ s/[\004]0\//\0031\002\002/g;
+ $_[0] =~ s/[\004]0/\0031\002\002/g;
+ $_[0] =~ s/[\004]1\//\0032\002\002/g;
+ $_[0] =~ s/[\004]1/\0032\002\002/g;
+ $_[0] =~ s/[\004]2\//\0033\002\002/g;
+ $_[0] =~ s/[\004]2/\0033\002\002/g;
+ $_[0] =~ s/[\004]<\//\0034\002\002/g;
+ $_[0] =~ s/[\004]</\0034\002\002/g;
+ $_[0] =~ s/[\004]4\//\0035\002\002/g;
+ $_[0] =~ s/[\004]4/\0035\002\002/g;
+ $_[0] =~ s/[\004]5\//\0036\002\002/g;
+ $_[0] =~ s/[\004]5/\0036\002\002/g;
+ $_[0] =~ s/[\004]6\//\0037\002\002/g;
+ $_[0] =~ s/[\004]6/\0037\002\002/g;
+ $_[0] =~ s/[\004]>\//\0038\002\002/g;
+ $_[0] =~ s/[\004]>/\0038\002\002/g;
+ $_[0] =~ s/[\004]:\//\0039\002\002/g;
+ $_[0] =~ s/[\004]:/\0039\002\002/g;
+ $_[0] =~ s/[\004]3\//\00310\002\002/g;
+ $_[0] =~ s/[\004]3/\00310\002\002/g;
+ $_[0] =~ s/[\004]\;\//\00311\002\002/g;
+ $_[0] =~ s/[\004]\;/\00311\002\002/g;
+ $_[0] =~ s/[\004]9\//\00312\002\002/g;
+ $_[0] =~ s/[\004]9/\00312\002\002/g;
+ $_[0] =~ s/[\004]=\//\00313\002\002/g;
+ $_[0] =~ s/[\004]=/\00313\002\002/g;
+ $_[0] =~ s/[\004]8\//\00314\002\002/g;
+ $_[0] =~ s/[\004]8/\00314\002\002/g;
+ $_[0] =~ s/[\004]7\//\00315\002\002/g;
+ $_[0] =~ s/[\004]7/\00315\002\002/g;
+ $_[0] =~ s/[\004]g\//\003\002\002/g;
+ $_[0] =~ s/[\004]g/\003\002\002/g;
+ $_[0] =~ s/[\004]8\//\003\002\002/g;
+ $_[0] =~ s/[\004]8/\003\002\002/g;
+ }
+ return $_[0];
+}
+
+Irssi::theme_register
+([
+ 'paste_normal', '$0-',
+ 'paste_reverse', '%c$0-%n',
+ 'paste_input', '%7%r type indexes of lines to paste (type "0" for cancel or "/paste -help" for help): %8%n',
+ 'paste_count', '%_Irssi%_: {hilight $0} line(s) have been pasted to {nick $2} in $1',
+ 'paste_argument_unknown', '%_Irssi%_: Unknown option: {hilight $0} {comment $1}',
+ 'paste_argument_missing', '%_Irssi%_: Not enough parameters given: $0 {comment $1}',
+ 'paste_no_server', '%_Irssi%_: Not connected to specified server {comment $0}',
+ 'paste_nothing', '%_Irssi%_: Nothing to paste',
+]);
+
+Irssi::signal_add_first('send command', 'sig_send_command');
+Irssi::command_bind('paste', 'paste');
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-03 00:10:57 +0000