1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
# Those <censored> mIRC'ers have all those irritating system info "remotes" to
# brag about their system.
# Now, it's up to Irssi users to brag about their pentium 75's and 2 Gio harddisks.
# :)
# Differences to Juerd-only-version:
# -YASFU units (Mio, Gio) - http://snull.cjb.net/?yasfu
# -Free memory and free swap are displayed (previously only total swap/mem)
# -Reorganized and tuned output
# -Displays length of your virtual penis (this is quite tricky, so you might want to disable it by commenting)
# -Doesn't display info on nfs/smbfs/none-type mounts (edit script if you want those)
# Vpenis is not 100% compatible with Cras' vpenis.sh - I have fixed some bugs:
# -More network filesystems excluded (originally only NFS was excluded)
# -Total amount of memory counts (not the used amount, as before)
# Changelog 2.10 -> 2.20: memory/swap info is displayed now (it was broken previously) and code is properly indented
use strict;
use vars qw/$VERSION %IRSSI/;
$VERSION = "2.21";
%IRSSI = (
authors => "Juerd, Tronic",
contact => "trn\@iki.fi",
name => "SysinfoPlus",
description => "Linux system information (with vPenis and other stuff)",
license => "Public Domain",
url => "http://juerd.nl/irssi/",
changed => "2017-04-02"
);
BEGIN{
use vars '$console';
eval q{
use Irssi;
Irssi::version();
};
$console = !!$@;
}
# Tronic has no time for maintaining this and Juerd hates braces, so it might be better
# not to expect any new versions ...
sub sysinfo{
# This should really need indenting, but I'm kinda lazy.
my (@uname, $ret, @pci, $usr, $avg, $up, $vpenis);
@uname = (split ' ', `uname -a`)[0..2];
$ret = "Host '@uname[1]', running @uname[0] @uname[2] - ";
open FOO,'<', '/proc/cpuinfo';
while (<FOO>){
/^processor\s*:\s*(\d+)/ ? $ret .= "Cpu$1: "
: /^model name\s*:\s*(\w+[ A-Za-z]*)/ ? do { my $t = $1; $t =~ s/\s+$//; $ret .= "$t " }
: /^cpu MHz\s*:\s*([\.\d]+)/ ? $ret .= int(.5+$1) . ' MHz '
: undef;
}
close FOO;
$ret =~ s/( ?)$/;$1/;
open FOO,'<', '/proc/pci';
while (<FOO>){
/^\s*(?:multimedia )?(.*?)( storage| compatible)? controller/i and push @pci, $1;
}
close FOO;
$ret .= 'PCI: ' . join(',', map ucfirst, @pci) . '; ' if @pci;
if (`uptime` =~ /^.*?up\s*(.*?),\s*(\d+) users?,.*: ([\d\.]+)/){
($usr, $avg) = ($2, $3);
($up = $1) =~ s/\s*days?,\s*|\+/d+/;
$ret .= "Up: $up; Users: $usr; Load: $avg; ";
}
# Free space
$ret .= "Free:";
if (`free` =~ /Mem:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Mem: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
if (`free` =~ /Swap:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Swap: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
for (`df -m -x nfs -x smbfs -x none`) {
/^\/\S*\s*(\S*)\s*\S*\s*(\S*)\s*\S*\s*(\S*)/ and $ret .= " [$3: $2/$1 Mio]";
}
$ret .= ";";
# Vpenis (derived from vpenis.sh)
$vpenis = 70;
if (`cat /proc/uptime` =~ /(\d*)/) { $vpenis += int($1/3600/24)/10; }
if (`cat /proc/cpuinfo` =~ /MHz\s*:\s*(\S*)/) { $vpenis += $1/30; }
if (`free` =~ /Mem:\s*(\d*)\s*(\d*)/) { $vpenis += $1/1024/3; } # For compatibility: replace $1 with $2
for (`df -P -k -x nfs -x smbfs -x none|grep -v blocks`) { # For compatibility: remove -x smbfs -x none
if (/^\S*\s*(\S*)/) { $usr = $1; $vpenis += ((/^\/dev\/(scsi|sd)/) ? 2*$usr : $usr)/1024/50/15; }
}
$ret .= " Vpenis: " . int($vpenis)/10 . " cm;";
if ($console){
print "$ret\n";
}else{
Irssi::active_win->command("/say $ret");
}
} #end of sub
if ($console){
sysinfo();
}else{
Irssi::command_bind('sysinfo', 'sysinfo')
}
|
