Cheeky IRSSI Level Bar Graph Script

grapher.pl

use strict;
use Irssi;
use Irssi::Irc;

use vars qw($VERSION %IRSSI);

use POSIX;

sub grapher {
 
	my($level, $server, $dest) = @_;
  
  if (!$server || !$server->{connected}) {
    Irssi::print("Not connected to server");
  	return;
  }

  return unless $dest;


	if ($level < 0){
		$level = 0;
	}
  if ($level > 100) {
		$level = 100;
	}

	my $graph_width = 10;
	my $block_level = floor($level / 100 * $graph_width);
  
  my $i = 0;
	my $msg = "";
	for ($i = 0; $i < $block_level; $i += 1){
		$msg = $msg . "▓";
	}

  for ($i = $block_level; $i < $graph_width; $i +=1 ){
		$msg = $msg . "░";
	}

  my $suffix =" %"; 
  $msg = $msg . " " . $level . $suffix;


	if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
 		$dest->command("/msg " . $dest->{name} . " " . $msg);
  }

}

Irssi::command_bind grapher => \&grapher;