#!/usr/bin/env perl

# $Id: setup.pl,v 1.19 2004/08/27 09:58:33 laggyluke Exp $

# include PERL libraries
use strict;
use warnings;
use diagnostics;

# include HotSaNIC libraries
use lib "../../lib";
use lib "./platform";
use HotSaNICparser;
use HotSaNICshellio;
use HotSaNIClog;
use common;

$|=1;

(my $VERSION = '$Revision: 1.19 $') =~ s/.*(\d+\.\d+).*/$1/;
(my $IDENTIFIER = '$Id: setup.pl,v 1.19 2004/08/27 09:58:33 laggyluke Exp $') =~ s/.*,v (.*) \$/$1/;

my $MODNAME=HotSaNICparser::get_module_name();
my %MODCONF=HotSaNICmod::common::configure();
my $OUTFILE="settings.new";
if ( ! -e "settings" ) { $OUTFILE="settings"; }
open OUTFILE,">$OUTFILE" || die "could not open ".HotSaNICparser::get_module_name()." settings file for writing.\n";

if (! @{$MODCONF{SENSOR}}) { @{$MODCONF{SENSOR}}=get_sensors(); }
if (@{$MODCONF{SENSOR}}) { $MODCONF{SENSOR}="SENSOR=\"".join("\"\nSENSOR=\"",@{$MODCONF{SENSOR}})."\""; }
else { $MODCONF{SENSOR}=""; }

print OUTFILE "# SHORT DESCRIPTION
#
# all entries have to be of the form:
# SENSOR=<device-file>,<dbname>,<description>,<entry>,<scale-factor>,<add>,<unit>,<min>,<max>
#
# <device-file>  path to the file under /proc which holds the device-data
#                You may also enter a binary here, followed by a pipe symbol (|)
#
# <dbname>       an unique filename for the database
#
# <description>  a brief description for the webpage
#
# <entry>        2 for fan-speed and 3 for temperature and voltage
#                this represents the position of the value in the
#                proc-file
#
# <scale-factor> correction-factor to scale the data correctly
#                ( to understand this look at the lm_sensors howto )
#
# <add>          value to add to shift the data correctly
#                ( for e.g. +12V - see lm_sensors howto )
#
# <unit>         unit to be shown in diagrams and on webpage
#                ( for example °C, V, Volts, RPM etc... )
#
# <min>,<max>    allowed value for this sensor
#                these should be set according to the sensors warning levels
#                the min/max range is shown in the diagrams by pink lines
#
# Examples:
#
# SENSOR=/proc/sys/dev/sensors/gl518sm-i2c-0-2d/temp,temp,CPU temp,3,1,0,°C,50,60
#
# SENSOR=\"/usr/sbin/hddtemp -n /dev/hda |\",hda,HDD1,1,1,0,°C,40,60
#
#
# FreeBSD and NetBSD  Users:
# The fields are the same as above but the folowing with a different meaning:
#
# <device-file>  use 'mbmon' if you want to read date from it, be sure to have it installed,
#                or fill in the path to a program. 
#                and one value per line
#
# <dbname>       an unique filename for the database and for mbmon it is the Data line to
#                store - check output from 'mbmon -rc1'. It's case sensitive.
#
# <entry>        entry isn't used by mbmon. If you have configured another program, entry
#                is the line where your data is.
#
# Example:
# SENSOR=mbmon,TEMP0,Temperature 0,0,1,0,°C,0,50
# SENSOR=\"/usr/sbin/hddtemp -n /dev/hda |\",hda,HDD1,1,1,0,°C,40,60
#
$MODCONF{SENSOR}
";

close OUTFILE;

if ($OUTFILE eq "settings.new") {
  HotSaNICparser::backup_file("settings");
  rename "settings.new","settings";
  }

if ($^O eq "freebsd" || $^O eq "netbsd" ) {
    my $mbmon=`which mbmon`;
    chomp $mbmon;
    if ( ! $mbmon ) {
        print "sensor module on ",$^O," needs mbmon to work propperly.\n";
        print "look out for mbmon in your package/ports-tree ";
        print "or\n  http://www.nt.phys.kyushu-u.ac.jp/shimizu/download/download.html. \n";
        print "Please ensure you have this installed and rerun setup.pl\n\n";
        exit 0;
    } else {
        open FILE,">> settings"
            or die "cant open settings: $!";
        print FILE "SENSOR=mbmon,TEMP0,Temperature 0,0,1,0,°C,0,50\n";
        close FILE;
    }
}

print "Please check the settings file and adapt it to satisfy your needs.
for your info: this configuration is a bit tricky\n";


sub get_sensors {
  my @files=();
  if ( -e "/proc/sys/dev/sensors") {
    require File::Find;
    $File::Find::name="";  # suppress stupid warning...
    File::Find::find( {wanted => sub { lstat($_) && -f _ && push @files, $File::Find::name; } }, "/proc/sys/dev/sensors");
    }

  print "\n";

  my @sensors=();
  for my $file (@files) {
    if ( $file !~ /sensors\/(eeprom|chips)/ ) {
      print $file,":\n";
      open FILE,$file;
      my $line=<FILE> || "";
      chomp $line;
      print "  ",$line,"\n";
      close FILE;
      my $input=HotSaNICshellio::askyesno("Do you want to use this file","n");
      if ($input eq "y") {
        # configure sensor
        #
        my @entries=split /\s/,$line;
        (my $dbname=$file) =~ s/.*\///g;
        my $descr="value";
        my $unit="units";
        my $device="some";
        my $entry=$#entries+1;
        my $min=(shift @entries)*1;  # *1 to eliminate zeros after decimal point
        my $max=$min;
	if ($entry > 2) { $max=(shift @entries)*1; }
	if ($min > $max) { ($min,$max)=($max,$min); }
        if ( $dbname =~ /temp/ ) { $unit="°C"; $descr="temperature"; }
        elsif ( $dbname =~ /v/ ) { $unit="Volts"; $descr="voltage"; }
        elsif ( $dbname =~ /fan/ ) { $unit="RPM"; $descr="speed"; }
        if ( $dbname =~ /vdd/) { $device="CPU"; }
        push @sensors,"$file,$dbname,$device $descr,$entry,1,0,$unit,$min,$max"
        }
      }
    print "\n";
    }
  return @sensors;
  }

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
   <head>
      <meta http-equiv="content-type" content="text/html;charset=UTF-8">
      <meta http-equiv="generator" content="WebSVN 2.2.1" /> <!-- leave this for stats -->
      <link rel="shortcut icon" type="image/x-icon" href="./templates/BlueGrey/favicon.ico" />
      <link type="text/css" href="./templates/BlueGrey/styles.css" rel="stylesheet" media="screen">
      <!--[if lt IE 7]>
      <script type="text/javascript" src="./templates/BlueGrey/png.js"></script>
      <![endif]-->
      <script type="text/javascript" src="./templates/BlueGrey/collapse.js"></script>
      <title>
         WebSVN
            - hotsanic
            - Blame
               - Rev 6
            - /branches/HotSaNIC-0.5.0-pre6/modules/sensors/setup.pl
      </title>

      <script type="text/javascript">
         function checkCB(chBox)
         {
            count = 0
            first = null
            f = chBox.form
            for (i = 0 ; i < f.elements.length ; i++)
            if (f.elements[i].type == 'checkbox' && f.elements[i].checked)
            {
               if (first == null && f.elements[i] != chBox)
                  first = f.elements[i]
               count += 1
            }
            
            if (count > 2) 
            {
               first.checked = false
               count -= 1
            }
         }
         
      </script>


</head>
<body>
	<table width="100%" border="0">
	  <tr>
		<td width="13%">&nbsp;</td>
		<td width="73%" align="center"><a href="http://www.jablonka.cz/"><img style="border: 0; width: 201px; height: 51px;" src="./templates/BlueGrey/logo.png" alt="jablonka.cz" /></a><a href="http://www.prosek.czf/"><img style="border: 0; width: 528px; height: 51px;" src="./templates/BlueGrey/squares.png" alt="prosek.czf" /></a></td>
		<td width="13%"><div style="float: right"><form action="?path=%2Fbranches%2FHotSaNIC-0.5.0-pre6%2Fmodules%2Fsensors%2Fsetup.pl&amp;repname=hotsanic&amp;rev=6" method="post" id="langform"><select name="langchoice" onchange="javascript:this.form.submit();"><option value="ca">Catal&agrave;-Valenci&agrave; - Catalan</option><option value="cs">&#268;esky - Cesky</option><option value="da">Dansk - Dansk</option><option value="nl">Dutch - Dutch</option><option value="en" selected="selected">English - English</option><option value="fi">Finnish - Finnish</option><option value="fr">Fran&ccedil;ais - Francais</option><option value="de">Deutsch - German</option><option value="he-IL">&#1506;&#1489;&#1512;&#1497;&#1514; - Hebrew</option><option value="hu">Magyar - Hungarian</option><option value="id">Bahasa Indonesia - Indonesian</option><option value="it">Italiano - Italian</option><option value="ja">&#26085;&#26412;&#35486; - Japanese</option><option value="ko">&#54620;&#44397;&#50612; - Korean</option><option value="no">Norsk - Norwegian</option><option value="pl">Polski - Polish</option><option value="pt">Portugu&ecirc;s - Portuguese</option><option value="pt-BR">Portugu&ecirc;s - Brazilian Portuguese</option><option value="ru">&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; - Russian</option><option value="zh-CN">&#20013;&#25991; - Simplified Chinese</option><option value="sk">Sloven&#269;ina - Slovak</option><option value="sl">Sloven&#269;ina - Slovenian</option><option value="es">Espa&ntilde;ol - Spanish</option><option value="sv">Svenska - Swedish</option><option value="zh-TW">&#20013;&#25991; - Traditional Chinese</option><option value="tr">T&uuml;rk&ccedil;e - Turkish</option><option value="uz">O&euml;zbekcha - Uzbek</option></select><input type="submit" value="Go" /></form></div></td>
	  </tr>
	</table>
	<hr />
<table cellspacing="0" cellpadding="0" border="0" width="100%">
  <tr>
    <td align="left"><h1>hotsanic</h1></td>
    <td align="right"><b>Subversion Repositories:</b> <form action="form.php?" method="post" id="projectform"><select name="repname" onchange="javascript:this.form.submit();"><option value="banderdyn">banderdyn</option><option value="centos.prosek.czf">centos.prosek.czf</option><option value="crusader">crusader</option><option value="czf4bfu">czf4bfu</option><option value="czf4bfu.prosek.czf">czf4bfu.prosek.czf</option><option value="czfcentos">czfcentos</option><option value="czfgmap">czfgmap</option><option value="discover">discover</option><option value="fedora.prosek.czf">fedora.prosek.czf</option><option value="freenet-router">freenet-router</option><option value="ftth">ftth</option><option value="getonlineclouds">getonlineclouds</option><option value="hotsanic" selected="selected">hotsanic</option><option value="internet.prosek.czf">internet.prosek.czf</option><option value="is">is</option><option value="mapstats">mapstats</option><option value="meteolinger">meteolinger</option><option value="netmap">netmap</option><option value="qos">qos</option><option value="sedlo">sedlo</option><option value="sedlo.prosek.czf">sedlo.prosek.czf</option><option value="switches">switches</option><option value="vbtobb">vbtobb</option><option value="vlubnt">vlubnt</option><option value="weathermap">weathermap</option><option value="weatherstats">weatherstats</option><option value="websvn">websvn</option><option value="wifidashboard">wifidashboard</option><option value="wifimon">wifimon</option><option value="www.prosek.czf">www.prosek.czf</option><option value="xenstats">xenstats</option></select><input type="submit" value="Go" /><input type="hidden" name="selectproj" value="1" /><input type="hidden" name="op" value="form" /></form></td>
  </tr>
</table>

[<a href="listing.php?repname=hotsanic&amp;path=%2F&amp;rev=6">/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2F&amp;rev=6">branches/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-pre6%2F&amp;rev=6">HotSaNIC-0.5.0-pre6/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-pre6%2Fmodules%2F&amp;rev=6">modules/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-pre6%2Fmodules%2Fsensors%2F&amp;rev=6">sensors/</a>] [<b>setup.pl</b>] - Blame information for rev <b>6</b>
<p>&nbsp;</p>

<table cellpadding="2" cellspacing="0" width="100%" class="blameTbl">
	<thead>
		<tr>
			<th class="HdrClmn"><b>Line No.</b></th>
			<th class="HdrClmn"><b>Rev</b></th>
			<th class="HdrClmn"><b>Author</b></th>
			<th class="HdrClmnEnd"><b>Line</b></th>
		</tr>
	</thead>
	<tbody>
	</tbody>
</table> 


<script type='text/javascript'>
/* <![CDATA[ */
var rev = new Array();
var a = document.getElementsByTagName('a');
for (var i = 0; i < a.length; i++) {
  if (a[i].className == 'blame-revision') {
    var id = a[i].id;
    addEvent(a[i], 'mouseover', function() { mouseover(this) } );
    addEvent(a[i], 'mouseout', function() { mouseout(this) } );
  }
}

function mouseover(a) {
  // Find the revision by using the link
  var m = /rev=(\d+)/.exec(a.href);
  var r = m[1];

  div = document.createElement('div');
  div.className = 'blame-popup';
  div.innerHTML = rev[r];
  a.parentNode.appendChild(div);
}

function mouseout(a) {
  var div = a.parentNode.parentNode.getElementsByTagName('div');
  for (var i = 0; i < div.length; i++) {
    if (div[i].className = 'blame-popup') {
      div[i].parentNode.removeChild(div[i]);
    }
  }
}

function addEvent(obj, type, func) {
  if (obj.addEventListener) {
    obj.addEventListener(type, func, false);
    return true;
  } else if (obj.attachEvent) {
    return obj.attachEvent('on' + type, func);
  } else {
    return false;
  }
}
/* ]]> */
</script>

      <p><center><font size="-1"><i><b>Powered by <a href="http://www.websvn.info/">WebSVN</a> 2.2.1</b></i></font></center>
   </body>
</html>