Mnage
darcs-hash:20050819120638-41617-40ad7be51365e8fdc009e7a2a63b009414f2ad76.gz
This commit is contained in:
pauget
parent
b53b34a46a
commit
e6ed381057
5 changed files with 0 additions and 2215 deletions
38
check-samba
38
check-samba
|
|
@ -1,38 +0,0 @@
|
|||
#!/bin/zsh
|
||||
##
|
||||
## check-samba
|
||||
##
|
||||
## Made by stransky
|
||||
## Login stransky <stransky@crans.org>
|
||||
##
|
||||
## Started on jeu 01 oct 2000 19:25:35 CET Jérôme Kieffer
|
||||
## Last update sam 01 fév 2003 00:24:11 CET Nicolas STRANSKY
|
||||
##
|
||||
# surveillance de nmbd
|
||||
|
||||
LOG=/var/log/cransMisc/samba-master.log
|
||||
|
||||
master=$(smbclient -N -L zamok |grep -A20 "Workgroup *Master" |grep ' CRANS ' | awk '{print $2}')
|
||||
|
||||
if [ "$master" != 'ZAMOK' ];
|
||||
then
|
||||
echo "$(date) : Crans local master is \"$master\" ; waiting to confirm..." >> $LOG
|
||||
# on attend pour être sûr que zamok n'est pas justement en train de déclencher une élection :
|
||||
sleep 35
|
||||
# on refait le test :
|
||||
master=$(smbclient -N -L zamok |grep -A20 "Workgroup *Master" |grep ' CRANS ' | awk '{print $2}')
|
||||
# Si on est sûr que ça chie, on sort les armes :
|
||||
if [ "$master" != 'ZAMOK' ];
|
||||
then
|
||||
echo "$(date) : Crans local master is \"$master\" ; restarting samba" >> $LOG
|
||||
echo -n "$(date) : " >> $LOG
|
||||
/id/samba stop >> $LOG 2>&1
|
||||
sleep 1
|
||||
echo -n "$(date) : " >> $LOG
|
||||
(killall -9 nmbd && echo "remaining nmbd process killed") >> $LOG 2>&1 # tant qu'à faire on peut killer complètement nmbd
|
||||
echo -n "$(date) : " >> $LOG
|
||||
/id/samba start >> $LOG 2>&1
|
||||
else
|
||||
echo "$(date) : Well done, good boy" >> $LOG
|
||||
fi
|
||||
fi
|
||||
67
mailcrans.sh
67
mailcrans.sh
|
|
@ -1,67 +0,0 @@
|
|||
#! /bin/sh
|
||||
|
||||
# The author of this code is Manuel Sabban <manu@feyd-rautha.org>
|
||||
#
|
||||
# Copyright (c) 2002, 2004 Vincent Bernat, Manuel Sabban.
|
||||
#
|
||||
# Permission to use, copy, and modify this software with or without fee
|
||||
# is hereby granted, provided that this entire notice is included in
|
||||
# all source code copies of any software which is or includes a copy or
|
||||
# modification of this software.
|
||||
#
|
||||
# THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR
|
||||
# IMPLIED WARRANTY. IN PARTICULAR, NONE OF THE AUTHORS MAKES ANY
|
||||
# REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE
|
||||
# MERCHANTABILITY OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR
|
||||
# PURPOSE.
|
||||
|
||||
# Envoie un mail à tous les adhérents ayant un compte sur zamok, c'est-à-dire
|
||||
# ceux qui ont une adresse mail en @crans.org
|
||||
|
||||
# Emplacement temporaire de la liste d'adresses email
|
||||
EMAILS=/tmp/emails$$
|
||||
|
||||
# Fichier contenant les adresses vers lesquelles l'envoi n'a pas réussi
|
||||
FAILED=/tmp/failed$$
|
||||
|
||||
# Canevas du mail
|
||||
CANEVAS=/tmp/canevas$$
|
||||
|
||||
# En cas d'interruption du script, on efface les fichiers temporaires
|
||||
trap "rm -f $EMAILS $CANEVAS 2> /dev/null ; exit 5" 1 2 15 0
|
||||
|
||||
# Construction de la liste des adresses mails
|
||||
ldapsearch -LLL -x 'uid=*' uid | awk -F': ' '/^uid: / {print $2"@crans.org"}' >$EMAILS
|
||||
|
||||
# Construction du canevas du mail
|
||||
echo "From: Crans <nobody@crans.org>"> $CANEVAS
|
||||
# Edition du mail
|
||||
|
||||
echo -n "Subject: " >> $CANEVAS
|
||||
|
||||
${EDITOR:-"jed"} $CANEVAS
|
||||
echo >> $CANEVAS
|
||||
|
||||
# Visualisation du mail
|
||||
cat $CANEVAS
|
||||
echo
|
||||
echo '--------------'
|
||||
echo 'Ce mail va être envoyé à tous les adhérents. Entrée pour continuer, Ctrl-C pour arrêter.'
|
||||
read
|
||||
|
||||
# Envoi du mail à toutes les adresses comprises dans `EMAILS'
|
||||
# Les envois non réussis sont stockés dans $FAILED.
|
||||
rm -f $FAILED 2> /dev/null
|
||||
|
||||
while read EMAIL
|
||||
do
|
||||
echo -n "Envoi à $EMAIL... "
|
||||
cat $CANEVAS | formail -I "To: $EMAIL" | sendmail $EMAIL || (echo -n "Pas " ; echo $MAIL >> FAILED)
|
||||
echo "OK"
|
||||
done < $EMAILS
|
||||
|
||||
if [ -f $FAILED ]; then
|
||||
echo "Il y a eu des erreurs, voir $FAILED pour les adresses emails qui ont posé problème."
|
||||
fi
|
||||
|
||||
echo "Terminé."
|
||||
1277
snmp/Des5200.mib
1277
snmp/Des5200.mib
File diff suppressed because it is too large
Load diff
804
snmp/iog-crans
804
snmp/iog-crans
|
|
@ -1,804 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# IOG v1.0 - Input/Output Grapher
|
||||
# Copyright (c) 2000-2002 James Dogopoulos <jd@dynw.com>
|
||||
#
|
||||
# Please read the "Artistic" license included.
|
||||
#
|
||||
# E-mail iog@dynw.com with any bug reports,
|
||||
# fixes or comments.
|
||||
#
|
||||
|
||||
BEGIN{
|
||||
if ($ARGV[0] eq "NT") { $main::OS = 'NT'; } else { $main::OS = 'UNIX'; }
|
||||
|
||||
$main::SL = { UNIX=>'/', NT=>'\\' }->{$main::OS};
|
||||
$main::PS = { UNIX=>':', NT=>';' }->{$main::OS};
|
||||
|
||||
$main::binpath ="";
|
||||
if ($0 =~ /^(.+\Q${main::SL}\E)/) { $main::binpath="$1";
|
||||
}
|
||||
else {
|
||||
foreach $pathname ( split ${main::PS}, $ENV{'PATH'}) {
|
||||
if ((($main::OS eq 'NT') && (-e "$pathname${main::SL}$0")) ||
|
||||
(-x "$pathname${main::SL}$0")) {
|
||||
$main::binpath=$pathname;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
unshift (@INC,$main::binpath);
|
||||
}
|
||||
|
||||
use SDBM_File;
|
||||
use BER;
|
||||
use SNMP_Session;
|
||||
use Fcntl;
|
||||
|
||||
my($inoid,$outoid,$host,$community,$snmpget,$datafile,$cfgfile,%inf);
|
||||
my($inoctets,$outoctets,$path,$iogver,$hostreset,$kbsize,$mbsize,$gbsize);
|
||||
|
||||
$cfgfile="/etc/iog.cfg";
|
||||
$iogver="v1.0";
|
||||
|
||||
# Default Byte Sizes
|
||||
|
||||
$kbsize="1024";
|
||||
$mbsize="1048576";
|
||||
$gbsize="1073";
|
||||
|
||||
# Date/Time stuff
|
||||
#
|
||||
|
||||
my @weekdays = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
|
||||
|
||||
my @months = qw(January February March April May June July August September
|
||||
October November December);
|
||||
|
||||
my %days = (1 => "1st", 2 => "2nd", 3 => "3rd", 21 => "21st", 22 => "22nd",
|
||||
23 => "23rd", 31 => "31st");
|
||||
|
||||
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||
$lday = $mday - 1;
|
||||
|
||||
sub last_mday {
|
||||
my ($month, $year) = @_;
|
||||
( qw(31 0 31 30 31 30 31 31 30 31 30 31) )[$month] ||
|
||||
28 + (($year % 100 && !($year % 4))|| !($year % 400));
|
||||
}
|
||||
|
||||
if ($days{$mday}) { $pday = $days{$mday}; $nday = $days{$lday}; }
|
||||
else { $pday = $mday."th"; $nday = $lday."th"; }
|
||||
|
||||
# Read config file.
|
||||
#
|
||||
|
||||
open(CONFIG,$cfgfile) || die("Cannot open $cfgfile!");
|
||||
|
||||
while (<CONFIG>) {
|
||||
s/\s+$//g; # remove whitespace at the end of the line
|
||||
s/\s/ /g; # replace whitespace by space
|
||||
next if /^\s*\#/; # ignore comment lines
|
||||
next if /^\s*$/; # ignore empty lines
|
||||
if ($_ =~ /\[.*.\]/) { chkuptime($_); next; }
|
||||
my($name,$host,$community,$inoid,$outoid,$path) = split(/:/, $_);
|
||||
$path =~ s/\n//;
|
||||
$datafile = "$name".".dat";
|
||||
my @results = snmpget2($host,$community,$inoid,$outoid);
|
||||
next if ($results[0] eq "error");
|
||||
$inoctets = $results[0];
|
||||
$outoctets = $results[1];
|
||||
main($name,$host,$community,$inoid,$outoid,$path,$datafile);
|
||||
}
|
||||
|
||||
close(CONFIG);
|
||||
|
||||
|
||||
# SNMP Get routine. Thanks to Simon Leinen for the SNMP module.
|
||||
# http://www.switch.ch/misc/leinen/snmp/perl/
|
||||
#
|
||||
|
||||
sub snmpget {
|
||||
my($host, $community, $inoid, $outoid) = @_;
|
||||
my($response, $bindings, $binding, $value, $oid, $session, @results);
|
||||
|
||||
my %oidnames = qw(ifInOctets 1.3.6.1.2.1.2.2.1.10
|
||||
ifOutOctets 1.3.6.1.2.1.2.2.1.16
|
||||
ifHCInOctets 1.3.6.1.2.1.31.1.1.1.6
|
||||
ifHCOutOctets 1.3.6.1.2.1.31.1.1.1.10);
|
||||
|
||||
my ($inoidname,$inoidport) = split(/\./, $inoid);
|
||||
my ($outoidname,$outoidport) = split(/\./, $outoid);
|
||||
|
||||
$inoid = encode_oid(split(/\./, ($oidnames{$inoidname} . ".$inoidport")));
|
||||
$outoid = encode_oid(split(/\./, ($oidnames{$outoidname} . ".$outoidport")));
|
||||
|
||||
my @oids = ($inoid,$outoid);
|
||||
|
||||
if ($inoidname =~ /HC/i or $outoidname =~ /HC/i) {
|
||||
$session = SNMPv2c_Session->open($host, $community, 161) or return "error";
|
||||
} else {
|
||||
$session = SNMP_Session->open($host, $community, 161) or return "error";
|
||||
};
|
||||
|
||||
if ($session->get_request_response (@oids)) {
|
||||
$response = $session->pdu_buffer;
|
||||
($bindings) = $session->decode_get_response ($response);
|
||||
|
||||
while ($bindings ne '') {
|
||||
($binding,$bindings) = decode_sequence ($bindings);
|
||||
($oid,$value) = decode_by_template ($binding, "%O%@");
|
||||
push (@results, pretty_print($value));
|
||||
}
|
||||
return @results;
|
||||
} else { warn "SNMP Error: $SNMP_Session::errmsg\n";
|
||||
return "error"; }
|
||||
}
|
||||
|
||||
sub snmpgetup {
|
||||
my($host, $community, $inoid) = @_;
|
||||
my($response, $bindings, $binding, $value, $oid, $result);
|
||||
|
||||
my %oidnames = qw(sysUpTime 1.3.6.1.2.1.1.3
|
||||
sysUpTime.0 1.3.6.1.2.1.1.3.0);
|
||||
|
||||
$inoid = encode_oid(split(/\./, $oidnames{$inoid}));
|
||||
|
||||
my $session = SNMP_Session->open($host, $community, 161) or return "0";
|
||||
|
||||
if ($session->get_request_response ($inoid)) {
|
||||
$response = $session->pdu_buffer;
|
||||
($bindings) = $session->decode_get_response ($response);
|
||||
|
||||
while ($bindings ne '') {
|
||||
($binding,$bindings) = decode_sequence ($bindings);
|
||||
($oid,$value) = decode_by_template ($binding, "%O%@");
|
||||
$result = pretty_print($value);
|
||||
}
|
||||
return $result;
|
||||
} else { warn "SNMP Error: $SNMP_Session::errmsg\n";
|
||||
return 0; }
|
||||
|
||||
}
|
||||
|
||||
|
||||
#####################################################################################
|
||||
# Section personnalisée pour faire du SNMP en TCP.
|
||||
# NS 22/02/03
|
||||
#####################################################################################
|
||||
sub snmpget2 {
|
||||
my($host, $community, $inoid, $outoid) = @_;
|
||||
|
||||
open IN, "snmpget -T TCP $host $community interfaces.ifTable.ifEntry.$inoid |";
|
||||
my $inresult = <IN>;
|
||||
chomp($inresult);
|
||||
close(IN);
|
||||
|
||||
open OUT, "snmpget -T TCP $host $community interfaces.ifTable.ifEntry.$outoid |";
|
||||
my $outresult = <OUT>;
|
||||
chomp($outresult);
|
||||
close(OUT);
|
||||
|
||||
my @intable = split(/ /,$inresult );
|
||||
my @outtable = split(/ /,$outresult );
|
||||
|
||||
my @results = ($intable[-1],$outtable[-1]);
|
||||
|
||||
return @results;
|
||||
}
|
||||
|
||||
sub snmpgetup2 {
|
||||
my($host, $community, $upoid) = @_;
|
||||
|
||||
open UP, "snmpget -T TCP $host $community $upoid |";
|
||||
my $uptimeresult = <UP>;
|
||||
chomp($uptimeresult);
|
||||
close(UP);
|
||||
|
||||
$uptimeresult =~ s/^.*\) //;
|
||||
$uptimeresult =~ s/...$//;
|
||||
|
||||
return $uptimeresult;
|
||||
}
|
||||
####################################################################################
|
||||
|
||||
|
||||
sub chkuptime {
|
||||
|
||||
$_ =~ s/\[|\]//g;
|
||||
my($uphost,$upip,$upcommunity,$upoid,$upfile) = split (/:/, $_);
|
||||
my $upresult = snmpgetup2($upip,$upcommunity,$upoid);
|
||||
|
||||
tie(%inf, 'SDBM_File', ($upfile."$main::SL"."uptimes"), O_RDWR|O_CREAT, 0640)
|
||||
or print "WARNING: Error opening uptime database file!\n";
|
||||
|
||||
if ($upresult < $inf{$uphost} && $upresult > "1") { $hostreset = "1"; }
|
||||
else { $hostreset = "0"; }
|
||||
|
||||
if ($upresult > "1") { $inf{$uphost} = $upresult; }
|
||||
|
||||
untie(%inf);
|
||||
|
||||
}
|
||||
|
||||
sub main {
|
||||
my($name,$host,$community,$inoid,$outoid,$path,$datafile) = @_;
|
||||
|
||||
tie(%inf, 'SDBM_File', ($path."$main::SL".$datafile), O_RDWR|O_CREAT, 0640) or
|
||||
print "Error opening database file for $name at $host\n";
|
||||
|
||||
if (-s (($path."$main::SL".$datafile) . ".pag")) {
|
||||
|
||||
if ($inf{day} != $mday && $hour > "0") { newday();
|
||||
dailyhtml($name,$host,$path); }
|
||||
|
||||
if ($inf{month} != $mon) {
|
||||
$newmon = "1";
|
||||
newday();
|
||||
dailyhtml($name,$host,$path);
|
||||
newmonth($name,$path);
|
||||
monthlyhtml($name,$host,$path);
|
||||
}
|
||||
|
||||
if ($inf{year} != ($year + "1900")) { newyear($name,$path); }
|
||||
|
||||
if (!$newmon) { updatedata(); }
|
||||
|
||||
if ($inf{day} != $mday) { $newday = "1"; } else { $newday = "0"; }
|
||||
|
||||
hourlyhtml($name,$host,$path,$newday);
|
||||
|
||||
} else { createdata(); hourlyhtml($name,$host,$path); }
|
||||
|
||||
untie(%inf);
|
||||
}
|
||||
|
||||
# create data file if ! exist
|
||||
#
|
||||
|
||||
sub createdata {
|
||||
%inf = (lastin => $inoctets, lastout => $outoctets,
|
||||
month => $mon, day => $mday, year => ($year + "1900"));
|
||||
}
|
||||
|
||||
#
|
||||
#
|
||||
|
||||
sub newyear {
|
||||
|
||||
my($name,$path) = @_;
|
||||
my($count);
|
||||
|
||||
$count = 0;
|
||||
|
||||
while ($count <= "11") {
|
||||
delete $inf{"m" . $count};
|
||||
$count++;
|
||||
}
|
||||
|
||||
# move yearly html file.
|
||||
|
||||
$oldfile="$path"."$main::SL"."$name"."-months".".html";
|
||||
$newfile="$path"."$main::SL"."$name"."-year".($year).".html";
|
||||
|
||||
if ($main::OS eq "NT") { system("move /Y $oldfile $newfile"); }
|
||||
else { system("mv $oldfile $newfile"); }
|
||||
|
||||
$inf{year} = ($year + "1900");
|
||||
}
|
||||
|
||||
#
|
||||
#
|
||||
|
||||
sub newmonth {
|
||||
|
||||
my($name,$path) = @_;
|
||||
my($count,$intotal,$outtotal,$inoct,$outoct);
|
||||
|
||||
# get MB total for the month and store it.
|
||||
|
||||
$count = 1;
|
||||
while ($count <= "31") {
|
||||
if ($inf{"d" . $count}) {
|
||||
($inoct,$outoct) = split(/:/, $inf{"d" . $count});
|
||||
$intotal += $inoct;
|
||||
$outtotal += $outoct;
|
||||
}
|
||||
$count++;
|
||||
}
|
||||
|
||||
$intotal = ($intotal / $mbsize);
|
||||
$outtotal = ($outtotal / $mbsize);
|
||||
|
||||
$inf{"m" . $inf{month}} = "$intotal:$outtotal";
|
||||
|
||||
# clear days
|
||||
|
||||
$count = 1;
|
||||
while ($count <= "31") {
|
||||
delete $inf{"d" . $count};
|
||||
$count++;
|
||||
}
|
||||
|
||||
# move monthly html file.
|
||||
|
||||
$oldfile="$path"."$main::SL"."$name"."-days".".html";
|
||||
$newfile="$path"."$main::SL"."$name"."-month".($mon).".html";
|
||||
|
||||
if ($main::OS eq "NT") { system("move /Y $oldfile $newfile"); }
|
||||
else { system("mv $oldfile $newfile"); }
|
||||
|
||||
# set $inf{month} to the new month.
|
||||
$inf{month} = $mon;
|
||||
}
|
||||
|
||||
|
||||
# newday:
|
||||
# run every time the day of the month changes on the system.
|
||||
#
|
||||
|
||||
sub newday {
|
||||
|
||||
my($count,$nmday,$intotal,$outtotal,$inoct,$outoct);
|
||||
|
||||
# get megabyte total for the day and store it.
|
||||
#
|
||||
|
||||
$count = 0;
|
||||
while ($count <= "23") {
|
||||
if ($inf{$count}) {
|
||||
($inoct,$outoct) = split(/:/, $inf{$count});
|
||||
$intotal += $inoct;
|
||||
$outtotal += $outoct;
|
||||
}
|
||||
$count++;
|
||||
}
|
||||
|
||||
if ($newmon) { $nmday = last_mday($inf{month}, $inf{year}); }
|
||||
else { $nmday = ($mday - 1); }
|
||||
|
||||
$inf{"d" . $nmday} = "$intotal:$outtotal:" . ($intotal + $outtotal);
|
||||
|
||||
# clear hours
|
||||
#
|
||||
|
||||
$count = 0;
|
||||
while ($count <= "23") {
|
||||
delete $inf{$count};
|
||||
$count++;
|
||||
}
|
||||
|
||||
$inf{day} = $mday;
|
||||
}
|
||||
|
||||
|
||||
# update DBM file.
|
||||
#
|
||||
|
||||
sub updatedata {
|
||||
my ($lasthour,$wrapin,$wrapout);
|
||||
my $intwrap="4294967296";
|
||||
|
||||
if ($hour eq "0") { $lasthour = "23"; } else { $lasthour = ($hour - "1"); }
|
||||
|
||||
if ($hostreset == "1") { $inf{lastin} = $inf{lastout} = "0"; }
|
||||
|
||||
# detect if a counter has wrapped and adjust.
|
||||
#
|
||||
if ($inoctets < $inf{lastin}) {
|
||||
$wrapin = $inoctets;
|
||||
$inoctets = ($intwrap - $inf{lastin}) + $inoctets;
|
||||
$inf{lastin} = "0";
|
||||
}
|
||||
|
||||
if ($outoctets < $inf{lastout}) {
|
||||
$wrapout = $outoctets;
|
||||
$outoctets = ($intwrap - $inf{lastout}) + $outoctets;
|
||||
$inf{lastout} = "0";
|
||||
}
|
||||
|
||||
$inf{$lasthour} = (($inoctets - $inf{lastin}).":".($outoctets - $inf{lastout}));
|
||||
if ($wrapin) { $inf{lastin} = $wrapin } else { $inf{lastin} = $inoctets }
|
||||
if ($wrapout) { $inf{lastout} = $wrapout } else { $inf{lastout} = $outoctets }
|
||||
}
|
||||
|
||||
sub footer {
|
||||
print DHTML "<br><br><br></td></tr></table><table cellpadding=3 align=left>
|
||||
<tr><td><a href=http://www.dynw.com/iog/><img src=ioglogo.gif border=0></a></td>
|
||||
<td>IOG $iogver - <a href=http://www.dynw.com/iog/>Input Output Grapher</a><br>
|
||||
-<br>James Dogopoulos <<a href=mailto:jd\@dynw.com>jd\@dynw.com</a>><br>
|
||||
Questions or comments to <a href=mailto:iog\@dynw.com>iog\@dynw.com</a>
|
||||
</td></tr></table><br>";
|
||||
}
|
||||
|
||||
# make the hourly html
|
||||
#
|
||||
|
||||
sub hourlyhtml {
|
||||
|
||||
my($name,$host,$path,$newday) = @_;
|
||||
|
||||
# make todays graph
|
||||
#
|
||||
|
||||
my $enddays = last_mday($mon, ($year + "1900"));
|
||||
|
||||
my $count = "0";
|
||||
my ($besthour,$bestday,$inoct,$outoct) = "0";
|
||||
|
||||
# find busiest hour
|
||||
#
|
||||
while ($count <= "23") {
|
||||
if ($inf{$count}) { ($inoct,$outoct) = split(/:/, $inf{$count}); }
|
||||
else { $inoct = $outoct = "0"; }
|
||||
if ($inoct > $besthour) { $besthour = $inoct; }
|
||||
if ($outoct > $besthour) { $besthour = $outoct; }
|
||||
$count++;
|
||||
}
|
||||
|
||||
my $hscalemax = ($besthour / "1000000");
|
||||
my ($hscaleunit,$intotal,$outtotal) = 0;
|
||||
|
||||
if ($hscalemax > "0") { $hscaleunit = ("450" / $hscalemax); }
|
||||
|
||||
open(DHTML, ">>$path".$main::SL."$name".".html") or print "can't open in $name $host $!";
|
||||
flock(DHTML, 2) or print "can't flock $name $host: $!";
|
||||
truncate(DHTML, 0);
|
||||
|
||||
print DHTML "<html><title>IOG $iogver - $host</title>
|
||||
<META HTTP-EQUIV=Refresh CONTENT=3600><body bgcolor=#FFFFFF>
|
||||
<table border=0><tr><td>";
|
||||
|
||||
my $dexist = (-f "$path".$main::SL."$name"."-days.html");
|
||||
my $mexist = (-f "$path".$main::SL."$name"."-months.html");
|
||||
|
||||
if ($newday != "1") {
|
||||
if ($dexist && $mexist) {
|
||||
print DHTML "<font size=3> [ Today | <a href="."$name"."-days.html>This Month</a>
|
||||
| <a href="."$name"."-months.html>Previous Months</a> ]</font><br><br>";
|
||||
} else {
|
||||
if ($dexist && !$mexist) {
|
||||
print DHTML "<font size=3> [ Today | <a href="."$name"."-days.html>This
|
||||
Month</a> | Previous Months ]</font><br><br>";
|
||||
} else {
|
||||
if (!$dexist && $mexist) {
|
||||
print DHTML "<font size=3> [ Today | This Month
|
||||
| <a href="."$name"."-months.html>Previous Months</a> ]</font><br><br>";
|
||||
} else { print DHTML "[ Today | This Month | Previous Months ]"; }
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ($dexist && $mexist) {
|
||||
print DHTML "<font size=3> [ <a href="."$name"."-days.html>This Month</a>
|
||||
| <a href="."$name"."-months.html>Previous Months</a> ]</font><br><br>";
|
||||
} else {
|
||||
if ($dexist && !$mexist) {
|
||||
print DHTML "<font size=3> [ <a href="."$name"."-days.html>This
|
||||
Month</a> | Previous Months ]</font><br><br>";
|
||||
} else {
|
||||
if (!$dexist && $mexist) {
|
||||
print DHTML "<font size=3> [ This Month
|
||||
| <a href="."$name"."-months.html>Previous Months</a> ]</font><br><br>";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
if ($newday eq "1") { $tday = "$nday"; } else { $tday = "$pday"; }
|
||||
|
||||
print DHTML "<h3>$months[$mon] $tday - Network I/O for $name ($host)</h3>";
|
||||
print DHTML "<table cellpadding=5 border=1>";
|
||||
|
||||
$count = "0";
|
||||
|
||||
while ($count <= "23") {
|
||||
my($inwidth,$outwidth);
|
||||
|
||||
if ($inf{$count}) {
|
||||
($inoct,$outoct) = split(/:/, $inf{$count});
|
||||
$intotal += $inoct;
|
||||
$outtotal += $outoct;
|
||||
$inwidth = ($inoct / "1000000" * $hscaleunit);
|
||||
$outwidth = ($outoct / "1000000" * $hscaleunit);
|
||||
} else { $count++; next; }
|
||||
|
||||
# if day is over 1gb, switch to GB/MB display.
|
||||
#
|
||||
my($gstring,$gbin,$gbout,$mbin,$mbout);
|
||||
|
||||
$mbin = sprintf("%.1f", $inoct / $mbsize);
|
||||
$mbout = sprintf("%.1f", $outoct / $mbsize);
|
||||
|
||||
if ($mbin > $gbsize or $mbout > $gbsize) {
|
||||
$gbin = sprintf("%.1f", $mbin / $gbsize);
|
||||
$gbout = sprintf("%.1f", $mbout / $gbsize);
|
||||
|
||||
$gstring = "<td><font size=2><font color=#00CC00>In:</font> $gbin GB
|
||||
($mbin MB)<br><font color=#0000FF>Out:</font> $gbout GB ($mbout MB)
|
||||
</font></td></tr>";
|
||||
}
|
||||
else {
|
||||
$gstring = "<td><font size=2><font color=#00CC00>In:</font> $mbin MB (".
|
||||
sprintf("%.f", $inoct / $kbsize)." KB)<br><font color=#0000FF>Out:</font> $mbout
|
||||
MB (".sprintf("%.f", $outoct / $kbsize)." KB)";
|
||||
}
|
||||
|
||||
$inwidth = (sprintf("%.f", $inwidth) + 1);
|
||||
$outwidth = (sprintf("%.f", $outwidth) + 1);
|
||||
|
||||
print DHTML "<tr><td><b>"."$count".":00</b></td><td width=455><img src=in.gif height=12 width=$inwidth><br>\n";
|
||||
print DHTML "<img src=out.gif height=12 width=$outwidth><br></td>\n";
|
||||
|
||||
print DHTML $gstring;
|
||||
|
||||
$count++;
|
||||
}
|
||||
|
||||
$intotal = sprintf("%.f", ($intotal / $mbsize));
|
||||
$outtotal = sprintf("%.f", ($outtotal / $mbsize));
|
||||
|
||||
print DHTML "</table><br></td></tr><tr><td align=right>";
|
||||
|
||||
if ($intotal > $gbsize or $outtotal > $gbsize) {
|
||||
my $gbtotal = sprintf("%.1f", ($intotal + $outtotal) / $gbsize);
|
||||
print DHTML "Today's Total: <b>$gbtotal GB</b><br><font color=#00CC00>
|
||||
In:</font> $intotal MB - <font color=#0000FF>Out:</font>
|
||||
$outtotal MB<br>";
|
||||
}
|
||||
else {
|
||||
print DHTML "Today's Total: <b>".($intotal + $outtotal)." MB</b><br>
|
||||
<font color=#00CC00>In:</font> $intotal MB - <font color=#0000FF>Out:</font>
|
||||
$outtotal MB<br>";
|
||||
}
|
||||
|
||||
footer();
|
||||
|
||||
flock(DHTML, 8);
|
||||
close(DHTML);
|
||||
}
|
||||
|
||||
sub monthlyhtml {
|
||||
|
||||
my ($name,$host,$path) = @_;
|
||||
my ($bestmonth,$m_intotal,$m_outtotal,$m_total);
|
||||
my $count = 0;
|
||||
|
||||
# find busiest month
|
||||
|
||||
while ($count <= "11") {
|
||||
if ($inf{"m" . $count}) {
|
||||
($m_intotal,$m_outtotal) = split(/:/, $inf{"m" . $count});
|
||||
if ($m_intotal > $bestmonth) { $bestmonth = $m_intotal; }
|
||||
if ($m_outtotal > $bestmonth) { $bestmonth = $m_outtotal; }
|
||||
}
|
||||
$count++;
|
||||
}
|
||||
|
||||
my $mscalemax = $bestmonth;
|
||||
my ($mscaleunit,$intotal,$outtotal) = 0;
|
||||
|
||||
if ($mscalemax > "0") { $mscaleunit = ("450" / $mscalemax); }
|
||||
|
||||
open(DHTML, ">>$path".$main::SL."$name"."-months.html") or print "can't open $name $host $!";
|
||||
flock(DHTML, 2) or print "can't flock $name $host : $!";
|
||||
truncate(DHTML, 0);
|
||||
|
||||
print DHTML "<html><title>IOG $iogver - $host</title><body bgcolor=#FFFFFF>
|
||||
<table border=0><tr><td>";
|
||||
|
||||
my $dexist = (-f "$path".$main::SL."$name"."-days.html");
|
||||
|
||||
if ($dexist) {
|
||||
print DHTML "<font size=3>[ <a href="."$name".".html>Today</a> |
|
||||
<a href="."$name"."-days.html>This Month</a> | Previous Months ]</font><br><br>";
|
||||
} else {
|
||||
print DHTML "<font size=3>[ <a href="."$name".".html>Today</a> |
|
||||
This Month | Previous Months ]</font><br><br>";
|
||||
}
|
||||
|
||||
print DHTML "<h3>Monthly Network I/O for $name ($host)</h3>";
|
||||
print DHTML "<table cellpadding=5 border=1>";
|
||||
|
||||
$count = "0";
|
||||
|
||||
while ($count <= "11") {
|
||||
my($inwidth,$outwidth,$intotal,$outtotal,$inoct,$outoct,$mtotal);
|
||||
|
||||
if ($inf{"m" . $count}) {
|
||||
($inoct,$outoct,$mtotal) = split(/:/, $inf{"m" . $count});
|
||||
$intotal += $inoct;
|
||||
$outtotal += $outoct;
|
||||
$inwidth = ($inoct * $mscaleunit);
|
||||
$outwidth = ($outoct * $mscaleunit);
|
||||
} else { $count++; next; }
|
||||
|
||||
# if day is over 1gb, switch to GB/MB display.
|
||||
#
|
||||
my($gstring,$gbin,$gbout,$gbtotal,$mbin,$mbout);
|
||||
|
||||
$mbin = sprintf("%.f", $inoct);
|
||||
$mbout = sprintf("%.f", $outoct);
|
||||
|
||||
$gbin = sprintf("%.1f", $mbin / $gbsize);
|
||||
$gbout = sprintf("%.1f", $mbout / $gbsize);
|
||||
$gbtotal = sprintf("%.1f", ($gbin + $gbout));
|
||||
|
||||
$gstring = "<td><font size=2><font color=#00CC00>In:</font> $gbin GB
|
||||
($mbin MB)<br><font color=#0000FF>Out:</font> $gbout GB ($mbout MB)
|
||||
</font></td></tr>";
|
||||
|
||||
$inwidth = (sprintf("%.f", $inwidth) + 1);
|
||||
$outwidth = (sprintf("%.f", $outwidth) + 1);
|
||||
|
||||
if (-f "$path".$main::SL."$name"."-month".($count + "1").".html") {
|
||||
$mlink = "<a href=$name"."-month".($count + "1").".html>$months[$count]</a>";
|
||||
} else { $mlink = "$months[$count]"; }
|
||||
|
||||
print DHTML "<tr><td><b>$mlink<br>$gbtotal GB</b></td><td width=455>
|
||||
<img src=in.gif height=12 width=$inwidth><br>\n";
|
||||
print DHTML "<img src=out.gif height=12 width=$outwidth><br></td>\n";
|
||||
|
||||
print DHTML $gstring;
|
||||
|
||||
$count++
|
||||
}
|
||||
|
||||
print DHTML "</tr></td></table><br>";
|
||||
|
||||
footer();
|
||||
|
||||
flock(DHTML, 8);
|
||||
close(DHTML);
|
||||
}
|
||||
|
||||
sub dailyhtml {
|
||||
|
||||
my ($bestday,$d_intotal,$d_outtotal) = 0;
|
||||
my ($name,$host,$path) = @_;
|
||||
my $count = 1;
|
||||
my $endday = last_mday($inf{month}, $inf{year});
|
||||
|
||||
if ($endday eq $mday) { $lastday="1"; } else { $lastday="0"; }
|
||||
|
||||
# fix math errors from previous sub
|
||||
if ($newmon) { $mon--; }
|
||||
|
||||
# move Today's html file unless it's a new month.
|
||||
|
||||
if (!$newmon) {
|
||||
$oldfile="$path"."$main::SL"."$name".".html";
|
||||
$newfile="$path"."$main::SL"."$name"."-day".($mday - "1").".html";
|
||||
if ($main::OS eq "NT") { system("move /Y $oldfile $newfile"); }
|
||||
else { system("mv $oldfile $newfile"); }
|
||||
}
|
||||
|
||||
# find busiest day (should be merged with totals)
|
||||
|
||||
while ($count <= $endday) {
|
||||
if ($inf{"d" . $count}) {
|
||||
($d_intotal,$d_outtotal) = split(/:/, $inf{"d" . $count});
|
||||
if ($d_intotal > $bestday) { $bestday = $d_intotal; }
|
||||
if ($d_outtotal > $bestday) { $bestday = $d_outtotal; }
|
||||
}
|
||||
$count++;
|
||||
}
|
||||
|
||||
my $dscalemax = ($bestday / "1000000");
|
||||
my ($dscaleunit,$intotal,$outtotal) = 0;
|
||||
|
||||
if ($dscalemax > "0") { $dscaleunit = ("450" / $dscalemax); }
|
||||
|
||||
open(DHTML, ">>$path".$main::SL."$name"."-days.html") or print "can't open $name $host $!";
|
||||
flock(DHTML, 2) or print "can't flock $name $host : $!";
|
||||
truncate(DHTML, 0);
|
||||
|
||||
print DHTML "<html><title>IOG $iogver - $host</title><body bgcolor=#FFFFFF>
|
||||
<table border=0><tr><td>";
|
||||
|
||||
if (-f "$path".$main::SL."$name"."-months.html") {
|
||||
print DHTML "<font size=3>[ <a href="."$name".".html>Today</a> |
|
||||
This Month | <a href="."$name"."-months.html>Previous Months</a> ]</font><br><br>";
|
||||
} else {
|
||||
print DHTML "<font size=3>[ <a href="."$name".".html>Today</a> | This Month
|
||||
| Previous Months ]</font><br><br>";
|
||||
}
|
||||
|
||||
print DHTML "<h3>$months[$mon] - Network I/O for $name ($host)</h3>";
|
||||
print DHTML "<table cellpadding=5 border=1>";
|
||||
|
||||
$count = "1";
|
||||
|
||||
while ($count <= $endday) {
|
||||
my($inwidth,$outwidth,$inoct,$outoct,$pday);
|
||||
|
||||
if ($inf{"d" . $count}) {
|
||||
($inoct,$outoct) = split(/:/, $inf{"d" . $count});
|
||||
$intotal += $inoct;
|
||||
$outtotal += $outoct;
|
||||
$inwidth = ($inoct / "1000000" * $dscaleunit);
|
||||
$outwidth = ($outoct / "1000000" * $dscaleunit);
|
||||
} else { $count++; next; }
|
||||
|
||||
# if day is over 1gb, switch to GB/MB display.
|
||||
#
|
||||
my($gstring,$gbin,$gbout,$mbin,$mbout);
|
||||
|
||||
$mbin = sprintf("%.f", $inoct / $mbsize);
|
||||
$mbout = sprintf("%.f", $outoct / $mbsize);
|
||||
|
||||
if ($mbin > $gbsize or $mbout > $gbsize) {
|
||||
$gbin = sprintf("%.1f", $mbin / $gbsize);
|
||||
$gbout = sprintf("%.1f", $mbout / $gbsize);
|
||||
|
||||
$gstring = "<td><font size=2><font color=#00CC00>In:</font> $gbin GB
|
||||
($mbin MB)<br><font color=#0000FF>Out:</font> $gbout GB ($mbout MB)
|
||||
</font></td></tr>";
|
||||
}
|
||||
else {
|
||||
$gstring = "<td><font size=2><font color=#00CC00>In:</font> $mbin MB (".
|
||||
sprintf("%.f", $inoct / $kbsize)." KB)<br><font color=#0000FF>Out:</font> $mbout
|
||||
MB (".sprintf("%.f", $outoct / $kbsize)." KB)";
|
||||
}
|
||||
|
||||
$inwidth = (sprintf("%.f", $inwidth) + 1);
|
||||
$outwidth = (sprintf("%.f", $outwidth) + 1);
|
||||
|
||||
if ($days{$count}) { $pday = $days{$count}; } else { $pday = $count."th"; }
|
||||
|
||||
if (-f "$path".$main::SL."$name"."-day".$count.".html" && $lastday eq "0"
|
||||
&& ($newmon ne "1")) {
|
||||
$pday = "<a href=$name"."-day".$count.".html>$pday</a>";
|
||||
}
|
||||
|
||||
print DHTML "<tr><td><b>$pday</b></td><td width=455>
|
||||
<img src=in.gif height=12 width=$inwidth><br>\n";
|
||||
print DHTML "<img src=out.gif height=12 width=$outwidth><br></td>\n";
|
||||
print DHTML $gstring;
|
||||
|
||||
$count++;
|
||||
}
|
||||
|
||||
$intotal = sprintf("%.f", ($intotal / $mbsize));
|
||||
$outtotal = sprintf("%.f", ($outtotal / $mbsize));
|
||||
|
||||
my $gbtotal = sprintf("%.1f", (($intotal + $outtotal) / $gbsize));
|
||||
|
||||
print DHTML "</table><br></td></tr><tr><td align=right>";
|
||||
print DHTML "Monthly Total: <b>$gbtotal GB</b><br><font color=#00CC00>
|
||||
In:</font> $intotal MB - <font color=#0000FF>Out:</font> $outtotal MB<br>";
|
||||
|
||||
footer();
|
||||
|
||||
flock(DHTML, 8);
|
||||
close(DHTML);
|
||||
|
||||
# reverse math errors
|
||||
if ($newmon) { $mon++; }
|
||||
|
||||
}
|
||||
|
||||
|
||||
# END
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#
|
||||
# IOG v1.0 - Input/Output Grapher
|
||||
# Copyright 2000-2002 (c) James Dogopoulos
|
||||
#
|
||||
|
||||
|
||||
29
unref.py
29
unref.py
|
|
@ -1,29 +0,0 @@
|
|||
#! /usr/bin/python
|
||||
# recursively print links, Sam K (2000)
|
||||
import os,string,getopt,sys
|
||||
|
||||
def simplif(base,n) :
|
||||
return os.path.normpath(os.path.join(base,n))
|
||||
|
||||
optlist, args = getopt.getopt(sys.argv[1:], "")
|
||||
n=args[0]
|
||||
print n
|
||||
cur=os.path.abspath(".")
|
||||
i=0
|
||||
while i<2000 and os.path.islink(os.path.join(cur,n)) :
|
||||
print "%d-level link : %s -> %s" % (i,n,os.readlink(n))
|
||||
n2=simplif(os.path.dirname(n),os.readlink(n))
|
||||
# print " - > %s" % n2
|
||||
i=i+1
|
||||
n=n2
|
||||
if i>=2000 :
|
||||
print "Circular links : %s / %s " % (cur,args[0])
|
||||
raise "circular_link"
|
||||
|
||||
print "real File : %s" % n
|
||||
if os.path.isfile(n) :
|
||||
os.system('ls -lF '+n)
|
||||
os.system("file "+n)
|
||||
else :
|
||||
print "Broken Link !!"
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue