diff options
Diffstat (limited to '')
-rw-r--r-- | scripts/uptime.pl | 138 |
1 files changed, 138 insertions, 0 deletions
diff --git a/scripts/uptime.pl b/scripts/uptime.pl new file mode 100644 index 0000000..f77a154 --- /dev/null +++ b/scripts/uptime.pl @@ -0,0 +1,138 @@ +# +# Copyright (C) 2002-2021 by Peder Stray <peder.stray@gmail.com> +# + +use strict; +use Irssi; +use Irssi::Irc; +use Irssi::TextUI; + +use vars qw{$VERSION %IRSSI}; +($VERSION) = '$Revision: 1.6.1 $' =~ / (\d+(\.\d+)+) /; +%IRSSI = ( + name => 'uptime', + authors => 'Peder Stray', + contact => 'peder.stray@gmail.com', + url => 'https://github.com/pstray/irssi-uptime', + license => 'GPL', + description => 'Try a little harder to figure out client uptime', + sbitem => 'uptime', + ); + +my($timer) = 0; # ID of current timer + +sub uptime_linux { + my($sys_uptime); + my($irssi_start); + local(*FILE); + + open FILE, "<", "/proc/uptime"; + $sys_uptime = (split " ", <FILE>)[0]; + close FILE; + + open FILE, "<", "/proc/$$/stat"; + $irssi_start = (split " ", <FILE>)[21]; + close FILE; + + return $sys_uptime - $irssi_start/100; +} + +sub uptime_solaris { + my($irssi_start); + + $irssi_start = time - (stat("/proc/$$"))[9]; + + return $irssi_start; +} + +sub uptime { + my($sysname) = @_; + my($time); + + if ($sysname eq 'Linux') { + $time = uptime_linux; + } elsif ($sysname eq 'SunOS') { + $time = uptime_solaris; + } else { + $time = time - $^T; + } + + return $time; +} + +sub format_interval { + my($interval) = @_; + + my(@interval,$str); + for (60, 60, 24, 365) { + push @interval, $interval%$_; + $interval = int($interval/$_); + } + $str = sprintf "%dy %dd %dh %dm %ds", $interval, @interval[3,2,1,0]; + $str =~ s/^(0. )+//; + + return $str; +} + +sub cmd_uptime { + my($data,$server,$witem) = @_; + my($sysname) = Irssi::parse_special('$sysname'); + my($uptime) = uptime($sysname); + my($str) = format_interval($uptime); + + if ($data && $server) { + $server->command("MSG $data uptime: $str"); + } elsif ($witem && ($witem->{type} eq "CHANNEL" || + $witem->{type} eq "QUERY")) { + $witem->command("MSG ".$witem->{name}." uptime: $str"); + } else { + Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'uptime', + $str, $sysname); + } +} + +sub sig_setup_changed { + my($interval) = Irssi::settings_get_int('uptime_refresh_interval'); + + Irssi::timeout_remove($timer); + + if ($interval < 1) { + $interval = 0; + } + + return unless $interval; + + $interval *= 1000; + $timer = Irssi::timeout_add($interval, 'uptime_refresh' , undef); +} + +sub sb_uptime { + my($item, $get_size_only) = @_; + my $format = ""; + my($uptime) = uptime(Irssi::parse_special('$sysname')); + my($time) = format_interval($uptime); + + $format = "{sb %g$time%n}"; + + $item->default_handler($get_size_only, $format, undef, 1); +} + +sub uptime_refresh { + Irssi::statusbar_items_redraw('uptime'); +} + +Irssi::command_bind('uptime', 'cmd_uptime'); + +Irssi::theme_register( +[ + 'uptime', + '{line_start}{hilight Uptime:} $0 ($1)', +]); + +Irssi::settings_add_int('upgrade', 'uptime_refresh_interval', 12); + +Irssi::signal_add('setup changed', 'sig_setup_changed'); + +Irssi::statusbar_item_register('uptime', undef, 'sb_uptime'); + +sig_setup_changed; |