File: version-stat.pl

package info (click to toggle)
irssi-scripts 20201016
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 4,068 kB
  • sloc: perl: 71,842; sh: 193; makefile: 6
file content (88 lines) | stat: -rw-r--r-- 2,119 bytes parent folder | download | duplicates (5)
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
#!/usr/bin/perl -w
# shows top[0-9]+ irc client versions in a channel
#  by c0ffee 
#    - http://www.penguin-breeder.org/?page=irssi

#<scriptinfo>
use strict;
use vars qw($VERSION %IRSSI);

use Irssi 20020120;
$VERSION = "0.1";
%IRSSI = (
    authors	=> "c0ffee",
    contact	=> "c0ffee\@penguin-breeder.org",
    name	=> "version-stats",
    description	=> "shows top[0-9]+ irc client versions in a channel",
    license	=> "Public Domain",
    url		=> "http://www.penguin-breeder.org/?page=irssi",
    changed	=> "Sun Apr 14 17:30 GMT 2002",
);
#</scriptinfo>

my %versions;
my $tag;
my $running = 0;

sub version_reply {
  my ($server, $data, $nick, $addr, $target) = @_;

  $versions{$data} = 1 + $versions{$data} if $running;

  if (not Irssi::settings_get_bool('mute_version_reply') or not $running) {
 

     Irssi::signal_emit("default ctcp reply", $server, "VERSION $data", $nick, $addr, $target);

  }
 

}

sub show_stats {

  my ($data) = @_;
  my @stats = map "$versions{$_},$_", sort { $versions{$b} <=> $versions{$a} } keys %versions;
  my ($top,$best,$cnt,$v,$foo,$bar);
  $running = 0;

  ($top,$best) = $data =~ /(.*)\/(.*)/;

  Irssi::print("VERSION stats:");
 
  Irssi::timeout_remove($tag);

  foreach (1..$top) {
    last if not defined $stats[$_ - 1];
    ($cnt,$v) = $stats[$_ - 1] =~ /(.*?),(.*)/;
    $bar = $cnt * 20 / $best;
    $foo = "|" x $bar . "." x (20 - $bar),
    Irssi::print("$_. [$foo]: ($cnt) $v");
  }
  
}

sub cmd_vstat {
  my ($data, $server, $channel) = @_;
  my ($period, $top,@nicks,$num);

  Irssi::print("usage: /vstat period-in-secs top-n"), return
    if not (($period, $top) = $data =~ /(\d+)\s+(\d+)/);

  @nicks = $channel->nicks();

  $num = @nicks;

  $tag = Irssi::timeout_add($period * 1000, 'show_stats', "$top/$num");

  undef %versions;
  $running = 1;

  $server->send_raw("PRIVMSG $channel->{name} :\001VERSION\001");
  Irssi::print("Starting version collection in $channel->{name}");

}

Irssi::signal_add_last('ctcp reply version', 'version_reply');
Irssi::command_bind('vstat', 'cmd_vstat');
Irssi::settings_add_bool('misc', 'mute_version_reply', 1);