#!/usr/bin/perl	
use strict;

my $br = "\n";
my ($online_str,$elenco_canali_str) = ('','');

my $irc_status = &load_data;
my $sono_online = $irc_status->{online};

unless ($sono_online) {
	$online_str = "In questo momento non sono collegato su IRC$br";
} else {
	$online_str = "In questo momento sono collegato su IRC sui canali$br";
	my $elenco_canali = $irc_status->{channels};
	while (my ($k,$v) = each %$elenco_canali) {
		$elenco_canali_str .= sprintf "%-20s: %s$br",$k,$v;
	}
}

print $online_str;
print $elenco_canali_str;

sub load_data {
	my $irc_status1;
	undef local $/;
	open(IRC,'irc_status.txt')
		or die "Impossibile aprire irc_status.txt: " . $!;
	my $script = <IRC>;
	close(IRC);
	eval $script;
	return $irc_status1;
}