+use strict;
use Irssi;
use vars qw($VERSION %IRSSI %HELP);
+use strict;
use Irssi 20020101.0250 ();
+use vars qw($VERSION %IRSSI);
$VERSION = "2";
%IRSSI = (
authors => 'David Leadbeater',
url => 'http://irssi.dgl.cx/',
);
-use strict;
my %servers;
sub sig_complete {
# This is not a well written script, but it works. I hope.
-
+use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
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)
{
#!/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
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',
# 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";
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);
}
+use strict;
use Irssi 20020300;
use 5.6.0;
use Socket;
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");
}
@smslist = ();
return unless (-e $smsfile);
local *fp;
- open(fp, "<$smsfile");
+ open(fp, "<", $smsfile);
local $/ = "\n";
while (<fp>) {
chop;
# $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',
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; }
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);
}
}
}
-
+ 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);
}
- $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}'`;
}
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);
$load = $load[0];
+ my (@memtotal, $memtotal, @membuffers, $membuffers, @memcached, $memcached, @memused, $memused);
if($linux) {
if($l26) {
@memtotal = grep(/MemTotal:/, @meminfo);
$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);
}
- $output = "Hostname: $osn - ";
+ my $output = "Hostname: $osn - ";
$output .= "OS: $uname - ";
$output .= "CPU: $cpu - ";
$output .= "Processes: $procs - ";
# $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',
use Irssi;
use POSIX qw(floor);
-use strict;
# Set up the arrays and variables first.
sub battery {
$data = "";
- if(open(FD, '/proc/apm')) {
+ if(open(FD, "<", '/proc/apm')) {
while($stream = <FD>) {
$data .= $stream;
@data = split(/\n/, $data);
sub openfile {
my $string = shift;
$data = "";
- if(open(FD, $string)) {
+ if(open(FD, "<", $string)) {
while($stream = <FD>) {
$data .= $stream;
@data = split(/\n/, $data);
#!/usr/bin/perl
+use strict;
use Irssi 20011210.0250 ();
+use vars qw($VERSION %IRSSI);
$VERSION = "1.2";
%IRSSI = (
authors => 'David Leadbeater',
#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");
}
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){
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+)/){
sub swapinfo{
my($swapsize,$swapused);
- open(SWAPINFO, "/proc/swaps");
+ open(SWAPINFO, "<", "/proc/swaps");
while(<SWAPINFO>){
chomp;
next if !/^\//;
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)/;
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){
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: (.*?)$/){
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;
# -*- CPerl -*-
# $Id$
+use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = '1.01';
# v1.05 - Made the script more consistent with other
# Irssi scripts.
+use strict;
use Irssi;
use Irssi::Irc;
use vars qw($VERSION %IRSSI);
# Amount of topics stored.
my $tamount = 10;
+my %topiclist;
###### Don't edit below this unless you know what you're doing ######
$VERSION = "1.05";
$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;
# 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",
url => "http://vague.se"
);
-use strict;
use Irssi::TextUI;
use DateTime;
+use strict;
+use vars qw($VERSION %IRSSI);
use Irssi 20020120.0250 ();
$VERSION = "3.2b";
%IRSSI = (
# - 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);
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"\r
+ changed => "2002-03-04T22:47+0100"
);
# change these to the values you want them to be
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;
}
}
}
# 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",
my ($args) = @_;
split / /, $args;
- $chan = @_[0];
- $list = @_[1];
+ my $chan = @_[0];
+ my $list = @_[1];
if (!$chan) {
Irssi::print "Hasznalat: /tvmusor list|csatorna [lista hossza]";
}
if ($chan eq "list") {
Irssi::print "Elerheto csatornak listaja:";
- foreach $buf (sort(keys %chans)) {
+ foreach my $buf (sort(keys %chans)) {
Irssi::print "-> $buf";
}
return;
return;
}
+ my $num;
if (!$list) {
$num = 5;
} else {
}
- $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";
Irssi::print "$chan:";
- $i = 0;
+ my $i = 0;
+ my ($x, $y);
while (<$sd>) {
if ($_ =~ /<tr><td align="right" valign="top" bgcolor="/) {
split /<strong>/, $_;
+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".
my $twprompt_file = "$ENV{HOME}/.irssi/twprompt.data";
my $num = 1;
my $jk=0;
+my $timeout;
sub reload { Irssi::statusbar_items_redraw('twprompt'); }
sub show {
my ($item, $get_size_only) = @_;
- $text = get();
+ my $text = get();
$item->default_handler($get_size_only, "{prompt ".$text."}", undef, 1);
}
+use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
use Irssi::Irc;
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);
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;
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";
$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;
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);
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;
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";
$nick2 = @data_arr[1];
$msgsw=1;
}
- $nick1 = $nick;
+ my $nick1 = $nick;
do_social($server,$target,$socname,$nick1,$nick2,$msgsw);
}
$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);
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;
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;
}
$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;
$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);
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;
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;
}
$nick2 = @data_arr[1];
$msgsw=1;
}
- $nick1 = $server->{nick};
+ my $nick1 = $server->{nick};
$target = $nick;
do_social($server,$target,$socname,$nick1,$nick2,$msgsw);
}
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;
}
$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;
}
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>) {
$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>) {
$fyou = $data if($set eq "you");
write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem);
print "$r2 done.";
- irssicmd_socials();
+ irssicmd_socials($socname);
return;
}
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;
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//;
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);
}
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);
}
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);
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);
}
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);
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);
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;
};
}
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;
};
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++;
}
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);
$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");
}
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;
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";
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;
$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;
}
sub check_dir {
- $sw=1;
+ my $sw=1;
opendir(DIR,$path) or $sw=0;
closedir(DIR);
return $sw;
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",
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');
+use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
use Irssi::Irc;
"| /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");
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;
}
+use strict;
use vars qw($VERSION %IRSSI);
use Irssi 20020120;
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;
# - 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 = (
use POSIX qw(strftime);
-use strict;
-
my @urls;
my $user_agent = new LWP::UserAgent;
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,
return 0;
}
- eval { open(FH, "+<$f"); };
+ eval { open(FH, "+<", $f); };
if ($@) {
Irssi::print("URLfeed error: couldn't open $f for writing: $@");
return 0;
#!/usr/bin/perl -w
+use strict;
use Irssi 20010120.0250 ();
+use vars qw($VERSION %IRSSI);
$VERSION = "0.2";
%IRSSI = (
authors => 'David Leadbeater',
url => 'http://irssi.dgl.cx/',
);
-use strict;
my $lasturl;
# Change the file path below if needed
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);
}
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;
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;
sub create_csv_file {
my $file = shift;
- open(FH, "> $file")
+ open(FH, ">", $file)
|| die "can't create $file: $!";
close FH;
}
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;
+use strict;
use Irssi 20040119.2359 ();
+use vars qw($VERSION %IRSSI);
$VERSION = "1.19";
%IRSSI = (
authors => 'David Leadbeater, Timo Sirainen, Georg Lukas',
# sb_uc_space = " ";
-use strict;
use Irssi::TextUI;
my ($ircops, $ops, $halfops, $voices, $normal, $total);
# $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',
#
# 2002-01-23 initial release
-use strict;
-
# -verbatim- import expand
sub expand {
my ($string, %format) = @_;
# $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',
#
# 2002-01-23 initial release
-use strict;
-
### sort algorithms table #####################################################
my %cmp = (
# - http://www.penguin-breeder.org/?page=irssi
#<scriptinfo>
+use strict;
use vars qw($VERSION %IRSSI);
use Irssi 20020120;
+use strict;\r
+use Irssi;\r
+use vars qw($VERSION %IRSSI);\r
+\r
$VERSION = "2.3.1";\r
%IRSSI = (\r
authors => "Matti 'qvr' Hiljanen, Piotr 'Pieta' Szymanski",\r
#\r
\r
use Socket;\r
-use strict;\r
\r
my($waport, $wahost, $wapass, $di);\r
\r
if (socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'))) {\r
if (connect(SOCK, sockaddr_in($port, inet_aton($host)))) {\r
unless (send(SOCK, $data, 0)) {\r
- Irssi::print("Unable to write to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);\r
+ Irssi::print("Unable to write to the socket: $!", MSGLEVEL_CLIENTERROR);\r
return;\r
}\r
} else {\r
- Irssi::print("Unable to connect to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);\r
+ Irssi::print("Unable to connect to the socket: $!", MSGLEVEL_CLIENTERROR);\r
return;\r
}\r
} else {\r
- Irssi::print("Connection to $host failed: $!", Irssi::MSGLEVEL_CLIENTERROR);\r
+ Irssi::print("Connection to $host failed: $!", MSGLEVEL_CLIENTERROR);\r
return;\r
}\r
\r
# 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',
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;
}
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
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");
}
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
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;
}
{
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
{
}
# $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;
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;
}
# 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 = "";
+use strict;
use Irssi 20020217; # Irssi 0.8.0
+use vars qw($VERSION %IRSSI);
$VERSION = "1.1";
%IRSSI = (
authors => "Matti 'qvr' Hiljanen",
url => "http://matin.maapallo.org/softa/irssi",
);
-use strict;
use Irssi;
my @channels =
# 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);
&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");
}
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");
}
# 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);
my %xi;
- open(XMMS, $xf);
+ open(XMMS, "<", $xf);
while (<XMMS>) {
chomp;
my ($key, $value) = split /: /, $_, 2;
$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>) {
sub fetchLaunchInfo {
my $reply;
- open(FH, "<".Irssi::settings_get_str('xqfLaunchInfo'));
+ open(FH, "<", Irssi::settings_get_str('xqfLaunchInfo'));
my @LaunchInfo = <FH>;
close (FH);
git.99rst.org / irssi-scripts.irssi.org.git / commitdiff