# simple X-Chat script demonstrating clipboard paste written for my friend
# you can extend it for example to filter pasted text in some way
#   (sign, encrypt etc.) and than display it on channel
# requires xclip program http://people.debian.org/~kims/xclip/
# we had some problems with xclip on red hat, it is working on mandrake 7.1
#   please report your experiences
# (C) 2002 Miroslav Madzarevic, mire  modperldev.com
#   please visit http://www.modperldev.com
# published using Perl Artistic Licence
 
sub paste;
 
IRC::register "clipboard_script", "1.0.0", "", "";
IRC::print "\n\002\0034:: clipboard_script v1.0.0 made by mire \@\@\@ modperldev.com::\003\n";
IRC::add_command_handler "paste", "paste";
IRC::print "\002\0033/paste  -- paste text from clipboard\003\n";
 
sub paste {
     my $pasted = `/usr/X11R6/bin/xclip -o`;
     IRC::print qq|"$pasted"\n|;
     return 1;
}