use strict;
use Irssi qw(command_bind signal_add);

sub cmd_temp {
    my ($data, $server, $window) = @_;
    my $cpu_mhz = `cat /proc/cpuinfo | grep MHz`;
    $cpu_mhz =~ s/^cpu MHz.*: //;
    my $fan_1 = `cat /sys/bus/i2c/devices/0-0290/fan2_input`;
    my $temp_1 = `cat /sys/bus/i2c/devices/0-0290/temp1_input`;
    my $temp_2 = `cat /sys/bus/i2c/devices/0-0290/temp2_input`;
    $temp_1 = $temp_1 / 1000;
    $temp_2 = $temp_2 / 1000;
    my $ftemp_1 = (1.8 * $temp_1) + 32;
    my $ftemp_2 = (1.8 * $temp_2) + 32;
    my $msg = "CPU: $temp_2" . "C($ftemp_2" . "F)@" . "$cpu_mhz" . "MHz Case: $temp_1" . "C($ftemp_1" . "F) Fan: $fan_1" . "RPM";
    $msg =~ s/\n//g;
    $window->command("/ME $msg");
}
Irssi::command_bind("temp", "cmd_temp");