diff options
Diffstat (limited to 'scripts')
36 files changed, 333 insertions, 276 deletions
diff --git a/scripts/scripthelp.pl b/scripts/scripthelp.pl index 316aeb2..0bdca01 100644 --- a/scripts/scripthelp.pl +++ b/scripts/scripthelp.pl @@ -1,3 +1,4 @@ +use strict; use Irssi; use vars qw($VERSION %IRSSI %HELP); diff --git a/scripts/servercomplete.pl b/scripts/servercomplete.pl index 2fe5b21..f866bec 100644 --- a/scripts/servercomplete.pl +++ b/scripts/servercomplete.pl @@ -1,4 +1,6 @@ +use strict; use Irssi 20020101.0250 (); +use vars qw($VERSION %IRSSI); $VERSION = "2"; %IRSSI = ( authors => 'David Leadbeater', @@ -9,7 +11,6 @@ $VERSION = "2"; url => 'http://irssi.dgl.cx/', ); -use strict; my %servers; sub sig_complete { diff --git a/scripts/seti.pl b/scripts/seti.pl index 01678ac..cb0f489 100644 --- a/scripts/seti.pl +++ b/scripts/seti.pl @@ -1,5 +1,5 @@ # This is not a well written script, but it works. I hope. - +use strict; use Irssi; use vars qw($VERSION %IRSSI); @@ -18,18 +18,18 @@ $VERSION = '0.1'; sub seti_info { - $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah'); + my $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah'); my ($data, $server, $witem) = @_; - $args =~ s/\s+$//; - open(INFO, "$WHERES_SETI_STATE_SAH"); - for($tmp = 0; $tmp < 5; $tmp++) { + my $line; + open(INFO, "<", $WHERES_SETI_STATE_SAH); + for(my $tmp = 0; $tmp < 5; $tmp++) { $line = <INFO>; } close(INFO); - $proc = substr($line, 7, 4)/100; - my $output = "progress of this SETI@home workunit: $proc%"; + my $proc = substr($line, 7, 4)/100; + my $output = "progress of this SETI\@home workunit: $proc%"; if($data) { diff --git a/scripts/shorturl.pl b/scripts/shorturl.pl index e041bd5..7f207d2 100644 --- a/scripts/shorturl.pl +++ b/scripts/shorturl.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -w # This Irssi script automatically converts incoming http/https links into shorter "tinyurl" style links -$VERSION = "20090904"; # Fixed and enhanced by tsaavik (dave000@hellspark.com) # # Irssi /set Options # you can view your current settigns by running "/set shorturl" in Irssi @@ -18,6 +17,7 @@ $VERSION = "20090904"; # Fixed and enhanced by tsaavik (dave000@hellspark.com) use strict; use vars qw($VERSION %IRSSI); +$VERSION = "20090904"; # Fixed and enhanced by tsaavik (dave000@hellspark.com) %IRSSI = ( authors => "eo, tsaavik", contact => 'irssi@eosin.org, dave001@hellspark.com', diff --git a/scripts/showhilight.pl b/scripts/showhilight.pl index 6ff00ad..4619f78 100644 --- a/scripts/showhilight.pl +++ b/scripts/showhilight.pl @@ -1,5 +1,6 @@ # Print hilighted messages with MSGLEVEL_PUBLIC to active window # for irssi 0.7.99 by Paweł 'Styx' Chuchmała based on hilightwin.pl by Timo Sirainen +use strict; use Irssi; use vars qw($VERSION %IRSSI); $VERSION = "0.1"; @@ -21,7 +22,7 @@ sub sig_printtext { if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) && ($window->{refnum} != $dest->{window}->{refnum}) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) { - $text = $dest->{target}.":%K[".Irssi::settings_get_str(hilight_color).$dest->{window}->{refnum}."%K]:".$text; + $text = $dest->{target}.":%K[".Irssi::settings_get_str('hilight_color').$dest->{window}->{refnum}."%K]:".$text; $window->print($text, MSGLEVEL_CLIENTCRAP); } diff --git a/scripts/sms.pl b/scripts/sms.pl index cdc39ec..14a4125 100644 --- a/scripts/sms.pl +++ b/scripts/sms.pl @@ -1,3 +1,4 @@ +use strict; use Irssi 20020300; use 5.6.0; use Socket; @@ -198,7 +199,7 @@ sub smsstat { sub savesms { local *fp; - open (fp, ">$smsfile") or die "Couldn't open $smsfile for writing"; + open (fp, ">", $smsfile) or die "Couldn't open $smsfile for writing"; for my $sms (@smslist) { print(fp "$sms->{handle} $sms->{phone}\n"); } @@ -209,7 +210,7 @@ sub loadsms { @smslist = (); return unless (-e $smsfile); local *fp; - open(fp, "<$smsfile"); + open(fp, "<", $smsfile); local $/ = "\n"; while (<fp>) { chop; diff --git a/scripts/sysinfo270-irssi.pl b/scripts/sysinfo270-irssi.pl index 5027549..07f6af8 100644 --- a/scripts/sysinfo270-irssi.pl +++ b/scripts/sysinfo270-irssi.pl @@ -26,7 +26,8 @@ # $ident: sysinfo270-irssi.pl,v 2.70 2003/07/30 22:52:24 drudie Exp $ # - +use strict; +use vars qw($VERSION %IRSSI); $VERSION = '2.70'; %IRSSI = ( authors => 'David Rudie', @@ -45,33 +46,33 @@ use POSIX qw(floor); sub cmd_sysinfo { - $nic_1 = Irssi::settings_get_str('sysinfo_nic_1'); - $nic_2 = Irssi::settings_get_str('sysinfo_nic_2'); - $nic_3 = Irssi::settings_get_str('sysinfo_nic_3'); - $nic_1_name = Irssi::settings_get_str('sysinfo_nic_1_name'); - $nic_2_name = Irssi::settings_get_str('sysinfo_nic_2_name'); - $nic_3_name = Irssi::settings_get_str('sysinfo_nic_3_name'); - - + my $nic_1 = Irssi::settings_get_str('sysinfo_nic_1'); + my $nic_2 = Irssi::settings_get_str('sysinfo_nic_2'); + my $nic_3 = Irssi::settings_get_str('sysinfo_nic_3'); + my $nic_1_name = Irssi::settings_get_str('sysinfo_nic_1_name'); + my $nic_2_name = Irssi::settings_get_str('sysinfo_nic_2_name'); + my $nic_3_name = Irssi::settings_get_str('sysinfo_nic_3_name'); + + my($n1,$n2,$n3); if($nic_1 ne '') { $n1 = 1; } if($nic_2 ne '') { $n2 = 1; } if($nic_3 ne '') { $n3 = 1; } - $os = `uname -s`; chop($os); - $osn = `uname -n`; chop($osn); - $osv = `uname -r`; chop($osv); - $osm = `uname -m`; chop($osm); - $uname = "$os $osv/$osm"; - + my $os = `uname -s`; chop($os); + my $osn = `uname -n`; chop($osn); + my $osv = `uname -r`; chop($osv); + my $osm = `uname -m`; chop($osm); + my $uname = "$os $osv/$osm"; + my($darwin, $freebsd, $linux, $netbsd, $openbsd); if($os =~ /^Darwin$/) { $darwin = 1; } if($os =~ /^FreeBSD$/) { $freebsd = 1; } if($os =~ /^Linux$/) { $linux = 1; } if($os =~ /^NetBSD$/) { $netbsd = 1; } if($os =~ /^OpenBSD$/) { $openbsd = 1; } - + my($alpha, $armv4l, $i586, $i686, $ia64, $mips, $parisc64, $ppc); if($osm =~ /^alpha$/) { $alpha = 1; } if($osm =~ /^armv4l$/) { $armv4l = 1; } if($osm =~ /^i586$/) { $i586 = 1; } @@ -81,45 +82,45 @@ sub cmd_sysinfo { if($osm =~ /^parisc64$/){ $parisc64 = 1; } if($osm =~ /^ppc$/) { $ppc = 1; } - - if($osv =~ /^2\.6/) { $l26 = 1; } - - - $cpuinfo = ""; - $meminfo = ""; - $netdev = ""; - $uptime = ""; - $dmesgboot = ""; + my $l26; + if($osv >= 2.6) { $l26 = 1; } + my $cpuinfo = ""; + my $meminfo = ""; + my $netdev = ""; + my $uptime = ""; + my $dmesgboot = ""; + + my (@cpuinfo, @meminfo, @netdev, @uptime, @dmesgboot, @netstat, $sysctl); if($linux) { - open(CPUINFO, "/proc/cpuinfo"); - while($data = <CPUINFO>) { + open(CPUINFO, "<", "/proc/cpuinfo"); + while(my $data = <CPUINFO>) { $cpuinfo .= $data; @cpuinfo = split(/\n/, $cpuinfo); } close(CPUINFO); - open(MEMINFO, "/proc/meminfo"); - while($data = <MEMINFO>) { + open(MEMINFO, "<", "/proc/meminfo"); + while(my $data = <MEMINFO>) { $meminfo .= $data; @meminfo = split(/\n/, $meminfo); } close(MEMINFO); - open(NETDEV, "/proc/net/dev"); - while($data = <NETDEV>) { + open(NETDEV, "<", "/proc/net/dev"); + while(my $data = <NETDEV>) { $netdev .= $data; @netdev = split(/\n/, $netdev); } close(NETDEV); - open(UPTIME, "/proc/uptime"); - while($data = <UPTIME>) { + open(UPTIME, "<", "/proc/uptime"); + while(my $data = <UPTIME>) { $uptime .= $data; @uptime = split(/\n/, $uptime); } close(UPTIME); } else { - open(DMESG, "/var/run/dmesg.boot"); - while($data = <DMESG>) { + open(DMESG, "<", "/var/run/dmesg.boot"); + while(my $data = <DMESG>) { $dmesgboot .= $data; @dmesgboot = split(/\n/, $dmesgboot); } @@ -132,14 +133,14 @@ sub cmd_sysinfo { } } - + my $df; if($armv4l) { $df = 'df -k'; } else { $df = 'df -lk'; } - + my (@cpu, $cpu, @smp, $smp, @model, $model, @mhz, $mhz); if($freebsd) { if($alpha) { @cpu = grep(/^COMPAQ/, @dmesgboot); @@ -284,12 +285,12 @@ sub cmd_sysinfo { } - $procs = `ps ax | grep -v PID | wc -l`; chop($procs); + my $procs = `ps ax | grep -v PID | wc -l`; chop($procs); $procs = $procs; $procs =~ s/^\s+//; $procs =~ s/\s+$//; - + my ($boottime, $ticks, $currenttime, $days, $hours, $mins); if($freebsd) { $boottime = `$sysctl -n kern.boottime | awk '{print \$4}'`; } @@ -316,7 +317,7 @@ sub cmd_sysinfo { if($mins eq 0) { $mins = ''; } elsif($mins >= 1) { $mins = $mins. 'm'; } $uptime = $days . $hours . $mins; - + my ($load, @load); $load = `uptime`; chop($load); if($linux) { @load = split(/average: /, $load, 2); @@ -327,6 +328,7 @@ sub cmd_sysinfo { $load = $load[0]; + my (@memtotal, $memtotal, @membuffers, $membuffers, @memcached, $memcached, @memused, $memused); if($linux) { if($l26) { @memtotal = grep(/MemTotal:/, @meminfo); @@ -359,18 +361,20 @@ sub cmd_sysinfo { $memused = `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`; $memtotal = `$sysctl -n hw.physmem`; } - $mempused = sprintf("%.2f", $memused / $memtotal * 100); + my $mempused = sprintf("%.2f", $memused / $memtotal * 100); $memtotal = sprintf("%.2f", $memtotal / 1024 / 1024); $memused = sprintf("%.2f", $memused / 1024 / 1024); - $hddtotal = `$df | grep -v Filesystem | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chop($hddtotal); - $hddused = `$df | grep -v Filesystem | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chop($hddused); - $hddpused = sprintf("%.2f", $hddused / $hddtotal * 100); + my $hddtotal = `$df | grep -v Filesystem | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chop($hddtotal); + my $hddused = `$df | grep -v Filesystem | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chop($hddused); + my $hddpused = sprintf("%.2f", $hddused / $hddtotal * 100); $hddtotal = sprintf("%.2f", $hddtotal); - $hddused = sprintf("%.2f", $hddused); - + $hddused = sprintf("%.2f", $hddused); + my (@lan_in_1, $lan_in_1, @lan_out_1, $lan_out_1, + @lan_in_2, $lan_in_2, @lan_out_2, $lan_out_2, + @lan_in_3, $lan_in_3, @lan_out_3, $lan_out_3); if($n1) { if($darwin || $freebsd) { @lan_in_1 = grep(/$nic_1/, @netstat); @@ -515,7 +519,7 @@ sub cmd_sysinfo { } - $output = "Hostname: $osn - "; + my $output = "Hostname: $osn - "; $output .= "OS: $uname - "; $output .= "CPU: $cpu - "; $output .= "Processes: $procs - "; diff --git a/scripts/sysinfo277-irssi.pl b/scripts/sysinfo277-irssi.pl index 242812e..782367c 100644 --- a/scripts/sysinfo277-irssi.pl +++ b/scripts/sysinfo277-irssi.pl @@ -27,7 +27,8 @@ # $ident: sysinfo277-irssi.pl,v 2.77 2003/09/01 04:20:02 drudie Exp $ # - +use strict; +use vars qw($VERSION %IRSSI); $VERSION = '2.77'; %IRSSI = ( authors => 'David Rudie', @@ -43,7 +44,6 @@ $VERSION = '2.77'; use Irssi; use POSIX qw(floor); -use strict; # Set up the arrays and variables first. @@ -312,7 +312,7 @@ sub cmd_sysinfo { sub battery { $data = ""; - if(open(FD, '/proc/apm')) { + if(open(FD, "<", '/proc/apm')) { while($stream = <FD>) { $data .= $stream; @data = split(/\n/, $data); @@ -469,7 +469,7 @@ sub networktraffic { sub openfile { my $string = shift; $data = ""; - if(open(FD, $string)) { + if(open(FD, "<", $string)) { while($stream = <FD>) { $data .= $stream; @data = split(/\n/, $data); diff --git a/scripts/sysinfo_dg.pl b/scripts/sysinfo_dg.pl index cb1458f..208e4aa 100644 --- a/scripts/sysinfo_dg.pl +++ b/scripts/sysinfo_dg.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use strict; use Irssi 20011210.0250 (); +use vars qw($VERSION %IRSSI); $VERSION = "1.2"; %IRSSI = ( authors => 'David Leadbeater', @@ -15,7 +17,6 @@ $VERSION = "1.2"; #if you edit it and think the change is worthwhile tell me and i may add it into #the script and credit you -use strict; use vars qw/$colour $graphs $graphs2 $colour2 $style/; Irssi::command_bind("sysinfo","sysinfo"); @@ -136,7 +137,7 @@ sub ircbit{ } sub percent{ - my $percent = sprintf("%.1f",(($_[0]/$_[1])*100)); + my $percent = ($_[1] != 0) ? sprintf("%.1f",(($_[0]/$_[1])*100)) : 0; if($graphs){ my $tmp = "["; for(1..10){ @@ -170,7 +171,7 @@ sub uptime{ sub meminfo{ my($memsize,$memfree); - open(MEMINFO, "/proc/meminfo") or return undef; + open(MEMINFO, "<", "/proc/meminfo") or return undef; while(<MEMINFO>){ chomp; if(/^MemTotal:\s+(\d+)/){ @@ -185,7 +186,7 @@ sub meminfo{ sub swapinfo{ my($swapsize,$swapused); - open(SWAPINFO, "/proc/swaps"); + open(SWAPINFO, "<", "/proc/swaps"); while(<SWAPINFO>){ chomp; next if !/^\//; @@ -201,7 +202,7 @@ sub swapinfo{ sub netinfo{ my(%netinfo); - open(NETINFO, "/proc/net/dev") or return undef; + open(NETINFO, "<", "/proc/net/dev") or return undef; while(<NETINFO>){ chomp; next if /^(\s+)?(Inter|face|lo)/; @@ -267,7 +268,7 @@ sub basicinfo{ sub cpuinfo{ my($cpumodel,$cpusmp,$cpumhz,$cpucache,$bogomips); - open(CPUINFO, "/proc/cpuinfo") or return undef; + open(CPUINFO, "<", "/proc/cpuinfo") or return undef; while(<CPUINFO>){ if(/^model name\s+\:\s+(.*?)$/){ if(defined $cpumodel){ @@ -293,7 +294,7 @@ sub cpuinfo{ sub pciinfo{ my($videocard,$ethernet); - open(PCI, "/proc/pci") or return undef; + open(PCI, "<", "/proc/pci") or return undef; while(<PCI>){ chomp; if(/VGA compatible controller: (.*?)$/){ @@ -321,7 +322,7 @@ sub screenres{ sub firstline{ my $file = shift; - open(FILE, "$file") or return undef; + open(FILE, "<", $file) or return undef; chomp(my $line = <FILE>); close(FILE); return $line; diff --git a/scripts/talk.pl b/scripts/talk.pl index 82d2374..f669c0c 100644 --- a/scripts/talk.pl +++ b/scripts/talk.pl @@ -1,5 +1,6 @@ # -*- CPerl -*- # $Id$ +use strict; use Irssi; use vars qw($VERSION %IRSSI); $VERSION = '1.01'; diff --git a/scripts/thistory.pl b/scripts/thistory.pl index a1f5b3a..47bc85d 100644 --- a/scripts/thistory.pl +++ b/scripts/thistory.pl @@ -21,6 +21,7 @@ # v1.05 - Made the script more consistent with other # Irssi scripts. +use strict; use Irssi; use Irssi::Irc; use vars qw($VERSION %IRSSI); @@ -34,6 +35,7 @@ my $format = '"%topic" %nick (%address) [%mday.%mon.%year %hour:%min:%sec]'; # Amount of topics stored. my $tamount = 10; +my %topiclist; ###### Don't edit below this unless you know what you're doing ###### $VERSION = "1.05"; @@ -115,6 +117,7 @@ sub event_topic { $topic =~ s/%/%%/g; $topic .= '%n'; + my %val; $val{'sec'} = $sec < 10 ? "0$sec" : $sec; $val{'min'} = $min < 10 ? "0$min" : $min; $val{'hour'} = $hour < 10 ? "0$hour" : $hour; diff --git a/scripts/timezones.pl b/scripts/timezones.pl index f05bfa0..9b383d8 100644 --- a/scripts/timezones.pl +++ b/scripts/timezones.pl @@ -8,6 +8,8 @@ # or add it to an existing one with # /statusbar window add timezones (window is an exaple, see /statusbar and /help statusbar for comprehensive help) +use strict; +use vars qw($VERSION %IRSSI); $VERSION = "0.1"; %IRSSI = ( authors => "Jari Matilainen", @@ -18,7 +20,6 @@ $VERSION = "0.1"; url => "http://vague.se" ); -use strict; use Irssi::TextUI; use DateTime; diff --git a/scripts/title.pl b/scripts/title.pl index f6fa3de..bec0d4f 100644 --- a/scripts/title.pl +++ b/scripts/title.pl @@ -1,3 +1,5 @@ +use strict; +use vars qw($VERSION %IRSSI); use Irssi 20020120.0250 (); $VERSION = "3.2b"; %IRSSI = ( diff --git a/scripts/tracknick.pl b/scripts/tracknick.pl index 66d1e29..11d4987 100644 --- a/scripts/tracknick.pl +++ b/scripts/tracknick.pl @@ -26,6 +26,7 @@ # - support for runtime configuration + multiple nicks # - support for /whois and some other commands? private messages? +use strict; use Irssi; use Irssi::Irc; use vars qw($VERSION %IRSSI); @@ -37,7 +38,7 @@ $VERSION = "0.01"; description => "Are you ever tired of those people who keep changing their nicks? Or maybe you just don't like someone's nick? This script lets you see them with the real nick all the time no matter what nick they're currently using.", license => "Public Domain", url => "http://irssi.org/", - changed => "2002-03-04T22:47+0100"
+ changed => "2002-03-04T22:47+0100" ); # change these to the values you want them to be @@ -89,11 +90,11 @@ sub find_realnick { my @nicks = $channel->nicks(); $fakenick = ''; - foreach $nick (@nicks) { + foreach my $nick (@nicks) { my $realname = $nick->{realname}; if ($realname =~ /$realname_regexp/i) { $fakenick = $nick->{nick}; - break; + last; } } } diff --git a/scripts/tvmusor.pl b/scripts/tvmusor.pl index 6a4ad9f..42cd342 100644 --- a/scripts/tvmusor.pl +++ b/scripts/tvmusor.pl @@ -30,14 +30,16 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. +use strict; use Irssi; use Irssi::Irc; use IO::Socket; +use vars qw($VERSION %IRSSI); use vars %IRSSI; %IRSSI = ( authors => "Gabor Nyeki", - contact => "bigmac@home.sirklabs.hu", + contact => "bigmac\@home.sirklabs.hu", name => "tvmusor", description => "asks for the current tv-lineup from http://www.port.hu/", license => "BSDL", @@ -62,8 +64,8 @@ sub tvmusor { my ($args) = @_; split / /, $args; - $chan = @_[0]; - $list = @_[1]; + my $chan = @_[0]; + my $list = @_[1]; if (!$chan) { Irssi::print "Hasznalat: /tvmusor list|csatorna [lista hossza]"; @@ -71,7 +73,7 @@ sub tvmusor { } if ($chan eq "list") { Irssi::print "Elerheto csatornak listaja:"; - foreach $buf (sort(keys %chans)) { + foreach my $buf (sort(keys %chans)) { Irssi::print "-> $buf"; } return; @@ -82,6 +84,7 @@ sub tvmusor { return; } + my $num; if (!$list) { $num = 5; } else { @@ -89,7 +92,7 @@ sub tvmusor { } - $sd = IO::Socket::INET->new(Proto => "tcp", + my $sd = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "www.port.hu", PeerPort => "80") or die; print $sd "GET /pls/tv/tv.prog?i_days=1&i_ch=$chans{$chan}&i_ch_nr=1 HTTP/1.0\n"; @@ -99,7 +102,8 @@ sub tvmusor { Irssi::print "$chan:"; - $i = 0; + my $i = 0; + my ($x, $y); while (<$sd>) { if ($_ =~ /<tr><td align="right" valign="top" bgcolor="/) { split /<strong>/, $_; diff --git a/scripts/twprompt.pl b/scripts/twprompt.pl index 0710419..0fc490a 100644 --- a/scripts/twprompt.pl +++ b/scripts/twprompt.pl @@ -1,8 +1,10 @@ +use strict; use vars qw($VERSION %IRSSI); use Irssi; use Irssi::Irc; +use Irssi::TextUI; -$instrut = +my $instrut = ".--------------------------------------------------.\n". "| 1.) shell> mkdir ~/.irssi/scripts |\n". "| 2.) shell> cp twprompt.pl ~/.irssi/scripts/ |\n". @@ -38,6 +40,7 @@ $VERSION = '1.00'; my $twprompt_file = "$ENV{HOME}/.irssi/twprompt.data"; my $num = 1; my $jk=0; +my $timeout; sub reload { Irssi::statusbar_items_redraw('twprompt'); } @@ -49,7 +52,7 @@ sub setup { sub show { my ($item, $get_size_only) = @_; - $text = get(); + my $text = get(); $item->default_handler($get_size_only, "{prompt ".$text."}", undef, 1); } diff --git a/scripts/twsocials.pl b/scripts/twsocials.pl index de7fd2f..0ed6aa2 100644 --- a/scripts/twsocials.pl +++ b/scripts/twsocials.pl @@ -1,3 +1,4 @@ +use strict; use vars qw($VERSION %IRSSI); use Irssi; use Irssi::Irc; @@ -68,7 +69,8 @@ sub message_public { if(!Irssi::settings_get_bool('twsocials_remote')) { return; } $home_chan=$target; $data =~ s/\r//; - @data_arr = split " ", $data; + my $socname; + my @data_arr = split " ", $data; if(@data_arr[0] eq "!social") { if(!$#data_arr) { syntax($server,$target); @@ -110,8 +112,8 @@ sub message_public { return; } $socname = @data_arr[2]; - $set = @data_arr[3]; - $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; + my $set = @data_arr[3]; + my $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; $data =~ s/$cutstr//; setsoc($server,$target,$socname,$set,$data); return; @@ -124,11 +126,12 @@ sub message_public { soclist($server,$target); return; } - $chr="!"; + my $chr="!"; $socname = @data_arr[0]; - @socname_arr = split //, $socname; + my @socname_arr = split //, $socname; if(@socname_arr[0] ne $chr) { return; } $socname =~ s/$chr//; + my ($nick2,$msgsw); if(!ifexist_social($socname)) { return; } if($#data_arr == 0) { $nick2 = "UNSET"; @@ -142,8 +145,8 @@ sub message_public { $nick2 = @data_arr[1]; $msgsw=1; } - $chan = Irssi::Irc::Server->channel_find($home_chan); - $nick_obj = $chan->nick_find($nick2); + my $chan = Irssi::Irc::Server->channel_find($home_chan); + my $nick_obj = $chan->nick_find($nick2); if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { $server->command("msg $target nickname does not exist."); return; @@ -154,10 +157,11 @@ sub message_public { sub message_private { my($server, $data, $nick, $address) = @_; if(!Irssi::settings_get_bool('twsocials_remote')) { return; } - $target=$nick; + my $target=$nick; $home_chan=$target; $data =~ s/\r//; - @data_arr = split " ", $data; + my $socname; + my @data_arr = split " ", $data; if(@data_arr[0] eq "!social") { if(!$#data_arr) { syntax($server,$target); @@ -199,8 +203,8 @@ sub message_private { return; } $socname = @data_arr[2]; - $set = @data_arr[3]; - $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; + my $set = @data_arr[3]; + my $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; $data =~ s/$cutstr//; setsoc($server,$target,$socname,$set,$data); return; @@ -213,11 +217,12 @@ sub message_private { soclist($server,$target); return; } - $chr="!"; + my $chr="!"; $socname = @data_arr[0]; - @socname_arr = split //, $socname; + my @socname_arr = split //, $socname; if(@socname_arr[0] ne $chr) { return; } $socname =~ s/$chr//; + my ($nick2,$msgsw); if(!ifexist_social($socname)) { return; } if($#data_arr == 0) { $nick2 = "UNSET"; @@ -231,7 +236,7 @@ sub message_private { $nick2 = @data_arr[1]; $msgsw=1; } - $nick1 = $nick; + my $nick1 = $nick; do_social($server,$target,$socname,$nick1,$nick2,$msgsw); } @@ -243,7 +248,8 @@ sub on_public { $target=Irssi::active_win()->{active}->{name}; $home_chan=$target; $data =~ s/\r//; - @data_arr = split " ", $data; + my $socname; + my @data_arr = split " ", $data; if(@data_arr[0] eq "!social") { if(!$#data_arr) { syntax($server,$target); @@ -285,8 +291,8 @@ sub on_public { return; } $socname = @data_arr[2]; - $set = @data_arr[3]; - $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; + my $set = @data_arr[3]; + my $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; $data =~ s/$cutstr//; setsoc($server,$target,$socname,$set,$data); return; @@ -299,11 +305,12 @@ sub on_public { soclist($server,$target); return; } - $chr="!"; + my $chr="!"; $socname = @data_arr[0]; - @socname_arr = split //, $socname; + my @socname_arr = split //, $socname; if(@socname_arr[0] ne $chr) { return; } $socname =~ s/$chr//; + my ($nick2,$msgsw); if(!ifexist_social($socname)) { return; } @@ -319,9 +326,9 @@ sub on_public { $nick2 = @data_arr[1]; $msgsw=1; } - $nick1 = $server->{nick}; - $chan = Irssi::Irc::Server->channel_find($home_chan); - $nick_obj = $chan->nick_find($nick2); + my $nick1 = $server->{nick}; + my $chan = Irssi::Irc::Server->channel_find($home_chan); + my $nick_obj = $chan->nick_find($nick2); if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { $server->command("msg $target nickname does not exist."); return; @@ -336,7 +343,8 @@ sub on_private { $home_chan=$nick; $target=$nick; $data =~ s/\r//; - @data_arr = split " ", $data; + my $socname; + my @data_arr = split " ", $data; if(@data_arr[0] eq "!social") { if(!$#data_arr) { syntax($server,$target); @@ -378,8 +386,8 @@ sub on_private { return; } $socname = @data_arr[2]; - $set = @data_arr[3]; - $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; + my $set = @data_arr[3]; + my $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] "; $data =~ s/$cutstr//; setsoc($server,$target,$socname,$set,$data); return; @@ -392,11 +400,12 @@ sub on_private { soclist($server,$target); return; } - $chr="!"; + my $chr="!"; $socname = @data_arr[0]; - @socname_arr = split //, $socname; + my @socname_arr = split //, $socname; if(@socname_arr[0] ne $chr) { return; } $socname =~ s/$chr//; + my ($msgsw,$nick2); if(!ifexist_social($socname)) { return; } @@ -412,7 +421,7 @@ sub on_private { $nick2 = @data_arr[1]; $msgsw=1; } - $nick1 = $server->{nick}; + my $nick1 = $server->{nick}; $target = $nick; do_social($server,$target,$socname,$nick1,$nick2,$msgsw); } @@ -420,30 +429,30 @@ sub on_private { sub addsoc { my ($server,$target,$socname) = @_; if(ifexist_social($socname)) { - $server->command("msg $target $r3social: $rs$socname already exist."); + $server->command("msg $target r3social: $rs$socname already exist."); return; } #write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem) write_social($socname,"0","UNSET","UNSET","UNSET","UNSET","UNSET"); - irssicmd_socials(); + irssicmd_socials($socname); $server->command("msg $target $r2 done."); return; } sub irssi_addsoc { my ($data, $server, $witem) = @_; - @data_arr = split / /, $data; + my @data_arr = split / /, $data; if(@data_arr[0] eq "") { irssi_syntax(); return; } - $socname = @data_arr[0]; + my $socname = @data_arr[0]; if(ifexist_social($socname)) { print "$rs$socname already exist."; return; } write_social($socname,"0","UNSET","UNSET","UNSET","UNSET","UNSET"); - irssicmd_socials(); + irssicmd_socials($socname); print "$r2 done."; return; } @@ -454,28 +463,28 @@ sub delsoc { $server->command("msg $target $r3 DELETE $socname: $rs$socname social does not exist."); return; } - $filename ="$path/$socname.txt"; + my $filename ="$path/$socname.txt"; unlink($filename); - irssicmd_socials(); + irssicmd_socials($socname); $server->command("msg $target $r2 done."); return; } sub irssi_delsoc { my ($data, $server, $witem) = @_; - @data_arr = split / /, $data; + my @data_arr = split / /, $data; if(@data_arr[0] eq "") { irssi_syntax(); return; } - $socname = @data_arr[0]; + my $socname = @data_arr[0]; if(!ifexist_social($socname)) { print "$r3 DELETE $socname: $rs$socname social does not exist."; return; } - $filename ="$path/$socname.txt"; + my $filename ="$path/$socname.txt"; unlink($filename); - irssicmd_socials(); + irssicmd_socials($socname); print "$r2 done."; return; } @@ -484,20 +493,21 @@ sub setsoc { my ($server,$target,$socname,$set,$data) = @_; my @sets = ("priv","nobody","public","self","them","you"); if(!ifexist_social($socname)) { - $server->command("msg $target $r3 SET $social: $rs$socname does not exist."); + $server->command("msg $target $r3 SET social: $rs$socname does not exist."); return; } $set = "\L$set"; - $found=0; + my $found=0; foreach(@sets) { if($set eq $_) { $found=1; } } if(!$found) { $server->command("msg $target $r3 social:$rs invalid field name."); return; } - $filename = "$path/$socname.txt"; - $cx=0; - open(FILE,"<$filename") or do { - print "File ".$filename." Not found."; + my $filename = "$path/$socname.txt"; + my $cx=0; + my ($fpriv, $fnobody, $fpublic, $fself, $fthem, $fyou); + open(FILE,"<", $filename) or do { + print "File $filename not found."; return; }; while (<FILE>) { @@ -519,38 +529,39 @@ sub setsoc { $fyou = $data if($set eq "you"); write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem); $server->command("msg $target $r2 done."); - irssicmd_socials(); + irssicmd_socials($socname); return; } sub irssi_setsoc { my ($data, $server, $witem) = @_; - @data_arr = split / /, $data; + my @data_arr = split / /, $data; if($#data_arr <=1) { irssi_set_syntax(); return; } - $cutstr = "/"; - $socname = @data_arr[0]; - $set = @data_arr[1]; + my $cutstr = "/"; + my $socname = @data_arr[0]; + my $set = @data_arr[1]; $cutstr = "$socname $set "; $data =~ s/$cutstr//g; my @sets = ("priv","nobody","public","self","them","you"); if(!ifexist_social($socname)) { - print "$r3 SET $social: $rs$socname does not exist."; + print "$r3 SET social: $rs$socname does not exist."; return; } $set = "\L$set"; - $found=0; + my $found=0; foreach(@sets) { if($set eq $_) { $found=1; } } if(!$found) { print "$r3 social:$rs invalid field name."; return; } - $filename = "$path/$socname.txt"; - $cx=0; - open(FILE,"<$filename") or do { - print "File ".$filename." Not found."; + my $filename = "$path/$socname.txt"; + my $cx=0; + my ($fpriv, $fnobody, $fpublic, $fself, $fthem, $fyou); + open(FILE,"<", $filename) or do { + print "File $filename not found."; return; }; while (<FILE>) { @@ -572,7 +583,7 @@ sub irssi_setsoc { $fyou = $data if($set eq "you"); write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem); print "$r2 done."; - irssicmd_socials(); + irssicmd_socials($socname); return; } @@ -610,13 +621,14 @@ sub colorlist { my $spc = ' 'x50; my $text = ""; my $tmp = ""; - $cx=0; - $bar = "------------------------------------------------------------------"; + my $cx=0; + my $bar = "------------------------------------------------------------------"; $bar = ".".substr($bar,0,int(($maxsize-13)/2)).$title.substr($bar,0,int(($maxsize-13)/2))."."; $server->command("msg $target $bc$bar$rs"); + my ($text,$blah); foreach (@colname) { - $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20); + my $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20); $tmp = $text.$col; if(strsize($tmp) >= $maxsize) { $text.=' 'x50; @@ -638,14 +650,16 @@ sub colorlist { sub irssi_colorlist { my ($server,$target) = @_; - $spc = ' 'x50; + my $spc = ' 'x50; my $title = "$bc($bt Color List $bc)"; - $bar = "------------------------------------------------------------------"; + my $bar = "------------------------------------------------------------------"; $bar = ".".substr($bar,0,int(($maxsize-13)/2)).$title.substr($bar,0,int(($maxsize-13)/2))."."; print "$bc$bar$rs"; + my $cx=0; + my ($text,$blah); foreach (@colname) { - $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20); - $tmp = $text.$col; + my $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20); + my $tmp = $text.$col; if(strsize($tmp) >= $maxsize) { $text.=' 'x50; $blah =~ s/\003//; @@ -693,7 +707,7 @@ sub soclist{ opendir(DIR,$path) or return 0; while (defined(my $file = readdir(DIR))) { if($file =~ m".txt") { - $tmp=$file; + my $tmp=$file; $tmp =~ s/$cutstr//; push(@array,$tmp); } @@ -711,15 +725,15 @@ sub socblist { my $text=""; opendir(DIR,$path) or return 0; my $title = "$bc($bt Social List $bc)"; - $bar = "------------------------------------------------------------------"; + my $bar = "------------------------------------------------------------------"; $bar = ".".substr($bar,0,int(($maxsize-15)/2)).$title.substr($bar,0,int(($maxsize-15)/2)+1)."."; $server->command("msg $target $bc$bar$rs"); - $spc = " "; - $cutstr=".txt"; + my $spc = " "; + my $cutstr=".txt"; opendir(DIR,$path) or return 0; while (defined(my $file = readdir(DIR))) { if($file =~ m".txt") { - $tmp=$file; + my $tmp=$file; $tmp =~ s/$cutstr//; push(@array,$tmp); } @@ -727,7 +741,8 @@ sub socblist { closedir(DIR); @array = sort(@array); foreach(@array) { - $socname=$_; + my $name; + my $socname=$_; $socname =~ s/$cutstr//; if(!get_social_str($socname,"priv")) { $name = substr(" $socname$spc",0,10); @@ -761,15 +776,15 @@ sub irssi_socblist { my $text=""; opendir(DIR,$path) or return 0; my $title = "$bc($bt Social List $bc)"; - $bar = "------------------------------------------------------------------"; + my $bar = "------------------------------------------------------------------"; $bar = ".".substr($bar,0,int(($maxsize-15)/2)).$title.substr($bar,0,int(($maxsize-15)/2)+1)."."; print "$bc$bar$rs"; - $spc = " "; - $cutstr=".txt"; + my $spc = " "; + my $cutstr=".txt"; opendir(DIR,$path) or return 0; while (defined(my $file = readdir(DIR))) { if($file =~ m".txt") { - $tmp=$file; + my $tmp=$file; $tmp =~ s/$cutstr//; push(@array,$tmp); } @@ -777,7 +792,8 @@ sub irssi_socblist { closedir(DIR); @array = sort(@array); foreach(@array) { - $socname=$_; + my $name; + my $socname=$_; $socname =~ s/$cutstr//; if(!get_social_str($socname,"priv")) { $name = substr(" $socname$spc",0,10); @@ -807,6 +823,7 @@ sub irssi_socblist { sub do_social { my ($server,$target,$socname,$name1,$name2,$msgsw) = @_; + my $text; if($name1 eq $name2) { $text = get_social_str($socname,"self"); $text= social_parse($name1,$name2,$text); @@ -846,9 +863,10 @@ sub do_social { sub print_social { my ($server,$target,$socname) = @_; my $text=""; - $filename = "$path/$socname.txt"; - $cx=0; - open(FILE,"<$filename") or do { + my $filename = "$path/$socname.txt"; + my $cx=0; + my ($fpriv, $fnobody, $fpublic, $fself, $fthem, $fyou); + open(FILE,"<", $filename) or do { $server->command("msg $target $socname does not exist."); return; }; @@ -874,18 +892,19 @@ sub print_social { } sub irssi_print_social { - my ($data, $server, $witem) = @_; - @data_arr = split / /, $data; - $cutstr = "/"; + my ($data, $server, $item) = @_; + my @data_arr = split / /, $data; + my $cutstr = "/"; if (@data_arr[0] =~ m/^[(set)|(blist)|(add)|(list)|(del)|(color)]/i && !ifexist_social(@data_arr[0])) { Irssi::command_runsub ('social', $data, $server, $item); return; } - $socname = @data_arr[0]; + my $socname = @data_arr[0]; my $text=""; - $filename = "$path/$socname.txt"; - $cx=0; - open(FILE,"<$filename") or do { + my $filename = "$path/$socname.txt"; + my $cx=0; + my ($fpriv, $fnobody, $fpublic, $fself, $fthem, $fyou); + open(FILE,"<", $filename) or do { print "$socname does not exist."; return; }; @@ -921,8 +940,8 @@ sub color_parse { my ($str) = @_; my $cx=0; foreach(@mirc_color_name) { - $old = @mirc_color_name[$cx]; - $new = @mirc_color_arr[$cx]; + my $old = @mirc_color_name[$cx]; + my $new = @mirc_color_arr[$cx]; $str =~ s/$old/$new/g; $cx++; } @@ -940,9 +959,10 @@ sub social_parse { sub get_social_str { my ($social,$colum) = @_; - $filename = "$path/$social.txt"; - $cx=0; - open(FILE,"<$filename"); + my $filename = "$path/$social.txt"; + my $cx=0; + my ($fpriv, $fnobody, $fpublic, $fself, $fthem, $fyou); + open(FILE,"<", $filename); while (<FILE>) { chomp; $fpriv = color_parse($_) if($cx == 0); @@ -952,7 +972,7 @@ sub get_social_str { $fthem = color_parse($_) if($cx == 4); $fyou = color_parse($_) if($cx == 5); $cx++; - } + } close FILE; return $fpriv if($colum eq "priv"); return $fself if($colum eq "self"); @@ -964,15 +984,15 @@ sub get_social_str { } sub ifexist_social { - my ($social) = @_; + my ($socname) = @_; my $cutstr= ".txt"; - $filename = "$path/$socname.txt"; + my $filename = "$path/$socname.txt"; opendir(DIR,$path) or return 0; while (defined(my $file = readdir(DIR))) { if($file =~ m".txt") { - $tmp=$file; + my $tmp=$file; $tmp =~ s/$cutstr//; - return 1 if($social eq $tmp); + return 1 if($socname eq $tmp); } } return 0; @@ -980,14 +1000,14 @@ sub ifexist_social { sub strsize { my ($word) = @_; - @word_arr = split //, $word; + my @word_arr = split //, $word; return $#word_arr+1; } sub write_social { my ($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem) = @_; - $filename = "$path/$socname.txt"; - open(FILE,">$filename"); + my $filename = "$path/$socname.txt"; + open(FILE,">", $filename); print FILE "$fpriv\n"; print FILE "$fnobody\n"; print FILE "$fpublic\n"; @@ -1001,36 +1021,37 @@ sub write_social { sub irssicmd_reset { for my $cmd (Irssi::commands()) { if($cmd->{category} eq "Social Commands") { - $tmp=$cmd->{cmd}; - Irssi::command_unbind($tmp,on_cmd); - } + my $tmp=$cmd->{cmd}; + Irssi::command_unbind($tmp,'on_cmd'); } + } } sub irssicmd_socials { - my ($social) = @_; + my ($socname) = @_; irssicmd_reset(); my $cutstr= ".txt"; - $filename = "$path/$socname.txt"; + my $filename = "$path/$socname.txt"; opendir(DIR,$path) or return 0; while (defined(my $file = readdir(DIR))) { if($file =~ m".txt") { - $tmp=$file; + my $tmp=$file; $tmp =~ s/$cutstr//; - Irssi::command_bind($tmp,on_cmd,'Social Commands'); + Irssi::command_bind($tmp,'on_cmd','Social Commands'); } } } sub on_cmd { my ($data, $server, $witem) = @_; - @data_arr = split / /, $lastcmd; - $cutstr = "/"; - $socname = @data_arr[0]; + my @data_arr = split / /, $lastcmd; + my $cutstr = "/"; + my $socname = @data_arr[0]; $socname =~ s/$cutstr//; - $target=Irssi::active_win()->{active}->{name}; + my $target=Irssi::active_win()->{active}->{name}; $home_chan=$target; - $nick = "TechWizard"; + my $nick = "TechWizard"; + my ($msgsw, $nick2); if($#data_arr == 0) { $nick2 = "UNSET"; $msgsw=0; @@ -1044,8 +1065,8 @@ sub on_cmd { $msgsw=1; } if($home_chan =~ /^#/) { - $chan = Irssi::Irc::Server->channel_find($home_chan); - $nick_obj = $chan->nick_find($nick2); + my $chan = Irssi::Irc::Server->channel_find($home_chan); + my $nick_obj = $chan->nick_find($nick2); if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { $server->command("msg $target nickname does not exist."); return; @@ -1061,7 +1082,7 @@ sub cmd_sig { } sub check_dir { - $sw=1; + my $sw=1; opendir(DIR,$path) or $sw=0; closedir(DIR); return $sw; @@ -1069,11 +1090,11 @@ sub check_dir { sub init_socpath { if(check_dir()) { return; } - @socnam_arr = ("beer","bslap","chains","cut","drp","fart","french","halo", + my @socnam_arr = ("beer","bslap","chains","cut","drp","fart","french","halo", "hug","hump","kiss","smacks","smooch","spank","stab","staple", "strip","trout","whips","yawn" ); - @socline_arr = ( + my @socline_arr = ( "0\nWho wants Beer!?!?!?\nname1 throws name2 a fresh cold beer out of the fridge.\nname1 opens up a nice cold beer, and drinks it.\nname1 tosses you a nice cold beer, better catch it!!\nyou just tossed name2 a nice cold beer.\n", "0\nLook OUT!!!! name1 is ready to Bitch slap someone!!!!\nname1 Bitch slaps name2 Violently, OUWWW that gotta hurt!\nname1 Bitch Slaps themself hard, Are they Crazy or what???\nyou gotten Bitch Slapped by name1, can you call 911?.\nyou violently bitch slap name2.\n", "0\nname1 looks around swinging the chains around, who shall be my victim?\nname1 chains name2 up, Ohh... Boy, name2 is gonna get it...\nname1 chain themself up, and swallowed the keys.\nname1 chained you up, aren't you wondering what they will do next?\nyou just chained up name2, whats next? torchure?\n", @@ -1099,13 +1120,13 @@ sub init_socpath { print "Mkdir $path."; mkdir($path); print "Inserting socials into $path."; - foreach $socname (@socnam_arr) { - $filename = "$path/$socname.txt"; - open(FILE,">$filename"); + foreach my $socname (@socnam_arr) { + my $filename = "$path/$socname.txt"; + open(FILE,">", $filename); print FILE @socline_arr[$cx]; close FILE; $cx++; - } + } } Irssi::command_bind('social','irssi_print_social','tech_addon'); diff --git a/scripts/twtopic.pl b/scripts/twtopic.pl index 3404409..1fbb47f 100644 --- a/scripts/twtopic.pl +++ b/scripts/twtopic.pl @@ -1,3 +1,4 @@ +use strict; use vars qw($VERSION %IRSSI); use Irssi; use Irssi::Irc; @@ -33,7 +34,7 @@ my $instrut = "| /toggle twtopic_instruct |Startup instructions |\n". "\`--------------------------------------------------'"; - +my $timeout; my $start_pos=0; my $flipflop=0; my @mirc_color_arr = ("\0031","\0035","\0033","\0037","\0032","\0036","\00310","\0030","\00314","\0034","\0039","\0038","\00312","\00313","\00311","\00315","\017"); @@ -47,41 +48,41 @@ sub setup { sub show { my ($item, $get_size_only) = @_; - $text = get(); + my $text = get(); $text="[".$text."]"; $item->default_handler($get_size_only,$text, undef, 1); } sub get_topic { - $topic = ""; - $name = Irssi::active_win()->{active}->{name}; - $type = Irssi::active_win()->{active}->{type}; + my $topic = ""; + my $name = Irssi::active_win()->{active}->{name}; + my $type = Irssi::active_win()->{active}->{type}; $name = "Status" if($name eq ""); if($name eq "Status") { return "Irssi website: http://www.irssi.org, Irssi IRC channel: #irssi @ irc://irc.freenode:6667, twtopic has been written by Tech Wizard"; } if($type eq "QUERY") { - $text = "You are now talking too...... ".$name; + my $text = "You are now talking too...... ".$name; return $text; } - $channel = Irssi::Irc::Server->channel_find($name); + my $channel = Irssi::Irc::Server->channel_find($name); $topic = $channel->{topic}; foreach (@mirc_color_arr) { $topic =~ s/$_//g; } return $topic; } sub get { - $str=get_topic(); + my $str=get_topic(); $str =~ s/(\00313)+//; $str =~ s/(\002)+//; $str =~ s/(\001)+//; - $extra_str= " "; - $size = Irssi::settings_get_int('twtopic_size'); + my $extra_str= " "; + my $size = Irssi::settings_get_int('twtopic_size'); if($str eq "") { my $str = "=-=-=-=-= No Topic=-=-=-=-=-=-=-"; } - @str_arr = split //, $str; + my @str_arr = split //, $str; my $total = $#str_arr; $str=substr($extra_str,0,$size).$str.$extra_str; - $text = substr($str,$start_pos,$size); + my $text = substr($str,$start_pos,$size); if($start_pos > $total+$size) { $start_pos=0; } diff --git a/scripts/u.pl b/scripts/u.pl index e785c76..d20fb41 100644 --- a/scripts/u.pl +++ b/scripts/u.pl @@ -1,3 +1,4 @@ +use strict; use vars qw($VERSION %IRSSI); use Irssi 20020120; diff --git a/scripts/uptime.pl b/scripts/uptime.pl index 114070c..6846fb1 100644 --- a/scripts/uptime.pl +++ b/scripts/uptime.pl @@ -37,11 +37,11 @@ sub uptime_linux { my($irssi_start); local(*FILE); - open FILE, "< /proc/uptime"; + open FILE, "<", "/proc/uptime"; $sys_uptime = (split " ", <FILE>)[0]; close FILE; - open FILE, "< /proc/$$/stat"; + open FILE, "<", "/proc/$$/stat"; $irssi_start = (split " ", <FILE>)[21]; close FILE; diff --git a/scripts/url_log.pl b/scripts/url_log.pl index fdcf09e..f156138 100644 --- a/scripts/url_log.pl +++ b/scripts/url_log.pl @@ -47,8 +47,10 @@ # - don't output "bytes" if content-length is not available # - prefix with http:// if no prefix is given +use strict; use Irssi; use Irssi::Irc; +use vars qw($VERSION %IRSSI); $VERSION = "0.2"; %IRSSI = ( @@ -67,8 +69,6 @@ use DBI; use POSIX qw(strftime); -use strict; - my @urls; my $user_agent = new LWP::UserAgent; @@ -179,7 +179,7 @@ sub log_to_file my ($nick, $target, $text) = @_; my ($lfile) = glob Irssi::settings_get_str("url_log_file"); - if ( open(LFD, ">> $lfile") ) { + if ( open(LFD, ">>", $lfile) ) { my %h = { time => time, diff --git a/scripts/urlfeed.pl b/scripts/urlfeed.pl index 7d9a8f0..fbbee23 100644 --- a/scripts/urlfeed.pl +++ b/scripts/urlfeed.pl @@ -94,7 +94,7 @@ sub urlfeed_touch_file ($) { return 0; } - eval { open(FH, "+<$f"); }; + eval { open(FH, "+<", $f); }; if ($@) { Irssi::print("URLfeed error: couldn't open $f for writing: $@"); return 0; diff --git a/scripts/urlgrab.pl b/scripts/urlgrab.pl index 1fd657f..00b0c64 100644 --- a/scripts/urlgrab.pl +++ b/scripts/urlgrab.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl -w +use strict; use Irssi 20010120.0250 (); +use vars qw($VERSION %IRSSI); $VERSION = "0.2"; %IRSSI = ( authors => 'David Leadbeater', @@ -10,7 +12,6 @@ $VERSION = "0.2"; url => 'http://irssi.dgl.cx/', ); -use strict; my $lasturl; # Change the file path below if needed @@ -50,7 +51,7 @@ sub url_log{ my($where,$channel,$url) = @_; return if lc $url eq lc $lasturl; # a tiny bit of protection from spam/flood $lasturl = $url; - open(URLLOG, ">>$file") or return; + open(URLLOG, ">>", $file) or return; print URLLOG time." $where $channel $lasturl\n"; close(URLLOG); } diff --git a/scripts/urlplot.pl b/scripts/urlplot.pl index cbc9ba4..a56d124 100644 --- a/scripts/urlplot.pl +++ b/scripts/urlplot.pl @@ -479,7 +479,7 @@ sub create_chan_template { my ($full_log, $file, $channel) = @_; my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME); local *FH; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create logfile $file: $!"; print_chan_log_file_template(\*FH, $reload, $channel, $full_log); print FH LOG_FILE_TAIL; @@ -490,7 +490,7 @@ sub create_full_template { my $file = shift; my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME); local *FH; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create logfile $file: $!"; print_full_log_file_template(\*FH, $reload); print FH LOG_FILE_TAIL; @@ -499,7 +499,7 @@ sub create_full_template { sub create_csv_file { my $file = shift; - open(FH, "> $file") + open(FH, ">", $file) || die "can't create $file: $!"; close FH; } @@ -509,7 +509,7 @@ sub log_csv { my $sep = Irssi::settings_get_str(KEY_URL_LOG_CSV_SEPARATOR); my $fields = join $sep, @_; local *FH; - open(FH, ">> $csv_log") + open(FH, ">>", $csv_log) || die "can't open $csv_log: $!"; print FH "$fields\n"; close FH; diff --git a/scripts/usercount.pl b/scripts/usercount.pl index 46dc0b4..613da1d 100644 --- a/scripts/usercount.pl +++ b/scripts/usercount.pl @@ -1,4 +1,6 @@ +use strict; use Irssi 20040119.2359 (); +use vars qw($VERSION %IRSSI); $VERSION = "1.19"; %IRSSI = ( authors => 'David Leadbeater, Timo Sirainen, Georg Lukas', @@ -29,7 +31,6 @@ $VERSION = "1.19"; # sb_uc_space = " "; -use strict; use Irssi::TextUI; my ($ircops, $ops, $halfops, $voices, $normal, $total); diff --git a/scripts/userhost.pl b/scripts/userhost.pl index 9111a93..339b309 100644 --- a/scripts/userhost.pl +++ b/scripts/userhost.pl @@ -1,6 +1,7 @@ # $Id: userhost.pl,v 1.18 2002/07/04 13:18:02 jylefort Exp $ - +use strict; use Irssi 20020121.2020 (); +use vars qw($VERSION %IRSSI); $VERSION = "0.23"; %IRSSI = ( authors => 'Jean-Yves Lefort', @@ -46,8 +47,6 @@ $VERSION = "0.23"; # # 2002-01-23 initial release -use strict; - # -verbatim- import expand sub expand { my ($string, %format) = @_; diff --git a/scripts/users.pl b/scripts/users.pl index b6c7441..32bd175 100644 --- a/scripts/users.pl +++ b/scripts/users.pl @@ -1,6 +1,8 @@ # $Id: users.pl,v 1.22 2003/01/11 14:54:35 jylefort Exp $ +use strict; use Irssi 20020121.2020 (); +use vars qw($VERSION %IRSSI); $VERSION = "2.3"; %IRSSI = ( authors => 'Jean-Yves Lefort', @@ -98,8 +100,6 @@ $VERSION = "2.3"; # # 2002-01-23 initial release -use strict; - ### sort algorithms table ##################################################### my %cmp = ( diff --git a/scripts/version-stat.pl b/scripts/version-stat.pl index acd2f47..6894ab4 100644 --- a/scripts/version-stat.pl +++ b/scripts/version-stat.pl @@ -4,6 +4,7 @@ # - http://www.penguin-breeder.org/?page=irssi #<scriptinfo> +use strict; use vars qw($VERSION %IRSSI); use Irssi 20020120; diff --git a/scripts/wa.pl b/scripts/wa.pl index d26908f..46d59cd 100644 --- a/scripts/wa.pl +++ b/scripts/wa.pl @@ -1,3 +1,7 @@ +use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
$VERSION = "2.3.1";
%IRSSI = (
authors => "Matti 'qvr' Hiljanen, Piotr 'Pieta' Szymanski",
@@ -44,7 +48,6 @@ $VERSION = "2.3.1"; #
use Socket;
-use strict;
my($waport, $wahost, $wapass, $di);
@@ -55,15 +58,15 @@ sub getstat($$$) { if (socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'))) {
if (connect(SOCK, sockaddr_in($port, inet_aton($host)))) {
unless (send(SOCK, $data, 0)) {
- Irssi::print("Unable to write to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+ Irssi::print("Unable to write to the socket: $!", MSGLEVEL_CLIENTERROR);
return;
}
} else {
- Irssi::print("Unable to connect to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+ Irssi::print("Unable to connect to the socket: $!", MSGLEVEL_CLIENTERROR);
return;
}
} else {
- Irssi::print("Connection to $host failed: $!", Irssi::MSGLEVEL_CLIENTERROR);
+ Irssi::print("Connection to $host failed: $!", MSGLEVEL_CLIENTERROR);
return;
}
diff --git a/scripts/watch.pl b/scripts/watch.pl index 5fbf14e..e0a297a 100644 --- a/scripts/watch.pl +++ b/scripts/watch.pl @@ -6,6 +6,8 @@ # esta en el irc, este script solamente podra ser usado en redes # que lo permitan, como por ejemplo irc-hispano. +use strict; +use vars qw($VERSION %IRSSI); $VERSION = '1.0'; %IRSSI = ( authors => 'ThEbUtChE', @@ -30,10 +32,10 @@ sub watch_list my($nick); local(*FILE); - open FILE, "< $file"; + open FILE, "<", $file; while (<FILE>) { - @nick = split; - Irssi::print "Notify \002@nick[0]\002"; + my @nick = split; + Irssi::print "Notify \002@nick[0]\002"; } close FILE; } @@ -45,13 +47,13 @@ sub esta_notify my($file) = Irssi::get_irssi_dir."/watch"; my($nick); local(*FILE); - open FILE, "< $file"; + open FILE, "<", $file; while (<FILE>) { - @nick = split; - if (@nick[0] eq $ni) { return 1; } + my @nick = split; + if (@nick[0] eq $ni) { return 1; } } close FILE; -return 0; + return 0; } sub watch_add @@ -62,11 +64,11 @@ sub watch_add if ($nick eq "") { Irssi::print "Debes decir un nick a incluir en la lista."; return; } elsif (esta_notify($nick)) { Irssi::print "El nick ya esta en el notify."; return; } - open FILE, ">> $file"; + open FILE, ">>", $file; print FILE join("\t","$nick\n"); close FILE; -Irssi::print "El nick $nick ha sido metido en el notify"; -Irssi::active_win()->command("quote watch +$nick"); + Irssi::print "El nick $nick ha sido metido en el notify"; + Irssi::active_win()->command("quote watch +$nick"); } @@ -80,43 +82,43 @@ sub watch_del if ($ni eq "") { Irssi::print "Debes decir un nick a borrar de la lista."; return; } elsif (!esta_notify($ni)) { Irssi::print "El nick no esta en el notify."; return; } - open FILE2, "> $file2"; + open FILE2, ">", $file2; print FILE2 ""; close FILE2; - open FILE, "< $file"; - open FILE2, ">> $file2"; + open FILE, "<", $file; + open FILE2, ">>", $file2; while (<FILE>) { - @nick = split; + my @nick = split; if (@nick[0] eq $ni) { - } else { - print FILE2 join("\t","@nick[0]\n"); - } + } else { + print FILE2 join("\t","@nick[0]\n"); + } } close FILE; close FILE2; - open FILE, "> $file"; + open FILE, ">", $file; print FILE ""; close FILE; - open FILE, ">> $file"; - open FILE2, "< $file2"; + open FILE, ">>", $file; + open FILE2, "<", $file2; while (<FILE2>) { - @nick = split; + my @nick = split; print FILE join("\t","@nick[0]\n"); } close FILE; close FILE2; -Irssi::active_win()->command("quote watch -$ni"); -Irssi::print "Usuario \002$ni\002 Borrado de la lista de notify"; + Irssi::active_win()->command("quote watch -$ni"); + Irssi::print "Usuario \002$ni\002 Borrado de la lista de notify"; } sub watch_list_online { -Irssi::active_win()->command("quote watch l"); + Irssi::active_win()->command("quote watch l"); } sub watch @@ -140,13 +142,13 @@ sub mete_lista my($nick); local(*FILE); my $ret; - open FILE, "< $file"; + open FILE, "<", $file; while (<FILE>) { - @nick = split; - $ret .= "+@nick[0],"; + my @nick = split; + $ret .= "+@nick[0],"; } chop $ret; -Irssi::active_win()->command("quote watch $ret"); + Irssi::active_win()->command("quote watch $ret"); close FILE; } @@ -154,15 +156,16 @@ sub event_is_online { my ($server, $data) = @_; my ($me, $nick, $ident, $host) = split(/ /, $data); -Irssi::print "\002$nick\002 \0034[\003$ident\@$host\0034]\003 has joined to IRC"; + Irssi::print "\002$nick\002 \0034[\003$ident\@$host\0034]\003 has joined to IRC"; } sub event_is_offline { my ($server, $data) = @_; my ($me, $nick) = split(/ /, $data); -Irssi::print "\002$nick\002 has left IRC"; + Irssi::print "\002$nick\002 has left IRC"; } + sub null { } diff --git a/scripts/weather.pl b/scripts/weather.pl index 57163dc..7c62457 100644 --- a/scripts/weather.pl +++ b/scripts/weather.pl @@ -22,6 +22,7 @@ # $4 is current conditions (windy or partly cloudy) # - You have to modify this line to the path of your LWP-dir +use strict; use lib '/usr/lib/perl5/vendor_perl/5.6.1'; use Irssi; use Irssi::TextUI; @@ -146,7 +147,7 @@ sub get_weather_for_status { chomp($temperature); chomp($feelslike); chomp($description); - open STATUS_FILE, ">.irssi/weather.status" or die "Can't write to status file: $!"; + open STATUS_FILE, ">", ".irssi/weather.status" or die "Can't write to status file: $!"; print STATUS_FILE "$temperature,$feelslike,$description"; close STATUS_FILE; } @@ -154,7 +155,7 @@ sub get_weather_for_status { # Status bar information sub theme_format { - open GET_STATUS, "<.irssi/weather.status" or die "Can't open status file: $!"; + open GET_STATUS, "<", ".irssi/weather.status" or die "Can't open status file: $!"; my $themed = ""; my $themecmd = ""; diff --git a/scripts/wkb.pl b/scripts/wkb.pl index 527536a..96cbd34 100644 --- a/scripts/wkb.pl +++ b/scripts/wkb.pl @@ -1,4 +1,6 @@ +use strict; use Irssi 20020217; # Irssi 0.8.0 +use vars qw($VERSION %IRSSI); $VERSION = "1.1"; %IRSSI = ( authors => "Matti 'qvr' Hiljanen", @@ -9,7 +11,6 @@ $VERSION = "1.1"; url => "http://matin.maapallo.org/softa/irssi", ); -use strict; use Irssi; my @channels = diff --git a/scripts/xauth.pl b/scripts/xauth.pl index 989e3ef..430500d 100644 --- a/scripts/xauth.pl +++ b/scripts/xauth.pl @@ -344,7 +344,7 @@ sub read_users() { # Lets reset @users so we can call this as a function. @users = (); - if (!(open XUSERS, "<$x_passfile")) { + if (!(open XUSERS, "<", $x_passfile)) { &create_users; }; &putlog("Running checks on the userfile.") if ($verbose > 1); @@ -379,7 +379,7 @@ sub create_users() { &putlog("Creating basic userfile in $x_passfile. Edit File."); - if(!(open XUSERS, ">$x_passfile")) { + if(!(open XUSERS, ">", $x_passfile)) { &putlog("Unable to create file $x_passfile"); } @@ -394,7 +394,7 @@ sub create_users() { sub create_chans() { &putlog("Creating basic channelfile in $x_chanfile. Edit File."); - if(!(open NICKCHANS, ">$x_chanfile")) { + if(!(open NICKCHANS, ">", $x_chanfile)) { &putlog("Unable to create file $x_chanfile"); } @@ -417,7 +417,7 @@ sub read_chans() { # Lets reset @users so we can call this as a function. @chans = (); - if (!(open NICKCHANS, "<$x_chanfile")) { + if (!(open NICKCHANS, "<", $x_chanfile)) { create_chans; }; &putlog("Running checks on the channelfile.") if ($verbose > 1); diff --git a/scripts/xmms.pl b/scripts/xmms.pl index 6a72b1e..dcd8278 100644 --- a/scripts/xmms.pl +++ b/scripts/xmms.pl @@ -83,7 +83,7 @@ Example: /set xmms_format_time %%m minutes, %%s seconds my %xi; - open(XMMS, $xf); + open(XMMS, "<", $xf); while (<XMMS>) { chomp; my ($key, $value) = split /: /, $_, 2; diff --git a/scripts/xmms2.pl b/scripts/xmms2.pl index 82de202..ce2c9d8 100644 --- a/scripts/xmms2.pl +++ b/scripts/xmms2.pl @@ -45,7 +45,7 @@ sub cmd_xmms { $args =~ s/\s+$//; #fix unneeded whitespaces after output dest. my (@t, $t, $ttotal, @pos, $pos, $postotal, $title); - open xmms, '/tmp/xmms-info' || die; # if nothing happens, it probably + open xmms, "<", '/tmp/xmms-info' || die; # if nothing happens, it probably # failed here! while(<xmms>) { diff --git a/scripts/xqf.pl b/scripts/xqf.pl index d64c44c..2ea7a30 100644 --- a/scripts/xqf.pl +++ b/scripts/xqf.pl @@ -108,7 +108,7 @@ sub checkLaunchInfo { sub fetchLaunchInfo { my $reply; - open(FH, "<".Irssi::settings_get_str('xqfLaunchInfo')); + open(FH, "<", Irssi::settings_get_str('xqfLaunchInfo')); my @LaunchInfo = <FH>; close (FH); |