#!/usr/bin/perl -w

use strict;
use Sys::Hostname;

my $prefix = shift;

my $div = 1;
if (open(FAN, '<'.$prefix.'_div')) {
	$div = <FAN>;
	close FAN;
	chomp $div;
}

open FAN, '<'.$prefix.'_input' or die "Cant open fan input file: $!";
my $fan = <FAN>;
die "Cant read fan input file: $!" unless defined $fan;
chomp $fan;
close FAN;

$fan = int ($fan/$div);

my $h = hostname;
print <<EOF;
0
$fan

$h
EOF

1;

