Parce que «Ça peut toujours servir»™ et que de toutes façons il y en a déjà des bouts qui sont dans le dépôt et que c'est chiant de git add -f.
Et puis bon, ça fait que 3Mo
This commit is contained in:
Vincent Le Gallic
parent
29f50c2ed9
commit
3bde363deb
299 changed files with 17466 additions and 0 deletions
11
archive/archives/E-mail_all
Executable file
11
archive/archives/E-mail_all
Executable file
|
|
@ -0,0 +1,11 @@
|
|||
#!/bin/zsh
|
||||
./remail $1 $2 > email.tmp
|
||||
chmod a+x email.tmp
|
||||
echo maintenant il faut editer ./email.tmp avec pico
|
||||
echo et virrer les ^M qui apparaissent.
|
||||
echo apres, on lance ./email.tmp et on l'efface
|
||||
#./email.tmp
|
||||
#rm email.tmp
|
||||
echo Done
|
||||
# envoie un E-mail a tout le monde
|
||||
# orthographe : E-mail_all fichier.txt "titre"
|
||||
7
archive/archives/MiroirConfig
Executable file
7
archive/archives/MiroirConfig
Executable file
|
|
@ -0,0 +1,7 @@
|
|||
#!/bin/zsh
|
||||
|
||||
#Copie de sauvegarde de toute la config de zamok
|
||||
#lancé par cron.daily
|
||||
scp -1BCr /etc/CRANS /etc/genConfs zamok@komaz:/var/zamok
|
||||
scp -1BCr /etc/CRANS /etc/genConfs zamok@sila:/var/zamok
|
||||
|
||||
8
archive/archives/MiroirFWall
Executable file
8
archive/archives/MiroirFWall
Executable file
|
|
@ -0,0 +1,8 @@
|
|||
#!/bin/zsh
|
||||
scp -1BCr /etc/CRANS/blacklist.cf zamok@komaz:/var/zamok/CRANS/
|
||||
scp -1BCr /etc/CRANS/blacklist.cf zamok@sila:/var/zamok/CRANS/
|
||||
|
||||
#On n'a pas besoin de tout mirrorer à chaque lanceMake.
|
||||
#scp -BCr /etc/CRANS /etc/genConfs zamok@komaz:/var/zamok
|
||||
#scp -BCr /etc/CRANS /etc/genConfs zamok@sila:/var/zamok
|
||||
|
||||
2
archive/archives/SMBMessage
Executable file
2
archive/archives/SMBMessage
Executable file
|
|
@ -0,0 +1,2 @@
|
|||
#!/bin/sh
|
||||
cat $3 | smbclient -U $1 -M $2
|
||||
425
archive/archives/analyse.pl
Executable file
425
archive/archives/analyse.pl
Executable file
|
|
@ -0,0 +1,425 @@
|
|||
#!/usr/bin/perl -w
|
||||
##
|
||||
## Analyse.pl
|
||||
##
|
||||
## Made by Vincent HANQUEZ <rv@crans.org>
|
||||
##
|
||||
## Started on Tue 09 Oct 2001 01:28:25 AM CEST tab
|
||||
## Last Update dim 10 fév 2002 16:55:24 CET Nicolas STRANSKY
|
||||
##
|
||||
## This program is free software; you can redistribute it and/or modify
|
||||
## it under the terms of the GNU General Public License as published by
|
||||
## the Free Software Foundation; only version 2 of the License
|
||||
##
|
||||
## This program is distributed in the hope that it will be useful,
|
||||
## but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
## GNU General Public License for more details.
|
||||
##
|
||||
## You should have received a copy of the GNU General Public License
|
||||
## along with this program; if not, write to the Free Software
|
||||
## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
|
||||
##
|
||||
##
|
||||
## AUTEUR: Vincent HANQUEZ
|
||||
## MAINTAINERS: Vincent HANQUEZ, Nicolas STRANSKY
|
||||
##
|
||||
## DESCRIPTION: analyse permet de creer des resumes des fichiers de
|
||||
## log cree par net-acct. Net-acct est un daemon qui permet de logguer toutes
|
||||
## les connexions effectues.
|
||||
##
|
||||
## SYNOPSIS: analyse [-d] [-h <host>][-m <to>][-n <nb>][-f <file>]
|
||||
##
|
||||
## VERSION: 0.35
|
||||
##
|
||||
##
|
||||
|
||||
use strict;
|
||||
use File::stat;
|
||||
use POSIX qw(strftime);
|
||||
use AppConfig qw(:expand :argcount);
|
||||
require Mail::Send;
|
||||
|
||||
my $ip_interne = "138\.231\.1(3[6-9]|4[0-3])\.";
|
||||
|
||||
## Do not modify after
|
||||
|
||||
my $VERSION = 0.35;
|
||||
my $AUTEUR = "Vincent HANQUEZ (aka Tab)";
|
||||
|
||||
my $pattern_ip =
|
||||
"[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}";
|
||||
|
||||
my ($opt_download, $opt_upload) = 0;
|
||||
my $opt_dnsresolve = 1;
|
||||
my $opt_normalize = 1;
|
||||
#my $opt_config = 1;
|
||||
my $opt_config = 0;
|
||||
my $opt_file = "/var/log/net-acct/net-acct.log.0";
|
||||
my $opt_configfile = "/etc/analyse.conf";
|
||||
my $opt_host = "";
|
||||
my $opt_mail = "";
|
||||
my $opt_number = -1;
|
||||
my $bad_arg = 0;
|
||||
my $period = 1;
|
||||
$opt_upload = 1;
|
||||
|
||||
######## ERROR GEST ########
|
||||
# USAGE: affiche en cas d'erreur dans les arguments.
|
||||
|
||||
sub usage
|
||||
{
|
||||
print "Usage:\tanalyse (-d) [-h <host>][-m <to>][-n <nb>][-f <file>]\n\n";
|
||||
|
||||
print "\t-d, --download\tTri la base sur le download\n";
|
||||
print "\t-h, --host\tResume des connexions effectues par la machine <host>\n";
|
||||
print "\t-n, --nombre\tChoisi le nombre de lignes affichees\n";
|
||||
print "\t-m, --mail\tEnvoie la sortie par mail a <to>\n";
|
||||
print "\t-f, --file\tSpecifie le fichier qui sera analyse\n";
|
||||
print "\t-c, --config\tSpecifie le fichier de configuration\n";
|
||||
print "\t --nodns\tNe resout pas les noms DNS\n";
|
||||
print "\t --nonorm\tNe transforme pas les nombres en forme plus lisible (Ko, Mo, Go)\n";
|
||||
print "\t --today\tChiffres du jour, analyse de /var/log/net-acct/net-acct.log\n";
|
||||
print "\t --noconfig\tNe charge pas les options du fichier de config\n";
|
||||
print "\t --noperiod\tN'affiche pas la période sur laquelle porte l'analyse\n";
|
||||
print "\t --help\tAffiche cette aide\n";
|
||||
print "\n";
|
||||
print "par defaut si l'option n'est pas utilise:\n";
|
||||
print "\tdownload = on tri sur l'upload\n";
|
||||
print "\tnombre = tout est affiche\n";
|
||||
print "\tfile = analyse de /var/log/net-acct/net-acct.log.0\n";
|
||||
print "\tconfig = par defaut /etc/analyse.conf";
|
||||
|
||||
exit (1);
|
||||
}
|
||||
|
||||
# SETOPT: gerer les options..
|
||||
sub setopt
|
||||
{
|
||||
my ($opt_name, $opt_param) = @_;
|
||||
if ($opt_name =~ /f/)
|
||||
{ $opt_file = $opt_param; }
|
||||
elsif ($opt_name =~ /h/)
|
||||
{ $opt_host = $opt_param; }
|
||||
elsif ($opt_name =~ /n/)
|
||||
{ $opt_number = $opt_param; }
|
||||
elsif ($opt_name =~ /c/)
|
||||
{ $opt_configfile = $opt_param; }
|
||||
elsif ($opt_name =~ /m/)
|
||||
{ $opt_mail = $opt_param; }
|
||||
}
|
||||
|
||||
# Readconfig
|
||||
|
||||
sub read_configfile
|
||||
{
|
||||
my $info = stat($opt_configfile) || die("Unable to open $opt_configfile");
|
||||
my $config = AppConfig->new(
|
||||
'normalize',
|
||||
'dnsresolve',
|
||||
'network' => { ARGCOUNT => 1 }
|
||||
);
|
||||
$config->file($opt_configfile);
|
||||
$opt_normalize = $config->normalize();
|
||||
$opt_dnsresolve = $config->dnsresolve();
|
||||
$ip_interne = $config->network();
|
||||
}
|
||||
|
||||
|
||||
########## FCT ###########
|
||||
# SHOW_ALL: affiche toutes les machines
|
||||
|
||||
sub show_all
|
||||
{
|
||||
my %db;
|
||||
|
||||
my ($nb_to_print, $sort_by_upload) = @_;
|
||||
|
||||
# creation de la base
|
||||
open (INPUT, $opt_file) || die ("Unable to open $opt_file");
|
||||
while (my $line = <INPUT>) {
|
||||
my ($src_ip, $dst_ip, $size) = (split "\t", $line)[2,4,6];
|
||||
if ($src_ip =~ /$ip_interne/ )
|
||||
{ $db{$src_ip}->{up} += $size; }
|
||||
if ($dst_ip =~ /$ip_interne/ )
|
||||
{ $db{$dst_ip}->{down} += $size; }
|
||||
}
|
||||
close(INPUT);
|
||||
|
||||
# Nombre d'entree a afficher
|
||||
if ($nb_to_print == -1)
|
||||
{ $nb_to_print = (my @nb = (keys %db)); }
|
||||
|
||||
my $max = (keys %db)[0];
|
||||
|
||||
# tris sur upload ou download
|
||||
my $way1 = "up";
|
||||
my $way2 = "down";
|
||||
if ($sort_by_upload == 0)
|
||||
{ $way1 = "down"; $way2 = "up"; }
|
||||
|
||||
# on affiche $nb_to_print entree, en ayant trier les machines
|
||||
if ($period)
|
||||
{
|
||||
open (INPUT, $opt_file) || die ("Unable to open $opt_file");
|
||||
my $line1 = <INPUT>;
|
||||
my $firstdate = (split "\t", $line1)[0];
|
||||
my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate));
|
||||
print $firstdate2;
|
||||
print "\n";
|
||||
|
||||
seek(INPUT, -90, 2);
|
||||
my $lastlineX = <INPUT>;
|
||||
my $lastline = <INPUT>;
|
||||
my $lastdate = (split "\t", $lastline)[0];
|
||||
my $lastdate2 = strftime(" jusq'au %d-%m-%Y %H:%M:%S", localtime($lastdate));
|
||||
print $lastdate2;
|
||||
print "\n";
|
||||
close(INPUT);
|
||||
|
||||
print "\n";}
|
||||
|
||||
|
||||
for (my $dec = $nb_to_print; $dec > 0; $dec--)
|
||||
{
|
||||
foreach my $ip (keys %db)
|
||||
{
|
||||
if (defined($db{$ip}->{$way1}) &&
|
||||
$db{$max}->{$way1} <= $db{$ip}->{$way1})
|
||||
{ $max = $ip; }
|
||||
}
|
||||
print normalize($db{$max}->{$way1})." (".
|
||||
normalize($db{$max}->{$way2}).")\t".
|
||||
ip_to_name($max)."\n" if ($db{$max}->{$way1} > 0);
|
||||
$db{$max}->{$way1} = 0;
|
||||
}
|
||||
}
|
||||
|
||||
#############################
|
||||
# GET_HOST_INFO: Affiche les informations sur une machine
|
||||
sub get_host_info
|
||||
{
|
||||
my $total_size;
|
||||
my %db;
|
||||
my ($ip_search) = @_;
|
||||
|
||||
$total_size->{UPLOAD} = 0; $total_size->{DOWNLOAD} = 0;
|
||||
|
||||
# Must unresolve name
|
||||
if (!($ip_search =~ /$pattern_ip/))
|
||||
{ $ip_search = name_to_ip($ip_search); if ($ip_search eq "0") { return (-1); } }
|
||||
|
||||
# create db
|
||||
open (INPUT, $opt_file) || die ("Unable to open $opt_file");
|
||||
while (my $line = <INPUT>) {
|
||||
my ($src_ip, $src_port, $dst_ip, $dst_port, $size) =
|
||||
(split "\t", $line)[2,3,4,5,6];
|
||||
if ($src_ip eq $ip_search) {
|
||||
$total_size->{UPLOAD} += $size;
|
||||
$db{$src_port}->{UPLOAD_LOCAL} += $size;
|
||||
$db{$dst_port}->{UPLOAD_DIST} += $size;
|
||||
}
|
||||
if ($dst_ip eq $ip_search) {
|
||||
$total_size->{DOWNLOAD} += $size;
|
||||
$db{$dst_port}->{DOWNLOAD_LOCAL} += $size;
|
||||
$db{$src_port}->{DOWNLOAD_DIST} += $size;
|
||||
}
|
||||
}
|
||||
close (INPUT);
|
||||
|
||||
# printing info
|
||||
if ($period)
|
||||
{
|
||||
open (INPUT, $opt_file) || die ("Unable to open $opt_file");
|
||||
my $line1 = <INPUT>;
|
||||
my $firstdate = (split "\t", $line1)[0];
|
||||
my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate));
|
||||
print $firstdate2;
|
||||
print "\n";
|
||||
|
||||
seek(INPUT, -90, 2);
|
||||
my $lastlineX = <INPUT>;
|
||||
my $lastline = <INPUT>;
|
||||
my $lastdate = (split "\t", $lastline)[0];
|
||||
my $lastdate2 = strftime(" jusqu'au %d-%m-%Y %H:%M:%S", localtime($lastdate));
|
||||
print $lastdate2;
|
||||
print "\n";
|
||||
close(INPUT);
|
||||
|
||||
print "\n";}
|
||||
print "--- Info for $ip_search ---";
|
||||
print "\n";
|
||||
|
||||
foreach my $type ("UPLOAD", "DOWNLOAD")
|
||||
{
|
||||
print $type.": \t".normalize($total_size->{$type})."\n";
|
||||
foreach my $location ("LOCAL", "DIST")
|
||||
{
|
||||
print "PORT $location: ";
|
||||
|
||||
my $max = (keys %db)[0];
|
||||
for (my $dec=5; $dec > 0; $dec--) {
|
||||
foreach my $port (keys %db) {
|
||||
if (defined($db{$port}->{$type."_".$location}) &&
|
||||
(! defined($db{$max}->{$type."_".$location}) ||
|
||||
$db{$max}->{$type."_".$location} <=
|
||||
$db{$port}->{$type."_".$location}))
|
||||
{ $max = $port; }
|
||||
}
|
||||
print "$max(".normalize($db{$max}->{$type."_".$location}).") "
|
||||
if ($db{$max}->{$type."_".$location} > 0);
|
||||
$db{$max} ->{$type."_".$location} = 0;
|
||||
}
|
||||
print "\n";
|
||||
}
|
||||
print "\n";
|
||||
}
|
||||
|
||||
print "--- Calculs ---\n";
|
||||
print "Upload pur:\t".
|
||||
normalize($total_size->{UPLOAD} - $total_size->{DOWNLOAD}/20);
|
||||
foreach my $type ("UPLOAD", "DOWNLOAD")
|
||||
{
|
||||
print "\nTAUX $type:\t";
|
||||
print normalize($total_size->{$type}/24)."/h - ";
|
||||
print normalize($total_size->{$type}/1440)."/min - ";
|
||||
print normalize($total_size->{$type}/86400)."/s";
|
||||
}
|
||||
print "\n";
|
||||
}
|
||||
|
||||
###########################
|
||||
######### TOOLKIT #########
|
||||
# normalize: transforme un nombre, en un nombre suivi d'un prefixe
|
||||
# Go, Mo, Ko, Octets.
|
||||
|
||||
sub normalize
|
||||
{
|
||||
my ($nb) = @_;
|
||||
if ($opt_normalize)
|
||||
{
|
||||
if (defined $nb) {
|
||||
if ($nb < 0)
|
||||
{ return ("0o"); }
|
||||
if ($nb > (1024*1024*1024))
|
||||
{ return ((int($nb*100/(1024*1024*1024))/100)."Go"); }
|
||||
elsif ($nb > (1024*1024))
|
||||
{ return (int($nb/(1024*1024))."Mo"); }
|
||||
elsif ($nb > 1024)
|
||||
{ return (int($nb/(1024))."Ko"); }
|
||||
else
|
||||
{ return ($nb."o"); }
|
||||
}
|
||||
return ("0");
|
||||
} else
|
||||
{
|
||||
if (defined $nb)
|
||||
{ return ($nb); }
|
||||
else
|
||||
{ return (0); }
|
||||
}
|
||||
}
|
||||
|
||||
# ip_to_name: resout le nom associe a l'ip donne en argument
|
||||
sub ip_to_name
|
||||
{
|
||||
my ($ip) = @_;
|
||||
my $ret;
|
||||
my $host_name;
|
||||
my $aliases;
|
||||
my $addrtype;
|
||||
my $length;
|
||||
my @addrs;
|
||||
|
||||
if (!($ip =~ /$pattern_ip/))
|
||||
{ return ($ip); }
|
||||
|
||||
if ($opt_dnsresolve) {
|
||||
my $ipaddr = pack("C4", split(/\./, $ip));
|
||||
if (($host_name, $aliases, $addrtype, $length, @addrs)
|
||||
= gethostbyaddr($ipaddr, 2))
|
||||
{ return ($host_name); }
|
||||
else
|
||||
{ return ("$ip [lookup failed]"); }
|
||||
}
|
||||
return ($ip);
|
||||
}
|
||||
|
||||
# name_to_ip: deresout le nom
|
||||
sub name_to_ip
|
||||
{
|
||||
my ($host) = @_;
|
||||
my $line = "";
|
||||
if ($host =~ /$pattern_ip/)
|
||||
{ return ($host); }
|
||||
open (COM, "host $host | awk '{print \$4}' |");
|
||||
$line = <COM>;
|
||||
close (COM);
|
||||
if (! ($line =~ /$pattern_ip/))
|
||||
{ print "host $host don't exist aborting\n"; return ("0");}
|
||||
chomp($line);
|
||||
return ($line);
|
||||
}
|
||||
|
||||
##########################################################################
|
||||
|
||||
# Lit les options de la ligne de commande
|
||||
use Getopt::Long;
|
||||
Getopt::Long::config ("bundling");
|
||||
Getopt::Long::GetOptions
|
||||
(
|
||||
'v|version' => sub { print "analyse version $VERSION\n$AUTEUR\n"; },
|
||||
'd|download' => sub { $opt_download = 1; $opt_upload = 0; },
|
||||
'u|upload' => sub { $opt_upload = 1; $opt_download = 0; },
|
||||
'c|config=s' => \&setopt,
|
||||
'h|host=s' => \&setopt,
|
||||
'f|file=s' => \&setopt,
|
||||
'm|mail=s' => \&setopt,
|
||||
'n|number=s' => \&setopt,
|
||||
'help' => \&usage,
|
||||
'nodns' => sub { $opt_dnsresolve = 0; },
|
||||
'nonorm' => sub { $opt_normalize = 0; },
|
||||
'noconfig' => sub { $opt_config = 0; },
|
||||
'noperiod' => sub { $period = 0; },
|
||||
'today' => sub { $opt_file = "/var/log/net-acct/net-acct.log"; }
|
||||
) or $bad_arg = 1;
|
||||
|
||||
if ($bad_arg == 1)
|
||||
{ usage(); }
|
||||
|
||||
my ($mail_msg, $mail_fh);
|
||||
|
||||
# Lit les options du fichier de config
|
||||
# sauf si --noconfig est utilise
|
||||
if ($opt_config)
|
||||
{ read_configfile(); }
|
||||
|
||||
# Begin Mail ?
|
||||
if ($opt_mail ne "")
|
||||
{
|
||||
$mail_msg = new Mail::Send;
|
||||
$mail_msg->to($opt_mail);
|
||||
$mail_msg->subject("[ANALYSE]");
|
||||
$mail_fh = $mail_msg->open();
|
||||
close (STDOUT);
|
||||
open (STDOUT, ">/tmp/analyse_mail");
|
||||
}
|
||||
|
||||
# Main Part
|
||||
if ($opt_host ne "")
|
||||
{ get_host_info($opt_host); }
|
||||
else
|
||||
{ show_all($opt_number, $opt_upload); }
|
||||
|
||||
# Close Mail
|
||||
if ($opt_mail ne "")
|
||||
{
|
||||
close (STDOUT);
|
||||
open (FH, "/tmp/analyse_mail") || die ("argh not possible !\n");
|
||||
while (my $line = <FH>)
|
||||
{ print $mail_fh $line; }
|
||||
close (FH);
|
||||
$mail_fh->close();
|
||||
}
|
||||
|
||||
exit (0);
|
||||
84
archive/archives/analyse_komaz/analyse.cron
Executable file
84
archive/archives/analyse_komaz/analyse.cron
Executable file
|
|
@ -0,0 +1,84 @@
|
|||
#!/bin/sh
|
||||
##
|
||||
## Analyse
|
||||
##
|
||||
## Made by Tab <rv@crans.org>
|
||||
##
|
||||
## Started on Tue 09 Oct 2001 01:28:25 AM CEST tab
|
||||
## MAJ : 06/02/2003 -- Fred
|
||||
|
||||
TEMPFILE="/tmp/analyse.mail"
|
||||
|
||||
# Options pour les stats traffic
|
||||
PROG="/usr/scripts/analyse_komaz/nacct.py"
|
||||
OPTIONS="-N 15"
|
||||
OPTIONS2="-N 15 -c 2"
|
||||
OPTIONS3="-N 15 -c 5"
|
||||
|
||||
# Divers chemins
|
||||
BLACKLIST="/var/zamok/CRANS/blacklist.cf"
|
||||
AUTODISC_LOG="/var/log/autodisconnect.log"
|
||||
VIRUS_BLACKLIST="/tmp/virus_blacklist"
|
||||
|
||||
#################################################################################
|
||||
# Machines ayant été disconnectées dans les 24h :
|
||||
# affichage de leur historique
|
||||
|
||||
echo "Bilan des autodisconnexions des dernières 24h :" >> $TEMPFILE
|
||||
echo "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" >> $TEMPFILE
|
||||
|
||||
if [ -e $AUTODISC_LOG ]; then
|
||||
for host in $(awk -F'[ .]' '/'$(date --date=yesterday +%d-%m-%Y)'-(0[7-9]|1|2)|'$(date +%d-%m-%Y)'-0[0-6]/ {print $2}' $AUTODISC_LOG)
|
||||
do
|
||||
echo "$host :"
|
||||
( awk -F'-' '/'$host'.crans.org/ {print $3$2"@"$1"/"$2"/"$3" : autodisconnecté"}' $AUTODISC_LOG
|
||||
awk -F'[:/ ]' '/^'$host'/ || /^#'$host'/ {print $6$5"@"$4"/"$5"/"$6" : déco manuelle (->"$7"/"$8"/"$9")"}' $BLACKLIST ) \
|
||||
| sort -r \
|
||||
| awk -F@ '{print "\t"$2}'
|
||||
done >> $TEMPFILE
|
||||
else
|
||||
echo -e "Problème avec $AUTODISC_LOG" >> $TEMPFILE
|
||||
fi
|
||||
|
||||
echo -e "\n" >> $TEMPFILE
|
||||
|
||||
#################################################################################
|
||||
# Vérolés
|
||||
|
||||
if [ -e $VIRUS_BLACKLIST ]; then
|
||||
echo "Bilan des bloquages web pour virus :" >> $TEMPFILE
|
||||
echo "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-" >> $TEMPFILE
|
||||
|
||||
echo "Il y a $(wc -l $VIRUS_BLACKLIST | awk '{print $1}') machines infectées." >> $TEMPFILE
|
||||
|
||||
if [ -e $VIRUS_BLACKLIST.hier ] ; then
|
||||
diff -U0 -s $VIRUS_BLACKLIST.hier $VIRUS_BLACKLIST \
|
||||
| egrep -v '\-\-\-|\+\+\+|@@' >> $TEMPFILE
|
||||
else
|
||||
cat $VIRUS_BLACKLIST >> $TEMPFILE
|
||||
fi
|
||||
cp -f $VIRUS_BLACKLIST $VIRUS_BLACKLIST.hier
|
||||
echo -e "\n" >> $TEMPFILE
|
||||
fi
|
||||
|
||||
#################################################################################
|
||||
# Statistiques
|
||||
|
||||
echo "Statistiques upload/download :" >> $TEMPFILE
|
||||
echo "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-" >> $TEMPFILE
|
||||
|
||||
if [ -x $PROG ]; then
|
||||
echo -e "Upload (Download) pur normal :\n" >> $TEMPFILE
|
||||
$PROG $OPTIONS | tail -15 | awk -F "|" '{print $1" ("$3")"" "$7}' >> $TEMPFILE
|
||||
echo -e "\nUpload total normal :\n" >> $TEMPFILE
|
||||
$PROG $OPTIONS2 | tail -15 | awk -F "|" '{print $2" "$7}' >> $TEMPFILE
|
||||
echo -e "\nUpload total exempté :\n" >> $TEMPFILE
|
||||
$PROG $OPTIONS3 | tail -15 | awk -F "|" '{print $5" "$7}' >> $TEMPFILE
|
||||
else
|
||||
echo -e "Problème avec $PROG" >> $TEMPFILE
|
||||
fi
|
||||
|
||||
#################################################################################
|
||||
# Envoi du mail
|
||||
cat $TEMPFILE |/usr/bin/mail -s "Stats -- $(date --date=yesterday +%A\ %d\ %B\ %Y)" disconnect@crans.org
|
||||
rm -f $TEMPFILE
|
||||
215
archive/archives/analyse_komaz/autodisconnect
Executable file
215
archive/archives/analyse_komaz/autodisconnect
Executable file
|
|
@ -0,0 +1,215 @@
|
|||
#!/bin/zsh
|
||||
##
|
||||
## autodisconnect
|
||||
##
|
||||
## Made by stransky
|
||||
## Login stransky <stransky@crans.org>
|
||||
##
|
||||
## Started on ven 25 jan 2002 22:24:26 CEST Nicolas STRANSKY
|
||||
## Last update lun 03 nov 2003 07:38:51 CET Nicolas STRANSKY
|
||||
##
|
||||
## script de surveillance automatique de l'upload.
|
||||
## à lancer par cron.
|
||||
|
||||
export LANG=fr_FR@euro
|
||||
|
||||
LIMITE_SOFT=100
|
||||
LIMITE_HARD=700
|
||||
MAIL_INTERVAL=100
|
||||
LOG=/var/log/autodisconnect.log
|
||||
LOGFILE=/var/log/net-acct/net-acct.log
|
||||
outpF=$(mktemp)
|
||||
TEMPFILE=/tmp/uploaders
|
||||
LISTFILE=/tmp/liste
|
||||
EMPREINTE_NEW=/tmp/empreinte-new
|
||||
EMPREINTE=/tmp/empreinte
|
||||
HABITUES=/tmp/habitues # Liste des habitués du système
|
||||
BLACKLISTES=/tmp/blacklistes
|
||||
BLACKLISTES_NEW=${BLACKLISTES}-new
|
||||
BLACKLISTE_ZAMOK=/var/zamok/CRANS/blacklist.cf
|
||||
VERIF=0 # on envoie un mail à disconnect si VERIF=1
|
||||
RENEW=1 # si cette valeur reste à 1 on vide le fichier empreinte.
|
||||
date=$(date +%A\ %d\ %B\ %Y\ \ %T)
|
||||
date2=$(date +%A\ %d\ %B\ %Y)
|
||||
date3=$(date +%d-%m-%Y-%T)
|
||||
DIR=/usr/scripts/analyse_komaz
|
||||
|
||||
# Si /tmp/exempts.pickle n'existe pas, on relance exempts.py
|
||||
if [ ! -f /tmp/exempts.pickle ]; then
|
||||
$DIR/exempts.py
|
||||
fi
|
||||
|
||||
# On renforce déjà la blacklist (au cas où le firewall a été relancé)
|
||||
if [ -f $BLACKLISTES ]; then
|
||||
while read machine ; do
|
||||
if ! (/sbin/iptables -nL BLACKLIST_SRC | grep -q "^REJECT.*$machine "); then
|
||||
/sbin/iptables -I BLACKLIST_SRC -s $machine -j REJECT
|
||||
echo blacklist $machine
|
||||
fi
|
||||
done < $BLACKLISTES
|
||||
fi
|
||||
|
||||
# Retourne l'adresse email correspondant à la machine donnée en paramètre
|
||||
# Le premier paramètre est le nom de la machine en FQDN (lucas.crans.org)
|
||||
getAdresseMail() {
|
||||
# Quel est l'adhérent de la machine ?
|
||||
aid=$(ldapsearch -LLL -H ldaps://sila.crans.org -x -D "cn=admin,dc=crans,dc=org" \
|
||||
-w $(cat /etc/ldap.secret) -b "ou=data,dc=crans,dc=org" \
|
||||
host=$1 dn | head -1 | awk -F, '{print $2}')
|
||||
# On affiche son adresse email
|
||||
mail=$(ldapsearch -LLL -H ldaps://sila.crans.org -x -D "cn=admin,dc=crans,dc=org" \
|
||||
-w $(cat /etc/ldap.secret) -b "ou=data,dc=crans,dc=org" $aid \
|
||||
mail | awk -F': ' '($1 ~ /^mail$/) {if ($2 ~ /@/) print $2; else print $2"@crans.org"}')
|
||||
if [[ -z $mail ]]; then
|
||||
echo disconnect@crans.org
|
||||
else
|
||||
echo $mail
|
||||
fi
|
||||
}
|
||||
|
||||
echo $date > $LISTFILE
|
||||
echo " " >> $LISTFILE
|
||||
|
||||
#/usr/scripts/analyse.pl -u -n 10 -f $LOGFILE --noperiod | egrep -v "zamok|komaz|sila" | \
|
||||
#grep -v "Ko" | awk '{print $1" "$3}' | sed 's/Mo/ /g' | sed 's/\.[0-9]*Go/000 /g' > $TEMPFILE
|
||||
|
||||
$DIR/nacct.py -n -N 25| grep -v 'NoDNS_' > $outpF
|
||||
if [ $? -eq 255 ]; then
|
||||
echo "Problème avec nacct.py : lock"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
cat $outpF | tail -25 | awk -F "|" '{print $1" "$7}' | egrep -v "136\.(1|2|3|4|6|8|9|10)$" > $TEMPFILE
|
||||
|
||||
# Pour conserver un historique de la sortie de nacct.py
|
||||
echo -e "\n$date" >> /tmp/nacct_history
|
||||
cat $outpF >> /tmp/nacct_history
|
||||
|
||||
if ! grep -q "^===========================================================================" $outpF ; then
|
||||
echo "Pas de données ; problème avec nacct"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
rm $outpF
|
||||
|
||||
while read upload machine ; do # On lit dans $TEMPFILE
|
||||
if ! (/sbin/iptables -nL BLACKLIST_SRC | grep -q "^REJECT.*$machine ") && [ $( echo $upload | cut -d '.' -f 1 ) -ge $LIMITE_SOFT ]
|
||||
then # Si la machine dépasse la limite soft et n'est pas déjà blacklistée,
|
||||
RENEW=0 # on ne vide pas le fichier empreinte
|
||||
hostname=`host $machine | awk '/Name:/ {print $2}'`
|
||||
if [ $( echo $upload | cut -d '.' -f 1 ) -ge $LIMITE_HARD ]
|
||||
then
|
||||
/sbin/iptables -I BLACKLIST_SRC -s $machine -j REJECT
|
||||
echo blacklist $hostname
|
||||
echo "$hostname FIREWALISÉ ! ($upload Mo)" >> $LISTFILE
|
||||
echo "$date3 $hostname $upload" >> $LOG
|
||||
echo "$machine" >> $BLACKLISTES
|
||||
VERIF=1
|
||||
# Envoi d'un mail pour prévenir la personne (à modifier pour éventuellement utiliser sendmail)
|
||||
# On doit tester la variable EMAIL ?
|
||||
EMAIL=$(getAdresseMail $hostname)
|
||||
echo $EMAIL
|
||||
cat <<EOF | mail -s "Deconnexion temporaire de $hostname" -a "From: disconnect@crans.org" -a "Reply-To: disconnect@crans.org" $EMAIL
|
||||
Bonjour,
|
||||
|
||||
Ta machine $hostname a été temporairement déconnectée parce que tu uploadais
|
||||
une quantité importante de données. Tu recevras dans moins de 24h
|
||||
un mail indiquant ta reconnexion. Tu as toujours accès au web ainsi qu'à tes mails
|
||||
mais les autres services sont suspendus. Si cela se renouvelle trop souvent, tu
|
||||
risques d'être déconnecté entièrement pour une durée plus importante. Il
|
||||
t'appartient donc de surveiller cela de plus près et de faire en sorte que ta
|
||||
machine n'uploade pas de manière excessive à l'avenir.
|
||||
|
||||
Pour plus d'informations, tu peux consulter la page:
|
||||
http://wiki.crans.org/moin.cgi/VieCrans_2fD_e9connexionPourUpload
|
||||
Si tu as des questions, contacte disconnect@crans.org
|
||||
EOF
|
||||
elif ! (grep -q $hostname $EMPREINTE) # si la machine n'a pas encore été repérée par autodisconnect
|
||||
then
|
||||
EMAIL=$(getAdresseMail $hostname)
|
||||
# On évince les habitués, ils reçoivent assez de mails comme ça
|
||||
if ! (grep -q $EMAIL $HABITUES); then
|
||||
echo "$hostname uploade ($upload Mo)" >> $LISTFILE
|
||||
echo "$hostname $upload" >> $EMPREINTE_NEW
|
||||
VERIF=1 # Pas d'envoi de mail dans ce cas
|
||||
cat <<EOF | mail -s "Ta machine $hostname uploade" -a "From: disconnect@crans.org" -a "Reply-To: disconnect@crans.org" $EMAIL
|
||||
Bonjour,
|
||||
|
||||
Ta machine $hostname uploade une quantité importante de données vers l'extérieur
|
||||
(actuellement, $upload Mo). Si cela continuait, elle serait automatiquement
|
||||
déconnectée pour une durée d'environ 24 heures. Il t'appartient donc de
|
||||
surveiller cela de plus près et de faire en sorte que ta machine n'uploade pas
|
||||
de manière excessive à l'avenir.
|
||||
|
||||
Pour plus d'informations, tu peux consulter la page:
|
||||
http://wiki.crans.org/moin.cgi/VieCrans_2fD_e9connexionPourUpload
|
||||
Si tu as des questions, contacte disconnect@crans.org
|
||||
EOF
|
||||
fi
|
||||
|
||||
elif [ `echo $upload | cut -d '.' -f 1` -gt `echo $(cat $EMPREINTE | \
|
||||
awk -v MACHINE=$hostname '$0 ~ MACHINE {print $2}')"/1+$MAIL_INTERVAL"|bc` ]
|
||||
# si la machine a uploadé $MAIL_INTERVAL Mo de plus que la dernière
|
||||
# fois qu'on a envoyé un mail à son sujet, on renvoie un mail.
|
||||
then
|
||||
echo "$hostname uploade encore. ($upload Mo)" >> $LISTFILE
|
||||
echo "$hostname $upload" >> $EMPREINTE_NEW
|
||||
else # sinon on conserve les infos sur la machine
|
||||
cat $EMPREINTE | grep $hostname >> $EMPREINTE_NEW
|
||||
fi
|
||||
fi
|
||||
done < $TEMPFILE
|
||||
|
||||
|
||||
if [ $RENEW -eq 1 ] ; then cat /dev/null > $EMPREINTE ; fi
|
||||
if [ -f $EMPREINTE_NEW ] ; then mv $EMPREINTE_NEW $EMPREINTE ; fi
|
||||
|
||||
# Reconnexion des machines déconnectées
|
||||
|
||||
rm -f $BLACKLISTES_NEW
|
||||
if [ -f $BLACKLISTES ]; then
|
||||
while read machine ; do
|
||||
# Est-ce que cette machine est toujours dans le TOP 12 ?
|
||||
|
||||
# Juste pour vérifier où se situe le problème -- Nico
|
||||
echo "$machine firewalisé en est encore à : $(awk '($2 == "'$machine'") {print $1}' $TEMPFILE)"
|
||||
|
||||
if ! (grep -q $machine'$' $TEMPFILE) || \
|
||||
[ $LIMITE_SOFT -ge $(awk '($2 == "'$machine'") {print $1}' $TEMPFILE | cut -d '.' -f 1 ) ]; then
|
||||
VERIF=1
|
||||
# On doit la reconnecter : on la vire de BLACKLISTES
|
||||
grep -v $machine $BLACKLISTES > $BLACKLISTES_NEW
|
||||
hostname=`host $machine | awk '/Name:/ {print $2}'`
|
||||
# Reconnexion
|
||||
if ! (grep -q "^$(echo $hostname | cut -f1 -d.)" $BLACKLISTE_ZAMOK )
|
||||
then # Si la machine est blacklistée sur zamok on ne reconnecte pas
|
||||
/sbin/iptables -D BLACKLIST_SRC -s $machine -j REJECT
|
||||
echo "La machine $hostname a été reconnectée. ($(awk '($2 == "'$machine'") {print $1}' $TEMPFILE) Mo)" >> $LISTFILE
|
||||
EMAIL=$(getAdresseMail $hostname)
|
||||
cat <<EOF | mail -s "Reconnexion de $hostname" -a "From: disconnect@crans.org" -a "Reply-To: disconnect@crans.org" $EMAIL
|
||||
Bonjour,
|
||||
|
||||
Ta machine $hostname avait été temporairement déconnectée, elle est maintenant
|
||||
reconnectée. Vérifie que tu ne fais plus d'upload pour éviter de te faire
|
||||
déconnecter une nouvelle fois.
|
||||
EOF
|
||||
else
|
||||
echo "La machine $hostname reste blacklisstée sur zamok. ($(awk '($2 == "'$machine'") {print $1}' $TEMPFILE) Mo)" >> $LISTFILE
|
||||
fi
|
||||
echo reconnexion $machine
|
||||
fi
|
||||
done < $BLACKLISTES
|
||||
fi
|
||||
|
||||
# Bug, on n'enlève qu'une machine à chaque fois, pas trop grave
|
||||
if [ -f $BLACKLISTES_NEW ]; then cat $BLACKLISTES_NEW > $BLACKLISTES; fi
|
||||
# Eventuellement, appel de firewall blacklist si on n'a pas encore reconnecté
|
||||
|
||||
if [ $VERIF -eq 1 ]
|
||||
then
|
||||
echo -e "\n-- \ncréé par autodisconnect." >> $LISTFILE
|
||||
|
||||
cat $LISTFILE | /usr/bin/mail -s "upload temps réel - $date2" -a "From: disconnect@crans.org" -a "Reply-To: disconnect@crans.org" pessoles@crans.org
|
||||
fi
|
||||
|
||||
exit 0
|
||||
42
archive/archives/analyse_komaz/exempts.py
Executable file
42
archive/archives/analyse_komaz/exempts.py
Executable file
|
|
@ -0,0 +1,42 @@
|
|||
#! /usr/bin/env python
|
||||
# -*- encoding: iso-8859-15 -*-
|
||||
|
||||
|
||||
import cPickle,re
|
||||
|
||||
exempts = { 'dst' : [], 'src_dst' : {} }
|
||||
|
||||
"""
|
||||
exempts['dst'] : liste de réseaux (exprimés en regex) vers lesquels le traffic est exempté
|
||||
exempts['src_dst'] [ IP ] : idem, mais seulement en provenance de IP.
|
||||
|
||||
"""
|
||||
|
||||
exempts['dst'].append( '138\.231\..*' ) # * => *.ens-cachan.fr
|
||||
|
||||
exempts['src_dst']['138.231.149.10'] = ['134\.157\.96\.216'] # rivendell.wifi.crans.org => *.ccr.jussieu.fr
|
||||
exempts['src_dst']['138.231.141.187'] = ['129\.104\.17\..*', '134\.157\.96\.216' ] # barad-dur.crans => *.polytechnique.fr et *.ccr.jussieu.fr
|
||||
exempts['src_dst']['138.231.136.7'] = ['195\.221\.21\.36'] # egon => ftp.crihan.fr pour rsync mirroir debian/fedor
|
||||
exempts['src_dst']['138.231.143.62'] =['193\.49\.25\.152' , '138\.195\.34\..*' ] # ogre => centrale / labo fast (psud)
|
||||
exempts['src_dst']['138.231.140.173'] =['195\.220\.131\.33' , '195\.220\.133\.98' ] # duckien => rebol.ephe.sorbonne.fr oss.ephe.sorbonne.fr, 28/1/2005 -- Bilou
|
||||
exempts['src_dst']['138.231.137.230'] =['129\.175\.100\.221' ] # helene => orsay
|
||||
exempts['src_dst']['138.231.136.7'] =['138\.195\..*' ] # egon => centrale paris
|
||||
exempts['src_dst']['138.231.139.106'] =['138\.195\.74\..*' ] # schuss => centrale paris
|
||||
exempts['src_dst']['138.231.139.106'] =['138\.195\.75\..*' ] # schuss => centrale paris
|
||||
exempts['src_dst']['138.231.150.106'] =['157\.99\.164\.27' ] # sayan-ftp.wifi => chile.sysbio.pasteur.fr
|
||||
|
||||
def compileRegs( exempts) :
|
||||
L = []
|
||||
for s in exempts['dst'] :
|
||||
L.append( re.compile(s) )
|
||||
exempts['dst'] = L
|
||||
for k in exempts['src_dst'].keys() :
|
||||
L = []
|
||||
for s in exempts['src_dst'] [k] :
|
||||
L.append( re.compile(s) )
|
||||
exempts['src_dst'] [k] = L
|
||||
|
||||
|
||||
compileRegs( exempts )
|
||||
fd=open("/tmp/exempts.pickle","wb")
|
||||
cPickle.dump(exempts, fd)
|
||||
28
archive/archives/analyse_komaz/flood_scan.awk
Executable file
28
archive/archives/analyse_komaz/flood_scan.awk
Executable file
|
|
@ -0,0 +1,28 @@
|
|||
#!/usr/bin/awk -f
|
||||
#Lecture des logs du firewall pour retourner la liste des machines floodant
|
||||
#
|
||||
#Arguments :
|
||||
#<fichier(s) à scanner> <autre fichier donc le nom contient blacklist>
|
||||
# Le second fichier contient les IP des machines supplémentaires à sortir.
|
||||
#
|
||||
# Format de sortie : Mois jour hh:mm:ss hostname nb_attques
|
||||
#
|
||||
# 02/2003 Frédéric Pauget
|
||||
|
||||
{ if (FILENAME~"blacklist") {
|
||||
if ($0=="") nextfile;
|
||||
tentatives[$0]=0;
|
||||
dern_tentative[$0]="Vieux 00 00:00:00"; }
|
||||
}
|
||||
|
||||
/.*Flood:IN=eth0.*/ {
|
||||
gsub("SRC=","",$9);
|
||||
tentatives[$9]++;
|
||||
dern_tentative[$9]=$1" "$2" "$3;
|
||||
}
|
||||
|
||||
END{
|
||||
for (machine in tentatives){
|
||||
system("echo "dern_tentative[machine]" $(host "machine" 2>/dev/null | awk '/^Name/ {print $2}') "tentatives[machine])
|
||||
}
|
||||
}
|
||||
12
archive/archives/analyse_komaz/keys/reload_squid
Normal file
12
archive/archives/analyse_komaz/keys/reload_squid
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
-----BEGIN DSA PRIVATE KEY-----
|
||||
MIIBuwIBAAKBgQDVcolphFz43syoaLG493G6rrZn3Jn6rr/4ur6MkLd1up3/nejW
|
||||
VRgpJ4YkVQjjFwyPkN+jRE0TTnQrHM2SF8/y4o3FU/IPl2R6VjjCJj4lMTdBzU6B
|
||||
POuW4VB5UdFE8iUESciCdznQtdQa8V5B8X8M8ONIFfGuVLNwL7TEhimMmwIVAMaQ
|
||||
gPvdJou3MrXbzJO0LEOk49e7AoGAR1g8pp6HDbLg4aDLfU28JrgL5IJdCEmRg2ro
|
||||
76wkcFLNNJkRapl2piRkIKF2cYxz80qX8XhidEFF0HV7d6fBQxdhCq/1IP0c1DDd
|
||||
CeUmf16sG8mNo+yIDcz7TlZO+1pAUmgUJo+p33+tVkYcTrSMhYZuTuLPZQTwsoEo
|
||||
4YHnftUCgYEAmHVzjTbE8EayE9uhwoIu9FEqV4Cc1LwHeUDFv4bnMx+RDbiNKTSW
|
||||
AI9BbjhJparm7v40sd4VLlCtMuo1qdjXRxczSCLAGsYADSihNTREXUM0QpF8WGkU
|
||||
nBYI/Hls1sLosoe1a5LNgdlj7Mcuy6YLRh4E5VlAss2pCpNtsyV7x6gCFD6C4YFb
|
||||
kpcdKEVsLs4OR0sO6ErH
|
||||
-----END DSA PRIVATE KEY-----
|
||||
12
archive/archives/analyse_komaz/keys/synchro_virus
Normal file
12
archive/archives/analyse_komaz/keys/synchro_virus
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
-----BEGIN DSA PRIVATE KEY-----
|
||||
MIIBvAIBAAKBgQCpQTAp6QoAFb2S3T2K7MKUlhyON8ffPj8urJH7AuiJ3QhzqCi2
|
||||
VTb0YnM7xwZqPfpikVFNk7JX9T52IpHiOzqol/f/O7Gfjb53IqXmVr4fSBCOGsXG
|
||||
zvJ2cXSuxk5uOewWreMChDYA9FWpjcA5BShHYPEKR332Y7vmyeJb482WbQIVAPsA
|
||||
VphrX509AFqNbqTo6VdGQ8SxAoGAY87lkq9vVLDId6zy0+JlM8cPCa2ZqQJVnUWo
|
||||
Wu5laBAoacrkJEAzKGY2zFVKNkiUh+biqQtBFc3a+2DW1zW1fCqUuVhWZcQafRB7
|
||||
QiZqYdIQm87lC+UIzQyTRD6Qt2v0WWDYdLgFaekoxAV0NeXQXd9dLRAGFzbwhIFS
|
||||
7djTZq0CgYEAqAbx6tBT01OZg8w8gq+FCRh2gQYL/XbdDtBAlNHZD75b9BL1ZZwj
|
||||
NWQccVddsRZ59CxX8BigynGDAW3n/vYEg8oFPtuXtpcg+X4cUe496GttIamLDMkf
|
||||
nNSQ4O5asJw9yJBElx+DpHsmHmCOKWw+MEDAdmAoomspNQGFiwn0KUgCFQC6XHx7
|
||||
k5LurZXoG6YS67wXne9qzA==
|
||||
-----END DSA PRIVATE KEY-----
|
||||
572
archive/archives/analyse_komaz/nacct.py
Executable file
572
archive/archives/analyse_komaz/nacct.py
Executable file
|
|
@ -0,0 +1,572 @@
|
|||
#! /usr/bin/env python
|
||||
# -*- encoding: iso-8859-15 -*-
|
||||
|
||||
## (C) Samuel Krempp 2001
|
||||
## krempp@crans.ens-cachan.fr
|
||||
## Permission to copy, use, modify, sell and
|
||||
## distribute this software is granted provided this copyright notice appears
|
||||
## in all copies. This software is provided "as is" without express or implied
|
||||
## warranty, and with no claim as to its suitability for any purpose.
|
||||
|
||||
import os,sys,string,re,getopt,time
|
||||
import cPickle # load/dump python objects
|
||||
import socket
|
||||
|
||||
""" nacct.py : parse the logs+dump of net-acct, then print a summary of the last 24h
|
||||
|
||||
Usage : nacct.py [-N 20 ] : display the top-20
|
||||
[-c 1] : sort by the first column.
|
||||
[-n] : display numeric IP (instead of resolved hostnames)
|
||||
[-p nacct.pickle ] : where to put the persistence file
|
||||
[-f net-acct.log] [-f net.acct.log.0] [-u net-acct.dump]
|
||||
[-T <duree> = 24 ] : analyse data of the last <duree> hours
|
||||
[-T <duree2>= 2 ] : store data of the last <duree2> days.
|
||||
[-h host] : prints details for given host, from the *persistent* file only.
|
||||
[-t <date>=current time] : choose current time
|
||||
e.g. : nacct.py -h toto.crans.org -t '2002 12 31 23:59' -T 48
|
||||
will print details for toto on the 48 hours before given time.
|
||||
"""
|
||||
|
||||
|
||||
|
||||
def isExempt(exempts, src_ip, dst_ip) :
|
||||
is_exempt=0
|
||||
for r in exempts['dst'] :
|
||||
if r.search(dst_ip) :
|
||||
is_exempt = 1
|
||||
break
|
||||
if is_exempt ==0 :
|
||||
if exempts['src_dst'].has_key(src_ip) :
|
||||
tmp=exempts['src_dst'][src_ip]
|
||||
for r in tmp :
|
||||
if r.search(dst_ip) :
|
||||
is_exempt=1
|
||||
break
|
||||
return is_exempt
|
||||
|
||||
|
||||
def parseInputUntil ( f, prevline, conns_DB, exempts, end_time) :
|
||||
""" reads lines of the file f _until_ the timestamp is >= end_time
|
||||
data structure :
|
||||
. exempts [ src ] [ dst ] : if exists, count this traffic separately ('exempted' bytes)
|
||||
. conns_DB [ IP ] = [ PURE_upload_bytes, upload_bytes, download_bytes # normal bytes
|
||||
, gPUL, gUL, gDL ] # 'exempted' bytes
|
||||
(i.e. there are 6 counters, 3 for normal bytes, 3 for exempted bytes)
|
||||
|
||||
optionnally, prev_line is a line to be parsed before processing the file
|
||||
(used because we read next line's timestamps)
|
||||
Returns : (nextline, last_time, got_nothing)
|
||||
. nextLine : similar to prevLine
|
||||
. last_time : a timestamp such that : . all read timeStamps are <= last_time
|
||||
. all unread timeStamps are > last_time
|
||||
in practice, last_time is either the greatest read timeStamp, or (nextline's timestamp) - 1
|
||||
. got_nothing : true iff the file was completely empty.
|
||||
"""
|
||||
got_nothing = 1
|
||||
nextline = "" # in case a line needs to be parsed at next call..
|
||||
last_time = 0
|
||||
|
||||
t=0
|
||||
src_ip=""
|
||||
dst_ip=""
|
||||
size=0
|
||||
|
||||
# local variable aliases (optimising lookup..)
|
||||
lsplit = string.split; llong=long;
|
||||
lregLAN=regLAN
|
||||
end_time=repr(end_time)
|
||||
|
||||
(prev_stime, prev_proto, prev_src_ip, prev_src_port, prev_dst_ip, prev_dst_port, prev_size, pd)\
|
||||
= ["" ] * 8
|
||||
prev_is_symmetric = 1
|
||||
prev_m_src = 0
|
||||
|
||||
lineN=0
|
||||
while(1) :
|
||||
if not prevline :
|
||||
line = f.readline()
|
||||
lineN += 1
|
||||
else :
|
||||
line = prevline
|
||||
prevline=""
|
||||
|
||||
if not line : break
|
||||
got_nothing = 0
|
||||
|
||||
(stime, proto, src_ip, src_port, dst_ip, dst_port, size, pd) = lsplit(line, '\t', 7)
|
||||
|
||||
if stime >= end_time :
|
||||
nextline=line
|
||||
# if a whole slice is absent in logs, we need to set last_time here :
|
||||
if last_time =="" : last_time = int(stime) - 1
|
||||
break
|
||||
else :
|
||||
last_time = stime
|
||||
|
||||
if 1 : # now really PARSE the line :
|
||||
try:
|
||||
size=llong(size)
|
||||
except ValueError:
|
||||
raise ValueError("INCORRECT size \"%s\" at line %d : %s " % (size, lineN, line) )
|
||||
|
||||
# Upload :
|
||||
is_exempt=0
|
||||
if isExempt(exempts, src_ip, dst_ip) :
|
||||
is_exempt = 3
|
||||
|
||||
try:
|
||||
conns_DB[src_ip ][is_exempt +1] += size
|
||||
except KeyError:
|
||||
conns_DB[src_ip ] = [long(0)]*6
|
||||
conns_DB[src_ip ][is_exempt +1] = long(size)
|
||||
|
||||
# PURE Upload :
|
||||
is_symmetric = ( prev_src_ip == dst_ip and prev_src_port== dst_port and \
|
||||
prev_dst_ip == src_ip and prev_dst_port== src_port and \
|
||||
prev_stime == stime and prev_proto==proto )
|
||||
if is_symmetric :
|
||||
try :
|
||||
if prev_size > size :
|
||||
conns_DB[prev_src_ip ][ prev_is_exempt + 0] += prev_size
|
||||
else:
|
||||
conns_DB[src_ip ][ is_exempt +0] += size
|
||||
except KeyError:
|
||||
print "proto=%s %s, src_ip=%s %s" % (prev_proto, proto, prev_src_ip, src_ip)
|
||||
else :
|
||||
if prev_is_symmetric == 0 :
|
||||
# previous line has no symetrical transfer, assume PURE upload
|
||||
conns_DB[prev_src_ip ][ prev_is_exempt + 0] += prev_size
|
||||
# Download :
|
||||
#m=lregLAN.search(dst_ip)
|
||||
if 1:
|
||||
dst_is_exempt=0
|
||||
if isExempt(exempts, dst_ip, src_ip) :
|
||||
dst_is_exempt = 3
|
||||
try:
|
||||
conns_DB[dst_ip ][dst_is_exempt +2] += size
|
||||
except KeyError:
|
||||
conns_DB[dst_ip ] = [long(0)]*6
|
||||
conns_DB[dst_ip ][dst_is_exempt +2] = long(size)
|
||||
|
||||
(prev_stime, prev_proto, prev_src_ip, prev_src_port) = (stime, proto, src_ip, src_port)
|
||||
(prev_dst_ip, prev_dst_port, prev_size) = (dst_ip, dst_port, size)
|
||||
(prev_is_exempt, prev_is_symmetric) = (is_exempt, is_symmetric)
|
||||
|
||||
return (nextline, int(last_time), got_nothing)
|
||||
|
||||
def readSlices(inFile, db, exempts, slice0) :
|
||||
"""Loop on time slices, and parse the file step by step"""
|
||||
prevLine=""; last_time=0
|
||||
slice= slice0
|
||||
while 1 : # loop on time_slice
|
||||
end_time = (slice+1) * timeStep
|
||||
u=db[slice]
|
||||
(prevLine, lTime, got_nothing) = parseInputUntil(inFile, prevLine, db [slice], exempts, end_time)
|
||||
if got_nothing :
|
||||
break
|
||||
|
||||
if lTime != 0 : last_time = lTime
|
||||
|
||||
slice = max ( 1+slice, last_time / timeStep)
|
||||
|
||||
if not db.has_key(slice) :
|
||||
db[slice]={}
|
||||
|
||||
return (last_time)
|
||||
|
||||
def readFile(file_info, db, exempts ) :
|
||||
""" reads -completely, partially, or not at all- a list of rotated files.
|
||||
1/ find the file in the list that is the first that contains new data
|
||||
2/ seek the position where we stopped and read the file, and the newer ones.
|
||||
|
||||
file_info fields used here :
|
||||
['fnames'] : list of the rotated-files for one log, e.g. ['net-acct.log', 'net-acct.log.0']
|
||||
must be in anti-chronological order (else the script aborts)
|
||||
['prev_pos'] : offset-position pointig where we stopped reading at previous call
|
||||
(because of log-rotates, we have to guess for which file this offset is..)
|
||||
['last_time'] : timestamp of the last read entry of this log
|
||||
used to guess which file was opened previously, and which are new.
|
||||
|
||||
|
||||
"""
|
||||
if debug :
|
||||
print "VeryBeg: lasttime = %d" % file_info.get('last_time', 777)
|
||||
|
||||
file_info.setdefault('last_time',0)
|
||||
# 1.
|
||||
# Where did we stop, on the previous execution ?
|
||||
# in the list of files, find which need update => [0, end_of_new[ :
|
||||
times = [0]*len(file_info['fnames'])
|
||||
min_time=0
|
||||
i=-1
|
||||
for name in file_info['fnames'] :
|
||||
i += 1
|
||||
try :
|
||||
inFile=open(name,"rb")
|
||||
s = inFile.readline()
|
||||
inFile.close()
|
||||
except IOError :
|
||||
continue
|
||||
if not s :
|
||||
continue
|
||||
t = int( string.split(s, '\t')[0] )
|
||||
assert t > 1
|
||||
if min_time != 0 : assert t <= min_time
|
||||
min_time = t
|
||||
times[i] = t
|
||||
|
||||
end_of_new=0
|
||||
if file_info['last_time']==0 : # first time we read those files
|
||||
file_info['last_time'] = min_time-1
|
||||
end_of_new = len(times)
|
||||
else : # we have archives about those files, see which files are new/updated
|
||||
for t in times :
|
||||
end_of_new += 1
|
||||
if t <= file_info['last_time'] :
|
||||
break # the ones before are old ones. this is last updated one.
|
||||
|
||||
FileNames=file_info['fnames'][0:end_of_new]
|
||||
|
||||
if debug :
|
||||
print "first data at %s(%d), fileTimes= %s" % \
|
||||
(time.asctime(time.localtime(file_info['last_time'])),
|
||||
file_info['last_time'], times)
|
||||
print "We need to read/update %s" % (FileNames)
|
||||
|
||||
if file_info['last_time'] < min_time :
|
||||
file_info['prev_pos'] = 0
|
||||
if file_info.get('reset_if_new', 0) :
|
||||
# erase counters, they are no longer wanted.
|
||||
for k in db.keys() :
|
||||
del db[k]
|
||||
|
||||
slice0= file_info['last_time'] / timeStep
|
||||
|
||||
# 2.
|
||||
# everything's ready, loop on files, and parse them.
|
||||
FileNames.reverse() # start with the oldest
|
||||
times=times[0:end_of_new]
|
||||
Files_and_pos= zip( FileNames, [file_info['prev_pos']] + [0]*(end_of_new-1) )
|
||||
last_time=0; last_pos =0
|
||||
i=len(FileNames)
|
||||
for (fname, pos) in Files_and_pos :
|
||||
i -= 1
|
||||
if debug :
|
||||
print " read %s => Seek to pos %d" % (fname, pos )
|
||||
|
||||
try: inFile = open(fname, "rb")
|
||||
except IOError:
|
||||
continue
|
||||
inFile.seek(pos)
|
||||
|
||||
db.setdefault(slice0, {} )
|
||||
last_time = readSlices(inFile, db, exempts, slice0)
|
||||
if last_time != 0 : # we advanced in this file.
|
||||
slice0= last_time / timeStep
|
||||
elif i>= 1 : # guess an adequate slice0 to start with for next file :
|
||||
slice0= times[i-1]/timeStep
|
||||
last_pos = inFile.tell()
|
||||
assert last_pos >= pos
|
||||
inFile.close()
|
||||
|
||||
# 3.
|
||||
# Update file_info variables :
|
||||
if 1:
|
||||
if last_time != 0 :
|
||||
assert file_info.get('last_time', 0) <= last_time
|
||||
file_info['last_time'] = last_time
|
||||
if last_pos > 0 :
|
||||
file_info['prev_pos'] = last_pos
|
||||
|
||||
if debug and file_info.has_key('last_time') :
|
||||
print "VeryLast: lasttime = %d" % file_info['last_time']
|
||||
|
||||
|
||||
def loadPersist() :
|
||||
data = {}
|
||||
try:
|
||||
data = cPickle.load( open(pickleName, "rb") )
|
||||
except IOError:
|
||||
print "[can not load persistent data. Will need to read all the log-file.]"
|
||||
return data
|
||||
|
||||
def updateData() :
|
||||
""" structure of data :
|
||||
data['counts'] : the actual counters, split in separate databases :
|
||||
['dump'] : for bytes read in the dump
|
||||
['log'] : for bytes read in the log
|
||||
each is a 'conns_DB', that holds one database per timeslice :
|
||||
[<slice>] [IP] : 6-uple (see parseInputUntil)
|
||||
data['files']
|
||||
['ledump'] : is the file_info for the dump files.
|
||||
['lelog' ] : is the file_info for the regular log files
|
||||
each 'file_info' DB has following keys :
|
||||
'fnames', 'prev_pos', 'last_time' (see readFile)
|
||||
'dbName' (the corresponding key into data['counts'])
|
||||
'reset_if_new' (optionnal, designed for the dump file)
|
||||
"""
|
||||
data = loadPersist()
|
||||
|
||||
try:
|
||||
exempts = cPickle.load( open(pickleExemptsName, "rb") )
|
||||
except IOError:
|
||||
print "[can not load exmpts data. assuming no exempt]"
|
||||
exempts = { 'dst' : [], 'src_dst' : {} }
|
||||
|
||||
# initialise each database if needed :
|
||||
for k in ['files', 'counts' ]:
|
||||
data.setdefault(k, {} )
|
||||
Files=data['files']
|
||||
Files.setdefault('ledump', { 'dbName':'dump', 'fnames': dumpFNames, 'reset_if_new':1 })
|
||||
Files.setdefault('lelog', {'dbName':'log', 'fnames': logFNames } )
|
||||
|
||||
# overwrite the filenames stored in pickle with those from the command-line.
|
||||
Files['ledump'] ['fnames'] = dumpFNames
|
||||
Files['lelog'] ['fnames'] = logFNames
|
||||
|
||||
|
||||
for k in Files.keys():
|
||||
data['counts'].setdefault(Files[k]['dbName'], {} )
|
||||
|
||||
for key in data['files'].keys() :
|
||||
file_info = data['files'][key]
|
||||
if debug:
|
||||
print "file_info : %s " % file_info
|
||||
print "Parsing %s into data['counts'][ %s ]" % ( file_info['fnames'], file_info['dbName'])
|
||||
readFile( file_info, data['counts'] [file_info['dbName'] ], exempts )
|
||||
|
||||
return data
|
||||
|
||||
|
||||
def printCounters(counts, mkHeaders=0) :
|
||||
unit = 1e3
|
||||
if megas : unit = 1e6
|
||||
if mkHeaders :
|
||||
return "%9s|%9s|%9s | %10s|%9s|%9s" % ('Pure UL ', 'Upload ', 'Download',
|
||||
'Exempt PUL', 'Exempt U', 'Exempt D' )
|
||||
|
||||
s="%9.3f|%9.3f|%9.3f | %9.3f|%9.3f|%9.3f" % (counts[0]/(unit), counts[1]/(unit), counts[2]/(unit),
|
||||
counts[3]/unit, counts[4]/unit, counts[5]/unit)
|
||||
return s
|
||||
|
||||
|
||||
def bilan(DB, dbNames, duree, cur_time, disp_all = 0) :
|
||||
slice0=int( (cur_time-duree) / timeStep )
|
||||
by_host={}
|
||||
Nslices = {}
|
||||
for db_key in dbNames :
|
||||
Nslices[db_key] = 0
|
||||
for slice in DB[db_key].keys() :
|
||||
if slice >= slice0 :
|
||||
Nslices[db_key] += 1
|
||||
for host in DB[db_key][slice].keys() :
|
||||
if disp_all or regLAN.search(host):
|
||||
counts=DB[db_key][slice][host]
|
||||
cur = by_host.setdefault(host, [long(0)] *len(counts) + [host] )
|
||||
for i in range(len(counts)):
|
||||
cur[i] += counts[i]
|
||||
liste=by_host.values()
|
||||
liste.sort( lambda x, y: -cmp(x[sort_column], y[sort_column] )) # tri décroissant sur le N° champ
|
||||
print " %5.1f h stats since %s. %d hour-slices found " % (duree/3600.0,
|
||||
time.asctime(time.localtime(slice0*timeStep)),
|
||||
max(Nslices.values()) )
|
||||
print printCounters(0, 1) + " | HOST"
|
||||
print "="*77
|
||||
for l in liste[0:top10_length] :
|
||||
# Test si le DNS de la machine existe (donc si la machine est inscrite au crans)
|
||||
try:
|
||||
host = socket.gethostbyaddr( l[-1] ) [0]
|
||||
bad = 0
|
||||
except socket.error :
|
||||
host = l[-1]
|
||||
bad = 1
|
||||
|
||||
if not resolve_names :
|
||||
# On veut l'IP
|
||||
host = l[-1]
|
||||
|
||||
if bad :
|
||||
host = "NoDNS_" + host
|
||||
|
||||
print printCounters(l)+ (" |%s" % host)
|
||||
|
||||
|
||||
def detail_bilan(DB, hostName, IP, duree, cur_time) :
|
||||
slice0 = int( (cur_time-duree) / timeStep )
|
||||
slice1 = slice0 + int( duree/timeStep)
|
||||
slicePrints={}
|
||||
Nslices = {}
|
||||
db_key = 'log'
|
||||
|
||||
Nslices[db_key] = 0
|
||||
for slice in range(slice0, slice1+1) :
|
||||
pref = time.strftime("%Hh%M", time.localtime(slice*timeStep) )
|
||||
str = " (No record of this time-slice at all)"
|
||||
if slice in DB[db_key].keys() :
|
||||
str = " (No activity for this host in this time-slice)"
|
||||
Nslices[db_key] += 1
|
||||
if IP in DB[db_key][slice].keys() :
|
||||
str = printCounters( DB[db_key][slice][IP])
|
||||
|
||||
slicePrints[slice] = "%s|%s" %(pref,str)
|
||||
|
||||
print "Comptes par tranches de %ds pour la machine %s" % (timeStep, hostName)
|
||||
print "début : %s" % (time.asctime(time.localtime( slice0 * timeStep) ) )
|
||||
print ("%5s|" % 'time') + printCounters(0,1)
|
||||
print "="*77
|
||||
for slice in range(slice0, slice1+1) :
|
||||
l=slicePrints[slice]
|
||||
print l
|
||||
print "Fin : %s" % (time.asctime(time.localtime( -1 + (slice1+1) * timeStep) ) )
|
||||
|
||||
|
||||
def main(cur_time) :
|
||||
data=updateData()
|
||||
bilan(data['counts'], ['log', 'dump'], duree, cur_time, disp_all)
|
||||
|
||||
# make persistent data as small as possible :
|
||||
del data['counts'][ data['files']['ledump']['dbName'] ]
|
||||
del data['files']['ledump']
|
||||
cur_t = time.time()
|
||||
del_slices=[]
|
||||
# -> get rid of old slices
|
||||
for slice in data['counts']['log'].keys() :
|
||||
if slice < (cur_t-sduree)/timeStep :
|
||||
del_slices.append(slice)
|
||||
for slice in del_slices :
|
||||
del data['counts']['log'][slice]
|
||||
|
||||
# get rid of useless extern hosts :
|
||||
|
||||
for slice in data['counts']['log'].keys() :
|
||||
d=data['counts']['log'][slice]
|
||||
del_hosts=[]
|
||||
for host in d.keys() :
|
||||
m= store_all or regLAN.search(host)
|
||||
# keep extern hosts that were used as big upload targets : download >= 1 Mo
|
||||
if not m and d[host][2]< 1e6 :
|
||||
del_hosts.append( host)
|
||||
for host in del_hosts :
|
||||
del d[host]
|
||||
|
||||
cPickle.dump(data, open(pickleName,"wb") )
|
||||
|
||||
|
||||
#################
|
||||
# global vars :
|
||||
#
|
||||
|
||||
timeStep=3600 # 1h slices
|
||||
#################
|
||||
|
||||
|
||||
|
||||
optlist, args = getopt.getopt(sys.argv[1:], "dkDsnc:p:f:h::u:L:N:T:t:")
|
||||
|
||||
lock_name = "/var/lock/nacct.py" # Fichier de lock
|
||||
store_all = 0 # if false, store only hosts matching regLAN
|
||||
disp_all = 0 # if false, display only .. ..
|
||||
sduree = 48*3600 # delete slices when they are that much old
|
||||
duree = 0 # display the stats over this period
|
||||
top10_length = 30
|
||||
sort_column= 0 # 0 : sort by PURE, 1 : by upload, 2: by download.. up to 6 (cf parseInputUntil)
|
||||
resolve_names = 1 # resolve hostnames
|
||||
logFNames= []
|
||||
dumpFNames=[]
|
||||
debug=0
|
||||
megas=1
|
||||
detail_host=""
|
||||
cur_time=time.time()
|
||||
network=""
|
||||
pickleName=""
|
||||
pickleExemptsName = ""
|
||||
|
||||
if os.path.isfile(lock_name) :
|
||||
# Ya le lock
|
||||
print "Lock existant (%s)" % lock_name
|
||||
fd = open(lock_name, "r")
|
||||
msg=fd.readlines()
|
||||
fd.close()
|
||||
pid=string.split(msg[0],'\n')[0]
|
||||
msg=string.strip(string.join(msg[1:], '') )
|
||||
q = os.system("ps -o pid,tty,user,etime,command " +pid)
|
||||
if q==256:
|
||||
print "PID lock no trouvé => delock"
|
||||
try :
|
||||
os.remove(lock_name)
|
||||
except :
|
||||
None
|
||||
else :
|
||||
print "Script lockant en activité, sortie"
|
||||
sys.exit(255)
|
||||
|
||||
#Locking
|
||||
lock_fd=open(lock_name, "w")
|
||||
lock_comment = "%s" % os.getpid()
|
||||
lock_fd.write(lock_comment)
|
||||
lock_fd.close()
|
||||
|
||||
for [key, val] in optlist :
|
||||
if key == '-f' :
|
||||
logFNames.append(val)
|
||||
if key == '-u' :
|
||||
dumpFNames.append(val)
|
||||
if key == '-d' :
|
||||
debug = 1
|
||||
if key == '-D' :
|
||||
disp_all = 1
|
||||
if key == '-L' :
|
||||
network = val
|
||||
if key == '-h' :
|
||||
detail_host = val
|
||||
if key == '-t' :
|
||||
cur_time = int( time.mktime(time.strptime(val,"%Y %m %d %H:%M")) )
|
||||
if key == '-N' :
|
||||
top10_length = int(val)
|
||||
if key == '-k' :
|
||||
megas = 0 # use kilos instead of Megs
|
||||
if key == '-p' :
|
||||
pickleName=val
|
||||
if key == '-s' :
|
||||
store_all = 1
|
||||
if key == '-n' :
|
||||
resolve_names = 0
|
||||
if key == '-T' :
|
||||
if duree == 0 :
|
||||
duree = int( float(val) * 3600 )
|
||||
else:
|
||||
sduree = int( float(val) * 3600 * 24 )
|
||||
if key == '-c' :
|
||||
sort_column = int(val) -1
|
||||
|
||||
if duree == 0:
|
||||
duree = 24*3600
|
||||
if not logFNames :
|
||||
logFNames = ["/var/log/net-acct/net-acct.log", "/var/log/net-acct/net-acct.log.0" ]
|
||||
if not dumpFNames :
|
||||
dumpFNames = ["/var/log/net-acct/dump" ]
|
||||
if not network :
|
||||
network = "^138\.231\.1((3[6-9]|4[0-9]|50|51).*)$"
|
||||
regLAN=re.compile(network)
|
||||
if not pickleName :
|
||||
pickleName="/tmp/nacct.pickle"
|
||||
|
||||
if not pickleExemptsName :
|
||||
pickleExemptsName="/tmp/exempts.pickle"
|
||||
|
||||
|
||||
|
||||
# launch :
|
||||
if detail_host :
|
||||
data=loadPersist()
|
||||
IP = socket.gethostbyname( detail_host)
|
||||
detail_bilan(data['counts'], detail_host, IP, duree, cur_time)
|
||||
else :
|
||||
data = main(cur_time)
|
||||
|
||||
# Supression du lock
|
||||
try :
|
||||
os.remove(lock_name)
|
||||
except :
|
||||
None
|
||||
|
||||
29
archive/archives/analyse_komaz/rpc_scan.awk
Executable file
29
archive/archives/analyse_komaz/rpc_scan.awk
Executable file
|
|
@ -0,0 +1,29 @@
|
|||
#!/usr/bin/awk -f
|
||||
#Lecture des logs du firewall pour retourner la liste des machines attaquant
|
||||
#sur le port 135 ou 6667
|
||||
#
|
||||
#Arguments :
|
||||
#<fichier(s) à scanner> <autre fichier donc le nom contient blacklist>
|
||||
# Le second fichier contient les IP des machines supplémentaires à sortir.
|
||||
#
|
||||
# Format de sortie : Mois jour hh:mm:ss hostname nb_attques
|
||||
#
|
||||
# 02/2003 Frédéric Pauget
|
||||
|
||||
{ if (FILENAME~"blacklist") {
|
||||
if ($0=="") nextfile;
|
||||
tentatives[$0]=0;
|
||||
dern_tentative[$0]="Vieux 00 00:00:00"; }
|
||||
}
|
||||
|
||||
/.*Virus:IN=eth0.*/{
|
||||
gsub("SRC=","",$9);
|
||||
tentatives[$9]++;
|
||||
dern_tentative[$9]=$1" "$2" "$3;
|
||||
}
|
||||
|
||||
END{
|
||||
for (machine in tentatives){
|
||||
system("echo "dern_tentative[machine]" $(host "machine" 2>/dev/null | awk '/^Name/ {print $2}') "tentatives[machine])
|
||||
}
|
||||
}
|
||||
240
archive/archives/analyse_komaz/virus_scan.sh
Executable file
240
archive/archives/analyse_komaz/virus_scan.sh
Executable file
|
|
@ -0,0 +1,240 @@
|
|||
#!/bin/sh
|
||||
#############################################################################
|
||||
## Script de déconexion/reconnexion automatique pour virus de type blaster ##
|
||||
## ##
|
||||
## Principe : ##
|
||||
## -> détection des attaques grâce aux logs du firewall ##
|
||||
## lecture par *_scan.awk ##
|
||||
## -> à partir du nombre d'attaques et de l'heure de dernière attaque ##
|
||||
## déconnecte ou reconnecte des machines ##
|
||||
## ##
|
||||
## Frédéric Pauget 02/2003 ##
|
||||
## 07/2004 adaptation pour scan de plusieurs types d'attaques ##
|
||||
#############################################################################
|
||||
|
||||
is_up() {
|
||||
# Supression de la machine dans la table arp
|
||||
/usr/sbin/arp -d $1 2> /dev/null
|
||||
|
||||
# Teste si la machine founie est up
|
||||
if fping -c1 $1 > /dev/null 2>&1 ; then
|
||||
# Elle a répondu au ping
|
||||
return 0
|
||||
fi
|
||||
if /usr/sbin/arp $1 2>/dev/null | egrep -q '(no entry|incomplete)' ; then
|
||||
# Elle n'est pas dans la table ARP
|
||||
return 1
|
||||
else
|
||||
# Elle est dans la table ARP
|
||||
return 0
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
if [[ $1 ]] && [[ $1 = "--real-run" ]]; then
|
||||
dry=false
|
||||
else
|
||||
dry=true
|
||||
fi
|
||||
|
||||
BLACKLIST_FINAL='/tmp/virus_blacklist'
|
||||
|
||||
# Logs du firewall
|
||||
FW_LOGS=/var/log/firewall/filtre.log
|
||||
|
||||
# Prétraitement logs
|
||||
tail -7200 $FW_LOGS > /tmp/fw_logs_light
|
||||
|
||||
# Fonction utile : retourne l'IP d'une machine
|
||||
ip() {
|
||||
echo $(host $1 2>/dev/null | awk '{print $3}')
|
||||
}
|
||||
|
||||
# Fonction principale
|
||||
scan() {
|
||||
# signification des arguments :
|
||||
# 1 : nombre d'attaques pour être considéré infecté
|
||||
# 2 : nombre de secondes sans attaques pour être considéré sain
|
||||
# 3 : script de scan
|
||||
# 4 : repertoire de stockage fichiers
|
||||
nb_att=$1
|
||||
nb_sec=$2
|
||||
SCRIPT=$3
|
||||
|
||||
# Liste des attaques
|
||||
INFECTES=$4/infectes
|
||||
# Machines décontaminées
|
||||
RECO=$4/reconectes
|
||||
|
||||
# Machines blacklistées
|
||||
BLACKLIST=$4/blacklist
|
||||
|
||||
# Fichiers temporaires supplémentaires
|
||||
DIFF=/tmp/virus_diff
|
||||
TMPFILE=/tmp/virus_scan
|
||||
|
||||
# Doit exister, même vides
|
||||
touch $RECO
|
||||
touch $BLACKLIST
|
||||
|
||||
if ! [[ -e $INFECTES ]]; then
|
||||
dry=true
|
||||
echo "dry-run mode forcé (fichier absent)"
|
||||
touch $INFECTES
|
||||
fi
|
||||
|
||||
# Test préliminaire
|
||||
if [[ ! -e $SCRIPT ]] ; then
|
||||
echo "Erreur : $SCRIPT non trouvé"
|
||||
exit 255
|
||||
fi
|
||||
|
||||
# Conversion blacklist hostname -> IPs
|
||||
if [[ "$(head -1 $BLACKLIST)" == "komaz" ]]; then
|
||||
echo "Ancienne blackliste vide"
|
||||
touch $BLACKLIST.ip
|
||||
else
|
||||
echo "Conversion blackliste..."
|
||||
for i in $(cat $BLACKLIST | sort | uniq)
|
||||
do
|
||||
ip $i
|
||||
done > $BLACKLIST.ip
|
||||
fi
|
||||
|
||||
echo "Détection des infectés..."
|
||||
$SCRIPT $BLACKLIST.ip /tmp/fw_logs_light > $TMPFILE
|
||||
# sort un fichier du type :
|
||||
# Mois Jour Heure hostname nb d'attaques depuis les dernier logrotate
|
||||
|
||||
echo "Traitement..."
|
||||
mv $INFECTES $INFECTES.old
|
||||
sort -r $TMPFILE > $INFECTES
|
||||
echo -n "" > $TMPFILE
|
||||
|
||||
# Différencee entre le fichier obtenu la au dernier lancement et le nouveau
|
||||
diff -U 1000 $INFECTES.old $INFECTES | egrep -v '\-\-\-|\+\+\+|@@' > $DIFF
|
||||
|
||||
if ! [[ -s $DIFF ]]; then
|
||||
echo "Aucun changement par rapport au dernier scan."
|
||||
cp $INFECTES $DIFF
|
||||
fi
|
||||
|
||||
# Traitement par host
|
||||
for host in $(awk '{print $4}' $DIFF | sort | uniq)
|
||||
do
|
||||
if grep -q "\+.* $host " $DIFF && grep -q "\-.* $host " $DIFF ; then
|
||||
# En + et - : variation
|
||||
nb=$(echo $(awk '$4=="'$host'" {print $5}' $INFECTES) - $(awk '$4=="'$host'" {print $5}' $INFECTES.old) | bc)
|
||||
echo -ne "Variation ($nb) "
|
||||
if grep -q "^$host$" $BLACKLIST ; then
|
||||
# Déja blacklisté, on remet
|
||||
echo -ne "\033[1;31m(RESTE) "
|
||||
echo $host >> $TMPFILE
|
||||
elif [[ $nb -gt $nb_att ]] ; then
|
||||
# Nouveau
|
||||
echo -ne "\033[1;31m(NOUVEAU) "
|
||||
echo $host >> $TMPFILE
|
||||
else
|
||||
# Pas assez de tentatives
|
||||
echo -n "(PASSE) "
|
||||
fi
|
||||
|
||||
|
||||
elif grep -q "\+.* $host " $DIFF ; then
|
||||
# Que en + donc c'est un nouveau
|
||||
nb=$(awk '$4=="'$host'" {print $5}' $INFECTES)
|
||||
if [[ $nb -gt $nb_att ]] ; then
|
||||
echo -ne "\033[1;31mNOUVEAU ($nb) "
|
||||
echo $host >> $TMPFILE
|
||||
else
|
||||
echo -ne "PASSE ($nb) "
|
||||
fi
|
||||
|
||||
elif grep -q "\-.* $host " $DIFF ; then
|
||||
# Que en -, c'est un coup de logrotate, on remet les blacklistés.
|
||||
if grep -q "^$host$" $BLACKLIST ; then
|
||||
echo "RESTE : $host"
|
||||
echo $host >> $TMPFILE
|
||||
else
|
||||
echo "Vieux : $host"
|
||||
fi
|
||||
|
||||
else
|
||||
# Pas de variation
|
||||
if grep -q "^$host$" $BLACKLIST ; then
|
||||
echo -n "Pas de variation "
|
||||
# UP or not ?
|
||||
if is_up $host ; then
|
||||
# UP
|
||||
last=$(date -d "$(awk '$4=="'$host'" {print $1" "$2" "$3}' $INFECTES)" +%s 2>/dev/null)
|
||||
# Cas ou c'est vraiment trop vieux
|
||||
if [[ -z $last ]] ; then
|
||||
last=0
|
||||
fi
|
||||
now=$(date +%s)
|
||||
t=$(echo "$now-$last" | bc)
|
||||
if [[ $t -gt $nb_sec ]] ; then
|
||||
# Reconexions automatique
|
||||
echo -n " reconnexion"
|
||||
echo $host >> $RECO
|
||||
else
|
||||
echo $host >> $TMPFILE
|
||||
fi
|
||||
|
||||
else
|
||||
# Down
|
||||
echo -ne "\033[1;41m(NO_PING)"
|
||||
echo $host >> $TMPFILE
|
||||
fi
|
||||
|
||||
echo -ne "\033[0m : "
|
||||
else
|
||||
echo -n "Reste connecté "
|
||||
fi
|
||||
fi
|
||||
echo -ne "\033[0m"
|
||||
awk '$4=="'$host'" {print $1" "$2" "$3" "$4}' $INFECTES
|
||||
done
|
||||
|
||||
# Opérations finales
|
||||
sort $TMPFILE > $BLACKLIST
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
|
||||
# Scan des attaques sur le 135 :
|
||||
# 10 tentatives pour être considéré infecté
|
||||
# 1h sans attaque pour être considéré désinfecté
|
||||
echo -e "\033[1;33m###############################\nScan attaques port 135 ou 6667\033[1;0m"
|
||||
scan 10 3600 /usr/scripts/analyse_komaz/rpc_scan.awk /var/tmp/rpc
|
||||
|
||||
# Scan des floods :
|
||||
# 100 tentatives pour être considéré infecté
|
||||
# 1h sans attaque pour être considéré désinfecté
|
||||
echo -e "\033[1;33m###############################\nScan floods\033[1;0m"
|
||||
scan 100 3600 /usr/scripts/analyse_komaz/flood_scan.awk /var/tmp/flood
|
||||
|
||||
# Constitution de la blackliste finale
|
||||
cat /var/tmp/rpc/blacklist /var/tmp/flood/blacklist | sort | uniq > $BLACKLIST_FINAL.new
|
||||
|
||||
if ! [[ -s $BLACKLIST_FINAL.new ]]; then
|
||||
# Il n'y a personne, il faut au moins une machine sinon squid aime pas.
|
||||
echo 'komaz' > $BLACKLIST_FINAL.new
|
||||
fi
|
||||
|
||||
if ! $dry ; then
|
||||
if diff -q $BLACKLIST_FINAL $BLACKLIST_FINAL.new ; then
|
||||
echo "Pas de changement dans la blackliste"
|
||||
else
|
||||
# Synchro blacklist
|
||||
/usr/bin/rsync -C -a -e "ssh -i /usr/scripts/analyse_komaz/keys/synchro_virus" $BLACKLIST_FINAL.new root@sila.crans.org:/etc/squid/blacklist_infectes
|
||||
# Reload de squid
|
||||
/usr/bin/ssh -o StrictHostKeyChecking=no -i /usr/scripts/analyse_komaz/keys/reload_squid root@sila.crans.org squid reload
|
||||
fi
|
||||
else
|
||||
echo "Dry mode : blackliste non copiée sur sila et squid non relancé"
|
||||
echo "Utiliser l'option --real-run pour tout faire."
|
||||
fi
|
||||
|
||||
# On ne garde que la dernière version de la blacklist
|
||||
mv $BLACKLIST_FINAL.new $BLACKLIST_FINAL
|
||||
93
archive/archives/arpanoid
Executable file
93
archive/archives/arpanoid
Executable file
|
|
@ -0,0 +1,93 @@
|
|||
#!/usr/bin/python
|
||||
# Dis, emacs, c'est du -*- python -*-, ça !
|
||||
#
|
||||
# C.Chépélov, 19 janvier 1999. Suite à discussion avec Olivier DALOY, et
|
||||
# des trucs louches dans ses logs. Merci, merci ARP !!
|
||||
|
||||
import config
|
||||
import pickle,string,os
|
||||
|
||||
# Phase 1 : lire les données théoriques, les retrier pour être exploitables.
|
||||
|
||||
ZONEDB = pickle.load(open(config.CFG_FILE_ROOT+"Zone.db","r"))
|
||||
|
||||
THicn_by_mac = {} # ip, comment, name by MAC (théorique)
|
||||
THncm_by_ip = {} # name, comment, MAC by IP (théorique)
|
||||
|
||||
for name in ZONEDB.keys():
|
||||
(IP,comment,MAC) = ZONEDB[name]
|
||||
THicn_by_mac[MAC] = (IP,comment,name)
|
||||
THncm_by_ip[IP] = (name,comment,MAC)
|
||||
|
||||
# Phase 2 : Lire les données réelles, les mettres dans des dicos pour être
|
||||
# exploitables.
|
||||
|
||||
arp = os.popen("arp -n","r")
|
||||
arp.readline()
|
||||
|
||||
ip_by_mac = {}
|
||||
mac_by_ip = {}
|
||||
while 1:
|
||||
s = arp.readline()
|
||||
if not s: break
|
||||
sl = string.split(s)
|
||||
try:
|
||||
ip = sl[0]
|
||||
|
||||
mac = ""
|
||||
if (sl[1] != "ether") or (sl[2] == "(incomplete)"): raise "incomplete"
|
||||
for c in string.lower(sl[2]):
|
||||
if c in "0123456789abcdef":
|
||||
mac = mac + c
|
||||
if not ip or not mac: break
|
||||
ip_by_mac[mac] = ip
|
||||
mac_by_ip[ip] = mac
|
||||
|
||||
except:
|
||||
pass
|
||||
|
||||
# Phase 3 : en fonction des gens qu'on a vus, faire une comparaison...
|
||||
# d'abord, par IP vues :
|
||||
|
||||
try:
|
||||
problems = open("/var/log/arpanoid","r").readlines()
|
||||
except:
|
||||
problems = []
|
||||
# la liste des problèmes. Sera triée par ordre alphabétique
|
||||
# et les problèmes rendus uniques.
|
||||
# note: on récupère les vieux problèmes, on génèrera le même message
|
||||
# plusieurs fois (pas grave, on virera les messages identiques)
|
||||
|
||||
def log(s):
|
||||
s = s + '\n'
|
||||
if not s in problems: problems.append(s)
|
||||
|
||||
for ip,mac in mac_by_ip.items():
|
||||
|
||||
if THicn_by_mac.has_key(mac):
|
||||
thIP,comment,name = THicn_by_mac[mac]
|
||||
if thIP == ip: pass # print name,' est clair (IP by MAC)'
|
||||
else:
|
||||
if THncm_by_ip.has_key(ip): victim,t1,t2 = THncm_by_ip[ip]
|
||||
else: victim = "(inconnu)"
|
||||
log("%s (%s) usurpe une adresse IP !!! (normal=%s,actuel=%s[%s])" % (name,comment,thIP,ip,victim))
|
||||
else:
|
||||
log("MACHINE INCONNUE (intruse ?) MAC=%s !" % mac)
|
||||
|
||||
if THncm_by_ip.has_key(ip):
|
||||
name,comment,thMAC = THncm_by_ip[ip]
|
||||
if thMAC == mac: pass # print name,' est clair (MAC by IP)'
|
||||
else:
|
||||
if THicn_by_mac.has_key(mac): t1,t2,name = THicn_by_mac[mac]
|
||||
else: victim = "(inconnu)"
|
||||
log("%s (%s) utilise une autre carte réseau !!! (normal=%s,actuel=%s[%s]" % (name,comment,thMAC,mac,victim))
|
||||
else:
|
||||
diag = "(intruse ?)"
|
||||
if THicn_by_mac.has_key(mac):
|
||||
THip,comment,name = THicn_by_mac[mac]
|
||||
diag = "%s de %s" % (name,comment)
|
||||
log("MACHINE AVEC FAUX IP=%s (%s)!" % (ip,diag))
|
||||
problems.sort()
|
||||
|
||||
print string.join(problems,"")
|
||||
|
||||
17
archive/archives/arpanoid-daily
Executable file
17
archive/archives/arpanoid-daily
Executable file
|
|
@ -0,0 +1,17 @@
|
|||
#!/bin/sh
|
||||
|
||||
subject="logs ARPanoid `date` "
|
||||
dest="root@crans.ens-cachan.fr"
|
||||
|
||||
cat <<Fini | cat - /var/log/arpanoid | mail -s "$subject" $dest
|
||||
|
||||
Résultats de la chasse "ARPanoid" de la journée :
|
||||
-------------------------------------------------
|
||||
|
||||
Fini
|
||||
|
||||
mv -f /var/log/arpanoid /var/log/arpanoid.bak
|
||||
touch /var/log/arpanoid
|
||||
chmod 640 /var/log/arpanoid
|
||||
chown root:admin /var/log/arpanoid
|
||||
/etc/CRANS/code/arpanoid > /var/log/arpanoid 2>/dev/null
|
||||
2
archive/archives/arpanoid-frequently
Executable file
2
archive/archives/arpanoid-frequently
Executable file
|
|
@ -0,0 +1,2 @@
|
|||
#!/bin/sh
|
||||
/etc/CRANS/code/arpanoid > /var/log/arpanoid 2>/dev/null
|
||||
21
archive/archives/auto-claque
Executable file
21
archive/archives/auto-claque
Executable file
|
|
@ -0,0 +1,21 @@
|
|||
#!/bin/sh
|
||||
# CC 2/2/1999 horrible kludge
|
||||
#
|
||||
#
|
||||
# Pour des raisons bizarres (bug driver SMC ? matériel ?), les interfaces
|
||||
# eth1 et eth2 bloquent régulièrement.
|
||||
# en général, un claquage suffit à les relancer. Par ailleurs, un claquage
|
||||
# ne bloque pas les communications -- on peut donc jouer à le faire
|
||||
# régulièrement.
|
||||
#
|
||||
|
||||
#a enlever les commentaires! 19.02
|
||||
# 20/01/2000 jerome reactive le script
|
||||
|
||||
echo "Claquage des interfaces" | /usr/bin/logger -t "AutoClaque" -p user.warn
|
||||
|
||||
ifconfig eth0 down; ifconfig eth0 up; route add default gw 138.231.136.2
|
||||
|
||||
ifconfig eth1 down; ifconfig eth1 up
|
||||
ifconfig eth2 down; ifconfig eth2 up 138.231.137.2 netmask 255.255.255.0 broadcast 138.231.137.255
|
||||
ifconfig eth3 down; ifconfig eth3 up
|
||||
186
archive/archives/beastie.c
Normal file
186
archive/archives/beastie.c
Normal file
|
|
@ -0,0 +1,186 @@
|
|||
/*
|
||||
* Un faux daemon.
|
||||
*
|
||||
* Copyright (c) 1999 Association CRANS.
|
||||
*
|
||||
* Auteur: Olivier Saut <Olivier.Saut@crans.ens-cachan.fr>
|
||||
*
|
||||
*
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/wait.h>
|
||||
#include <errno.h>
|
||||
#include <fcntl.h>
|
||||
#include <sys/socket.h>
|
||||
#include <netinet/in.h>
|
||||
#include <arpa/inet.h>
|
||||
#include <unistd.h>
|
||||
#include <signal.h>
|
||||
|
||||
#include <syslog.h>
|
||||
#include <varargs.h>
|
||||
#include <netdb.h>
|
||||
|
||||
#ifndef LINUX
|
||||
#include <libutil.h>
|
||||
#endif
|
||||
|
||||
|
||||
#define kZamok_Tourne 1
|
||||
#define kPORT 514 /* Port de rshd */
|
||||
#define kMaxDaemonChildren 10
|
||||
|
||||
int nbrFils;
|
||||
|
||||
|
||||
int daemon_init(void) {
|
||||
pid_t pid;
|
||||
|
||||
if((pid = fork())<0)
|
||||
return (-1);
|
||||
else if (pid !=0) {
|
||||
(void)fprintf(stdout,"beastie launched : %d\n",pid);
|
||||
exit(0);
|
||||
}
|
||||
setsid();
|
||||
chdir("/");
|
||||
umask(0);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/* Attention subtil (waitpid plutot que wait) :-) */
|
||||
void zombie(int signo) {
|
||||
pid_t pid;
|
||||
int stat;
|
||||
|
||||
while ((pid = waitpid(-1, &stat, WNOHANG)) > 0)
|
||||
nbrFils--;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
void sigterm(int signo) {
|
||||
syslog(LOG_NOTICE,"beastie killed by SIGTERM.");
|
||||
closelog();
|
||||
exit(EXIT_SUCCESS);
|
||||
}
|
||||
|
||||
|
||||
int main(int argc, char *argv[]){
|
||||
int serv_sock, client_sock, cli_len;
|
||||
struct sockaddr_in serv_addr, cli_addr;
|
||||
struct hostent *cli_ent;
|
||||
char *clientname,*message;
|
||||
int PORT;
|
||||
pid_t pid;
|
||||
sig_t previous_handler;
|
||||
char buffer[1024];
|
||||
|
||||
if(argc>1)
|
||||
PORT=atoi(argv[1]);
|
||||
else
|
||||
PORT=kPORT;
|
||||
|
||||
if(setuid(getuid())) {
|
||||
perror("Setuid.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
/* On se daemonize */
|
||||
if(daemon_init()) {
|
||||
perror("Initialize as daemon.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
/* Pour éviter les zombies (vade retro...) */
|
||||
previous_handler = signal(SIGCHLD,(sig_t)zombie);
|
||||
if(previous_handler==SIG_ERR) {
|
||||
perror("Installing SIGCHLD handler");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
/* Pour détecter le SIGTERM */
|
||||
previous_handler = signal(SIGTERM,(sig_t)sigterm);
|
||||
if(previous_handler==SIG_ERR) {
|
||||
perror("Installing SIGTERM handler");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
nbrFils=0;
|
||||
|
||||
#ifndef LINUX
|
||||
setproctitle("ecoute le port %d",PORT);
|
||||
#endif
|
||||
|
||||
openlog("beastie", LOG_PID|LOG_CONS,LOG_LOCAL2);
|
||||
|
||||
serv_sock = socket(AF_INET, SOCK_STREAM, 0);
|
||||
if (serv_sock < 0)
|
||||
{
|
||||
perror("Creating server socket.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
/* On remplit la structure */
|
||||
bzero((char *) &serv_addr, sizeof (serv_addr));
|
||||
serv_addr.sin_family = AF_INET;
|
||||
serv_addr.sin_addr.s_addr = htonl(INADDR_ANY);
|
||||
serv_addr.sin_port = htons(PORT);
|
||||
|
||||
/* Et on lie la socket au port */
|
||||
if (bind(serv_sock, (struct sockaddr *) &serv_addr, sizeof (serv_addr)) < 0)
|
||||
{
|
||||
perror("Binding server socket.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
listen(serv_sock,5);
|
||||
|
||||
while(kZamok_Tourne) {
|
||||
|
||||
cli_len = sizeof (cli_addr);
|
||||
bzero((char *) &cli_addr, sizeof (cli_addr));
|
||||
|
||||
client_sock = accept(serv_sock, (struct sockaddr *) &cli_addr, &cli_len);
|
||||
if (client_sock < 0)
|
||||
{
|
||||
perror("Accepting connection on server socket.");
|
||||
break;
|
||||
}
|
||||
|
||||
/* On forke, on traite la requete dans le fils */
|
||||
/* Evaluation paresseuse */
|
||||
if((nbrFils++ < kMaxDaemonChildren) && ((pid=fork())==0) ) {
|
||||
close(serv_sock);
|
||||
clientname=inet_ntoa(cli_addr.sin_addr); /* On recupere le nom */
|
||||
/* Hehe t'es loggue mon pote */
|
||||
if(strcmp(clientname, "127.0.0.1")) {
|
||||
if (!((cli_ent= gethostbyaddr((char *)&cli_addr.sin_addr.s_addr,
|
||||
sizeof (u_long), AF_INET)) == (struct hostent *)0)) {
|
||||
snprintf(buffer,1023, "Tentative de connexion de %s au port %d.",cli_ent->h_name,PORT);
|
||||
syslog(LOG_NOTICE,buffer );
|
||||
}
|
||||
else {
|
||||
snprintf(buffer,1023, "Tentative de connexion de %s au port %d.",clientname,PORT);
|
||||
syslog(LOG_NOTICE,buffer);
|
||||
}
|
||||
}
|
||||
close(client_sock);
|
||||
exit(0);
|
||||
}
|
||||
/* Fin du fork */
|
||||
|
||||
close(client_sock);
|
||||
|
||||
}
|
||||
|
||||
closelog();
|
||||
close(serv_sock);
|
||||
exit( 0);
|
||||
}
|
||||
52
archive/archives/cdecode
Executable file
52
archive/archives/cdecode
Executable file
|
|
@ -0,0 +1,52 @@
|
|||
#!/usr/bin/env python
|
||||
# Dis, emacs, c'est du -*- python -*-
|
||||
#
|
||||
"""
|
||||
Programme fait pour encoder les chambres suivant le cryptage standard
|
||||
pour le bâtiment G (le F peut aussi s'en servir). Inutile au B, il y a déjà un
|
||||
autre mapping (les prises réseau sont numérotées différemment des chambres)
|
||||
|
||||
Ceci ne résistera évidemment pas à une attaque cryptographique en règle.
|
||||
|
||||
L'algorithme étant réellement trivial, il est raisonnable de laisser ce
|
||||
script "chmod 700" et "chown root:root" !
|
||||
|
||||
C.Chepelov 5 novembre 1998 (présente implémentation), mise au point de
|
||||
l'algorithme et première implémentation en Reverse Polish Lisp (HP48) à
|
||||
l'automne 1997.
|
||||
|
||||
Note : l'implémentation de référence est "cencode". L'algo est symétriqe...
|
||||
"""
|
||||
|
||||
import sys
|
||||
|
||||
if len(sys.argv) != 2:
|
||||
print "usage : %s <numéro de code>" % sys.argv[0]
|
||||
print "exemple : %s 9378 --> 126 " % sys.argv[0]
|
||||
print
|
||||
sys.exit(1)
|
||||
|
||||
s_arg = sys.argv[1]
|
||||
try:
|
||||
arg = int(s_arg)
|
||||
if arg >= 10000: raise "pas bon."
|
||||
except:
|
||||
print "L'argument doit être un nombre inférieur à 10000 !"
|
||||
sys.exit(2)
|
||||
|
||||
# C'est pas du tout optimal, mais on s'en fout !
|
||||
c1 = int(arg / 100) % 10
|
||||
c2 = int(arg / 10) % 10
|
||||
c3 = arg % 10
|
||||
s = int(arg / 1000) % 10
|
||||
|
||||
f3 = t1 = (10 - c1 + s) % 10
|
||||
f2 = t2 = (10 - c2 + s) % 10
|
||||
f1 = t3 = (10 - c3 + s) % 10
|
||||
|
||||
res = f1 * 100 + f2 * 10 + f3
|
||||
print "Chambre = %d " % res
|
||||
|
||||
|
||||
|
||||
|
||||
53
archive/archives/cencode
Executable file
53
archive/archives/cencode
Executable file
|
|
@ -0,0 +1,53 @@
|
|||
#!/usr/bin/env python
|
||||
# Dis, emacs, c'est du -*- python -*-
|
||||
#
|
||||
"""
|
||||
Programme fait pour encoder les chambres suivant le cryptage standard
|
||||
pour le bâtiment G (le F peut aussi s'en servir). Inutile au B, il y a déjà un
|
||||
autre mapping (les prises réseau sont numérotées différemment des chambres)
|
||||
|
||||
Ceci ne résistera évidemment pas à une attaque cryptographique en règle.
|
||||
|
||||
L'algorithme étant réellement trivial, il est raisonnable de laisser ce
|
||||
script "chmod 700" et "chown root:root" !
|
||||
|
||||
C.Chepelov 5 novembre 1998 (présente implémentation), mise au point de
|
||||
l'algorithme et première implémentation en Reverse Polish Lisp (HP48) à
|
||||
l'automne 1997.
|
||||
|
||||
"""
|
||||
|
||||
import sys
|
||||
|
||||
if len(sys.argv) != 2:
|
||||
print "usage : %s <numéro de chambre>" % sys.argv[0]
|
||||
print "exemple : %s 126 --> 9378 " % sys.argv[0]
|
||||
print "Ajouter G ou F selon bâtiment, W ou B selon gaine technique. "
|
||||
print
|
||||
sys.exit(1)
|
||||
|
||||
s_arg = sys.argv[1]
|
||||
try:
|
||||
arg = int(s_arg)
|
||||
if arg >= 1000: raise "pas bon."
|
||||
except:
|
||||
print "L'argument doit être un nombre inférieur à 1000 !"
|
||||
sys.exit(2)
|
||||
|
||||
# C'est pas du tout optimal, mais on s'en fout !
|
||||
c1 = int(arg / 100) % 10
|
||||
c2 = int(arg / 10) % 10
|
||||
c3 = arg % 10
|
||||
|
||||
s = (c1 + c2 + c3) % 10
|
||||
|
||||
f3 = t1 = (10 - c1 + s) % 10
|
||||
f2 = t2 = (10 - c2 + s) % 10
|
||||
f1 = t3 = (10 - c3 + s) % 10
|
||||
|
||||
res = s * 1000 + f1 * 100 + f2 * 10 + f3
|
||||
print "Code = %d " % res
|
||||
|
||||
|
||||
|
||||
|
||||
3
archive/archives/chmodwww
Executable file
3
archive/archives/chmodwww
Executable file
|
|
@ -0,0 +1,3 @@
|
|||
#!/bin/sh
|
||||
chmod a+rx $HOME $HOME/www
|
||||
chmod -R a+r $HOME/www/*
|
||||
26
archive/archives/claque-interfaces
Executable file
26
archive/archives/claque-interfaces
Executable file
|
|
@ -0,0 +1,26 @@
|
|||
#!/bin/sh
|
||||
# CC 2/2/1999 horrible kludge
|
||||
#
|
||||
#
|
||||
# Pour des raisons bizarres (bug driver SMC ? matériel ?), les interfaces
|
||||
# eth1 et eth2 bloquent régulièrement.
|
||||
# en général, un claquage suffit à les relancer. Par ailleurs, un claquage
|
||||
# ne bloque pas les communications -- on peut donc jouer à le faire
|
||||
# régulièrement.
|
||||
#
|
||||
|
||||
#a enlever les commentaires! 19.02
|
||||
# 20/01/2000 jerome reactive le script
|
||||
|
||||
echo "Claquage des interfaces" | /usr/bin/logger -t "Claque" -p user.warn
|
||||
|
||||
ifconfig eth0 down; ifconfig eth0 up; route add default gw 138.231.136.2
|
||||
|
||||
ifconfig eth1 down; ifconfig eth1 up 138.231.136.130 netmask 255.255.252.0 broadcast 138.231.139.255
|
||||
#ifconfig eth2 down; ifconfig eth2 up
|
||||
#ifconfig eth3 down; ifconfig eth3 up
|
||||
|
||||
#ifconfig eth2 up 138.231.138.2 netmask 255.255.255.0 broadcast 138.231.138.255
|
||||
#ifconfig eth2:1 up 138.231.138.2 netmask 255.255.255.0 broadcast 138.231.138.255
|
||||
#ifconfig eth1:1 down 138.231.139.2 netmask 255.255.255.0 broadcast 138.231.139.255
|
||||
#ifconfig eth1 up
|
||||
144
archive/archives/configure_bornes_installparty
Executable file
144
archive/archives/configure_bornes_installparty
Executable file
|
|
@ -0,0 +1,144 @@
|
|||
|
||||
#! /bin/sh
|
||||
|
||||
###################################
|
||||
## Reconfigure une borne wifi ##
|
||||
## du CR@NS en temps que routeur ##
|
||||
###################################
|
||||
|
||||
# Ce scipt est à utiliser une fois que les interfaces de la bornes
|
||||
# sont configurées
|
||||
|
||||
BORNE="install-party.crans.org"
|
||||
DIR="/usr/scripts/install-party"
|
||||
MACS="$DIR/MACS-install-party"
|
||||
|
||||
#########################################################################
|
||||
|
||||
CLEF="/usr/scripts/gestion/clef-wifi"
|
||||
SSH="ssh -i $CLEF -o StrictHostKeyChecking=no $BORNE"
|
||||
SCP="scp -i $CLEF -o StrictHostKeyChecking=no"
|
||||
|
||||
usage () {
|
||||
echo "Usage : "
|
||||
echo " $0 --macs <borne> Modifie les MACS authorisées"
|
||||
echo " $0 --services <borne> Relance les services"
|
||||
echo " $0 --firewall <borne> Relance le firewall"
|
||||
}
|
||||
|
||||
error=1
|
||||
|
||||
#########################################################################
|
||||
|
||||
# Edition du fichier de MACS
|
||||
|
||||
if [[ "$1" == "--macs" ]]
|
||||
then
|
||||
/usr/bin/jed $MACS
|
||||
error=0
|
||||
fi
|
||||
|
||||
#########################################################################
|
||||
|
||||
# Reconfiguration des services
|
||||
|
||||
if [[ "$1" == "--services" ]]
|
||||
then
|
||||
# génération du script
|
||||
echo "Création du script de reconfiguration"
|
||||
cat > $DIR/boot.sh <<EOF
|
||||
# ajout de la route
|
||||
route add default gw 138.231.136.4 dev vlan0
|
||||
|
||||
# résolution de noms
|
||||
echo "search crans.org" > /tmp/resolv.conf
|
||||
echo "nameserver 138.231.136.6" >> /tmp/resolv.conf
|
||||
echo "nameserver 138.231.136.10" >> /tmp/resolv.conf
|
||||
|
||||
# alias pour le dns
|
||||
echo "127.0.0.1 localhost" > /etc/hosts
|
||||
echo "138.231.136.7 debian.ens-cachan.fr ftp.crihan.fr" >> /etc/hosts
|
||||
|
||||
# dns
|
||||
killall dnsmasq 2> /dev/null
|
||||
/usr/sbin/dnsmasq
|
||||
|
||||
# dhcp filaire
|
||||
echo "start 192.168.0.10" > /tmp/udhcpd.conf
|
||||
echo "end 192.168.0.254" >> /tmp/udhcpd.conf
|
||||
echo "interface vlan1" >> /tmp/udhcpd.conf
|
||||
echo "opt dns 192.168.0.1 138.231.136.6" >> /tmp/udhcpd.conf
|
||||
echo "option subnet 255.255.255.0" >> /tmp/udhcpd.conf
|
||||
echo "option dns 138.231.136.10" >> /tmp/udhcpd.conf
|
||||
echo "opt router 192.168.0.1" >> /tmp/udhcpd.conf
|
||||
killall udhcpd 2> /dev/null
|
||||
/usr/sbin/udhcpd /tmp/udhcpd.conf
|
||||
|
||||
EOF
|
||||
|
||||
# envoi du fichier et execution
|
||||
chmod 744 $DIR/boot.sh
|
||||
echo "Envoi du script"
|
||||
$SCP $DIR/boot.sh $BORNE:/tmp/boot.sh > /dev/null
|
||||
|
||||
# execution du script
|
||||
echo "Execution du script"
|
||||
$SSH /tmp/boot.sh
|
||||
|
||||
# destruction du fichier
|
||||
rm -f $DIR/boot.sh
|
||||
|
||||
error=0
|
||||
fi
|
||||
|
||||
#########################################################################
|
||||
|
||||
# Reconfiguration du firewall
|
||||
|
||||
if [[ "$1" == "--firewall" ]] || [[ "$1" == "--macs" ]]
|
||||
then
|
||||
# génération du firewall
|
||||
echo "Génération du firewall"
|
||||
cat > $DIR/firewall.sh <<EOF
|
||||
iptables -F
|
||||
iptables -X
|
||||
iptables -F -t nat
|
||||
iptables -X -t nat
|
||||
iptables -P FORWARD ACCEPT
|
||||
iptables -t nat -P PREROUTING DROP
|
||||
iptables -t nat --protocol icmp -d 192.169.0.1 -j ACCEPT
|
||||
iptables -t nat -A PREROUTING -i vlan0 -j ACCEPT
|
||||
iptables -t nat -A PREROUTING -i vlan1 -s ! 138.231.136.10 -p tcp --dport 80 -j DNAT --to 138.231.136.10:3128
|
||||
EOF
|
||||
|
||||
cat $MACS | sed 's/ //g' | grep -v '#' | grep -v '^$' | while true
|
||||
do
|
||||
read mac
|
||||
if [ "$mac" = "" ] ; then break ; fi
|
||||
echo "iptables -t nat -A PREROUTING -i vlan1 -m mac --mac-source $mac -j ACCEPT" >> $DIR/firewall.sh
|
||||
done
|
||||
|
||||
echo "iptables -A POSTROUTING -t nat -o vlan0 -j MASQUERADE" >> $DIR/firewall.sh
|
||||
|
||||
# envoi du fichier et execution
|
||||
chmod 744 $DIR/firewall.sh
|
||||
echo "Envoi du firewall"
|
||||
$SCP $DIR/firewall.sh $BORNE:/tmp/firewall.sh > /dev/null
|
||||
|
||||
# execution du script
|
||||
echo "Lancement du firewall"
|
||||
$SSH /tmp/firewall.sh
|
||||
|
||||
# destruction du fichier
|
||||
rm -f $DIR/firewall.sh
|
||||
|
||||
error=0
|
||||
fi
|
||||
|
||||
#########################################################################
|
||||
|
||||
if [ "$error" = "1" ]
|
||||
then
|
||||
usage
|
||||
exit 2
|
||||
fi
|
||||
97
archive/archives/cvsweb/commit-news.py
Executable file
97
archive/archives/cvsweb/commit-news.py
Executable file
|
|
@ -0,0 +1,97 @@
|
|||
#!/usr/bin/python
|
||||
# -*- coding: iso-8859-1 -*-
|
||||
#
|
||||
# Hack par CC 13/07/1999 pour envoyer sur crans.cvs-checkins un
|
||||
# compte-rendu d'activité de ce qui se passe...
|
||||
#
|
||||
# modif par SamK 22/11/99: splitter les lignes, sinon nntplib refuse le message
|
||||
# si ya des lignes trop longues..
|
||||
#
|
||||
# modif par OS 15/05/00 ajout d'un Reply-To...
|
||||
#
|
||||
# Ajouts par NS 13/02/03 : signature qui explique un peu ce qui se passe, et
|
||||
# création automatique d'un lien vers la page webcvs qui présente le diff.
|
||||
#
|
||||
# Modif par Benoit 11/12/04 : changement du repertoire ou sont loggue les
|
||||
# commits et fermeture du fichier
|
||||
#
|
||||
# Intimement lié à CVSROOT/loginfo
|
||||
#
|
||||
|
||||
import nntplib,string,os,StringIO
|
||||
|
||||
def LFsplit(s):
|
||||
res=""
|
||||
while len(s)>80 :
|
||||
pos=string.find(s,' ',65,80)
|
||||
if pos < 0 :
|
||||
res=res+s[0:75]+'\n'
|
||||
s=s[75:len(s)+1]
|
||||
else :
|
||||
res=res+s[0:pos]+'\n'
|
||||
s=s[pos+1:len(s)+1]
|
||||
if len(s)>0:
|
||||
res=res+s
|
||||
return res
|
||||
|
||||
for uid in os.listdir('/var/local/cvsweb/checkins/'):
|
||||
try:
|
||||
so = []
|
||||
fi = open('/var/local/cvsweb/checkins/'+uid,'r')
|
||||
|
||||
so.append("From: CVS admin <root@crans.org>\n" + \
|
||||
("Subject: CVS Commit par %s\n" % uid)+ \
|
||||
"Organization: Crans Internet Site\n" + \
|
||||
"Newsgroups: crans.cvs-checkins\n" + \
|
||||
"Reply-To: Nounous <nounou@crans.org>\n" + \
|
||||
"Followup-To: crans.informatique\n" )
|
||||
|
||||
so.append("MIME-Version: 1.0\n" + \
|
||||
"Content-Type: text/plain\n")
|
||||
so.append("\n")
|
||||
envoie = 0
|
||||
links_base="http://www.crans.org/cgi-bin/cvsweb"
|
||||
while 1:
|
||||
s = fi.readline()
|
||||
if not s: break
|
||||
envoie = 1
|
||||
links=['Liens vers les diffs sur cvsweb :\n']
|
||||
diffok = 0
|
||||
|
||||
# On essaye de créer les liens vers cvsweb automatiquement.
|
||||
try:
|
||||
if s[0:3]=="web":
|
||||
link=string.split(s)
|
||||
for file in link[1:]:
|
||||
file=string.split(file,",")
|
||||
if not string.split(file[0],".")[-1] in ['jpg','jpeg','gif','png']:
|
||||
links.append("%s/%s/%s.diff?r1=%s&r2=%s\n" % (links_base,link[0],file[0],file[1],file[2]))
|
||||
diffok = 1
|
||||
# S'il y a au moins un diff affichable, on donne le lien.
|
||||
if diffok:
|
||||
links.append('\n')
|
||||
s=string.join(links,'')
|
||||
else:
|
||||
s=LFsplit(s)
|
||||
so.append(s)
|
||||
except:
|
||||
so.append(s)
|
||||
# Avec une signature c'est plus propre.
|
||||
so.append("\n" + \
|
||||
"-- \n" + \
|
||||
"Notification automatique des CVS commits sur le site du CR@NS.\n"+ \
|
||||
"Voir http://www.crans.org/cgi-bin/cvsweb/web/ pour accéder aux archives CVS complètes.")
|
||||
|
||||
|
||||
# maintenant, on envoie :
|
||||
|
||||
if envoie:
|
||||
sso = string.join(so,'')
|
||||
fso = StringIO.StringIO(sso)
|
||||
nntplib.NNTP('news.crans.org').post(fso)
|
||||
#print sso
|
||||
fi.close()
|
||||
os.unlink('/var/local/cvsweb/checkins/'+uid)
|
||||
except:
|
||||
raise
|
||||
|
||||
19
archive/archives/cvsweb/update.sh
Executable file
19
archive/archives/cvsweb/update.sh
Executable file
|
|
@ -0,0 +1,19 @@
|
|||
#!/bin/sh
|
||||
# Mise à jour de l'arborescence du site web
|
||||
# Execute toutes les minutes (par root).
|
||||
|
||||
OQP=/var/lock/cvsweb
|
||||
CHEMIN=/var/local/cvsweb
|
||||
REPOSITORY=/home/httpd/CVS-Repository/
|
||||
|
||||
if [ $CHEMIN/commit.todo -nt $CHEMIN/commit.ok ]; then
|
||||
if ! [[ -f $OQP ]]; then
|
||||
chown -R www-data:webcvs $REPOSITORY
|
||||
chmod -R o-rwx $REPOSITORY
|
||||
touch $OQP
|
||||
cd /home/httpd/web
|
||||
su www-data -c "/usr/bin/cvs -d $REPOSITORY update -P -d" >/dev/null 2>&1
|
||||
test -s $OQP || rm -f $OQP
|
||||
su www-data -c "touch $CHEMIN/commit.ok"
|
||||
fi
|
||||
fi
|
||||
16
archive/archives/fan-speed
Executable file
16
archive/archives/fan-speed
Executable file
|
|
@ -0,0 +1,16 @@
|
|||
#!/bin/sh
|
||||
#donne la vitesse du ventilateur CPU
|
||||
echo 0
|
||||
#allez, on met 1000 au pif, ça nous rappellera que ce chiffre est bidon. --nico
|
||||
#echo 1000
|
||||
#en attendant de remettre i2c sensors, cette ligne est commentée :
|
||||
cat /proc/sys/dev/sensors/w83781d-i2c-0-2d/fan2 | tail -c 5
|
||||
#
|
||||
#| head -c 4
|
||||
#echo $(cat /proc/sys/dev/sensors/w83781d-i2c-0-2d/temp2 | tail -c 5 | head -c 2 )"/1-30"|bc
|
||||
#cat /proc/sys/dev/sensors/w83781d-i2c-0-2d/temp1 | sed -e 's/.*60.0 50.0 //' | sed -e's/\0//' -e 's/\.//'
|
||||
#cat /proc/sys/dev/sensors/w83781d-i2c-0-2d/temp2 | sed -e 's/.*57.0 50.0 //' | sed -e's/\0//' -e 's/\.//'
|
||||
#echo 10
|
||||
#echo 10
|
||||
echo
|
||||
echo "Ventilation"
|
||||
BIN
archive/archives/mailCRANS
Executable file
BIN
archive/archives/mailCRANS
Executable file
Binary file not shown.
280
archive/archives/mailCRANS.c
Normal file
280
archive/archives/mailCRANS.c
Normal file
|
|
@ -0,0 +1,280 @@
|
|||
/*
|
||||
* Mail a tous les adherents de CRANS.
|
||||
*
|
||||
* Copyright (c) 1999 Association CRANS.
|
||||
*
|
||||
* Auteur: Olivier Saut <Olivier.Saut@CRANS.ENS-Cachan.Fr>
|
||||
*
|
||||
*/
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/param.h>
|
||||
#include <sys/errno.h>
|
||||
#include <sys/time.h>
|
||||
#include <sys/resource.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/wait.h>
|
||||
|
||||
#include <err.h>
|
||||
#include <fcntl.h>
|
||||
#include <paths.h>
|
||||
#include <pwd.h>
|
||||
#include <signal.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <unistd.h>
|
||||
#include <sys/socket.h>
|
||||
#include <netinet/in.h>
|
||||
#include <arpa/inet.h>
|
||||
#include <sys/uio.h>
|
||||
|
||||
#define kPCGuestUID 502
|
||||
#define kCorbeauUID 536
|
||||
#define kNobodyUID 65534
|
||||
#define kRealUsers 500
|
||||
|
||||
/* Prototypes */
|
||||
int mk_tmpfile();
|
||||
void edit();
|
||||
int sendmail(char *name);
|
||||
void help();
|
||||
int isValidUID(uid_t uid);
|
||||
void mySig_handler(int iInt);
|
||||
|
||||
/* Variables globales */
|
||||
char *gTempname;
|
||||
uid_t gCurrent_UID;
|
||||
uid_t gUid_start;
|
||||
uid_t gUid_stop;
|
||||
int gVerbose;
|
||||
int gSimulate;
|
||||
|
||||
/* Programme principal */
|
||||
int main(int argc, char *argv[])
|
||||
{
|
||||
|
||||
struct passwd *passwd_ent;
|
||||
struct passwd *user;
|
||||
char buf[1024];
|
||||
extern char *optarg;
|
||||
extern int optind;
|
||||
int ch ;
|
||||
struct stat begin, end;
|
||||
sig_t previous_handler;
|
||||
char tildefn[MAXPATHLEN];
|
||||
int fd=-1;
|
||||
|
||||
|
||||
gUid_start=kRealUsers;
|
||||
gUid_stop=kNobodyUID;
|
||||
gVerbose=0;
|
||||
gSimulate=0;
|
||||
while ((ch = getopt(argc, argv, "svhf:d:a:")) != -1)
|
||||
switch (ch) {
|
||||
case 'h':
|
||||
help();
|
||||
break;
|
||||
case 'v':
|
||||
gVerbose=1;
|
||||
break;
|
||||
case 's':
|
||||
gVerbose=1;
|
||||
gSimulate=1;
|
||||
break;
|
||||
case 'f':
|
||||
gTempname=optarg;
|
||||
if ((fd = open(optarg, O_RDONLY, 0)) < 0) {
|
||||
(void)fprintf(stderr,
|
||||
"myname: %s: %s\n", optarg, strerror(errno));
|
||||
exit(1);
|
||||
}
|
||||
break;
|
||||
case 'd':
|
||||
gUid_start=atoi(optarg);
|
||||
break;
|
||||
case 'a':
|
||||
gUid_stop=atoi(optarg);
|
||||
break;
|
||||
|
||||
}
|
||||
argc -= optind;
|
||||
argv += optind;
|
||||
|
||||
previous_handler = signal(SIGTERM & SIGINT,(sig_t) mySig_handler);
|
||||
if(previous_handler==SIG_ERR) {
|
||||
(void)fprintf(stderr,"Erreur lors de l'installation du sighandler.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
|
||||
if(gVerbose)
|
||||
fprintf(stdout,"mailCRANS by OS. Version 0.1\n");
|
||||
|
||||
if(fd==-1) {
|
||||
fd=mk_tmpfile();
|
||||
user=getpwuid(getuid());
|
||||
sprintf(buf,"From: %s\nSubject: \nReply-To: \nContent-Type: text/plain; charset=iso-8859-1", user->pw_name);
|
||||
|
||||
if (write (fd,(void *)buf,strlen(buf)) < 0) {
|
||||
close(fd);
|
||||
fprintf(stderr, "Erreur en écriture.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
(void) fsync(fd);
|
||||
if(fstat(fd,&begin)) {
|
||||
perror("Erreur stat(1)");
|
||||
close(fd);
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
|
||||
(void) edit();
|
||||
|
||||
if(stat(gTempname,&end)) {
|
||||
perror("Erreur stat(2)");
|
||||
close(fd);
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
if (begin.st_mtime == end.st_mtime) {
|
||||
warnx("No changes made : exiting");
|
||||
close(fd);
|
||||
(void)unlink(gTempname);
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
setpwent();
|
||||
|
||||
while((int)(passwd_ent=(struct passwd *)getpwent())) {
|
||||
gCurrent_UID=passwd_ent->pw_uid;
|
||||
|
||||
if(isValidUID(gCurrent_UID))
|
||||
if(sendmail(passwd_ent->pw_name )) {
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
else
|
||||
usleep(250000);
|
||||
}
|
||||
|
||||
endpwent();
|
||||
|
||||
(void)unlink(gTempname);
|
||||
/* Bon on efface le fichier parasite */
|
||||
(void)strcpy((char *)tildefn,gTempname);
|
||||
(void)strcat((char *)tildefn,"~");
|
||||
|
||||
if(!access(tildefn,F_OK))
|
||||
(void)unlink(tildefn);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
int isValidUID(uid_t uid) {
|
||||
if(uid<gUid_start)
|
||||
return 0;
|
||||
|
||||
if(uid>gUid_stop)
|
||||
return 0;
|
||||
|
||||
if((uid==kPCGuestUID)|| (uid==kCorbeauUID) || (uid==kNobodyUID))
|
||||
return 0;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
void mySig_handler(int iInt) {
|
||||
(void) fprintf(stdout,"\n Signal %d intercepté.\n",iInt);
|
||||
(void) fprintf(stderr,"Le programme s'est arreté sur l'uid : %d\n",gCurrent_UID);
|
||||
exit(EXIT_SUCCESS);
|
||||
}
|
||||
|
||||
int mk_tmpfile()
|
||||
{
|
||||
int fd;
|
||||
char p[MAXPATHLEN];
|
||||
p[MAXPATHLEN-1]='\0';
|
||||
|
||||
strcpy(p, "/tmp/EAll.XXXXXX");
|
||||
if ((fd = mkstemp(p)) == -1)
|
||||
err(1, "%s", p);
|
||||
gTempname = malloc(strlen(p));
|
||||
(void)strncpy(gTempname,p,strlen(p));
|
||||
if(gVerbose)
|
||||
fprintf(stdout,"Tempfile name : %s\n",gTempname);
|
||||
return (fd);
|
||||
}
|
||||
|
||||
void edit()
|
||||
{
|
||||
int pstat;
|
||||
int editpid;
|
||||
char *p, *editor;
|
||||
|
||||
if (!(editor = getenv("EDITOR")))
|
||||
editor = _PATH_VI;
|
||||
if ((p = strrchr(editor, '/')))
|
||||
++p;
|
||||
else
|
||||
p = editor;
|
||||
|
||||
if (!(editpid = fork())) {
|
||||
errno = 0;
|
||||
execlp(editor, p, gTempname, NULL);
|
||||
_exit(errno);
|
||||
}
|
||||
for (;;) {
|
||||
editpid = waitpid(editpid, (int *)&pstat, WUNTRACED);
|
||||
errno = WEXITSTATUS(pstat);
|
||||
(void) fprintf(stderr,"\n *** %d ***\n",WEXITSTATUS(pstat));
|
||||
if (editpid == -1)
|
||||
exit(EXIT_FAILURE);
|
||||
else if (WIFSTOPPED(pstat))
|
||||
raise(WSTOPSIG(pstat));
|
||||
else if (WIFEXITED(pstat) && errno == 0)
|
||||
break;
|
||||
else
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
editpid = -1;
|
||||
}
|
||||
|
||||
|
||||
|
||||
int sendmail(char *pw_name) {
|
||||
int res=0;
|
||||
char *buff;
|
||||
int length;
|
||||
buff=malloc(1024);
|
||||
|
||||
buff[1023]='\0';
|
||||
buff[0]='\0';
|
||||
|
||||
(void)strcat((char *)buff,(const char *)"cat ");
|
||||
(void)strcat(buff,(const char *) gTempname);
|
||||
(void)strcat(buff, " | sendmail ");
|
||||
(void)strcat(buff, pw_name);
|
||||
if(gVerbose)
|
||||
fprintf(stdout,"\n ** %s ** \n", buff);
|
||||
if(!gSimulate)
|
||||
res=system(buff);
|
||||
return res;
|
||||
}
|
||||
|
||||
void help() {
|
||||
fprintf(stdout,"usage: mailCRANS [-v] [-s] [-f filename] [-{d,a} uid]\n");
|
||||
fprintf(stdout," -v : mode bavard\n");
|
||||
fprintf(stdout," -f filename : envoie le fichier en argument\n");
|
||||
fprintf(stdout," (rajouter une ligne Subject: en première ligne du fichier pour avoir un sujet\n");
|
||||
fprintf(stdout," -d uid : envoie à partir de l'UID argument\n");
|
||||
fprintf(stdout," -a uid : arrete après l'UID argument\n");
|
||||
fprintf(stdout," -s : mode simulation.");
|
||||
exit(EXIT_SUCCESS);
|
||||
|
||||
}
|
||||
|
||||
|
||||
21
archive/archives/mailvirus
Normal file
21
archive/archives/mailvirus
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
Bonjour,
|
||||
|
||||
Suite à la récente multiplication d'un virus nommé 'Klez' sur le réseau
|
||||
CRANS, nous avons décidé de faire en sorte temporairement que tous les mails
|
||||
contenant un fichier attaché nommé .exe, .pif, .bat ou .scr soient
|
||||
automatiquement rejetés par notre serveur, sans autre forme d'avertissement.
|
||||
La situation restera ainsi jusqu'à mise à jour des antivirus communément
|
||||
répandus.
|
||||
|
||||
Pendant cette période, si vous attendez effectivement un mail contenant une
|
||||
pièce jointe nommé de la sorte, essayez de faire en sorte que l'expéditeur
|
||||
en change l'extension (par exemple en en faisant un .zip).
|
||||
|
||||
En raison de la rapidité extrême avec laquelle se répand ce virus, nous
|
||||
serons éventuellement amenés à déconnecter du réseau les machines infectées.
|
||||
|
||||
http://www.sarc.com/avcenter/venc/data/w32.klez.e@mm.html
|
||||
|
||||
|
||||
--
|
||||
Nicolas Stransky
|
||||
7
archive/archives/netrestart
Executable file
7
archive/archives/netrestart
Executable file
|
|
@ -0,0 +1,7 @@
|
|||
#! /bin/sh
|
||||
# 5 retries (6 en tout), quiet.
|
||||
if ! fping 138.231.136.2 -r 5 -q;
|
||||
then
|
||||
echo "irts AUTOTEST failed" | logger -s -p daemon.err -t "/id/netrestart"
|
||||
/id/network reload
|
||||
fi
|
||||
128
archive/archives/news-cancel
Executable file
128
archive/archives/news-cancel
Executable file
|
|
@ -0,0 +1,128 @@
|
|||
#!/bin/sh
|
||||
##
|
||||
## news-cancel
|
||||
##
|
||||
## Made by stransky
|
||||
## Login stransky <stransky@crans.org>
|
||||
##
|
||||
## Started on dim 13 jan 2002 02:30:56 CET Nicolas STRANSKY
|
||||
## Last update ven 19 sep 2003 14:21:27 CEST Nicolas STRANSKY
|
||||
##
|
||||
## Script pour annuler ou modérer un message de news.
|
||||
##
|
||||
## V 1.0 : utilisation de la commande ctlinnd cancel.
|
||||
## V 2.0 : utilisation des commandes control cancel et supersede pour assurer
|
||||
## la propagation des modifications effectuées.
|
||||
|
||||
|
||||
if [[ "${ORIG_LOGNAME-$SUDO_USER}" = "" ]]
|
||||
then moderateur=`who am i | awk '{print $1}'`
|
||||
else moderateur=${ORIG_LOGNAME-$SUDO_USER}
|
||||
fi
|
||||
|
||||
ovfiles=$(grep "^[[:digit:]]" /etc/news/buffindexed.conf | cut -d ':' -f 2 | tr "\n" " ")
|
||||
groupe=adm
|
||||
tempF=$(tempfile -d /tmp -p "newscancel")
|
||||
tempF2=$(tempfile -d /tmp -p "newscancelcommentaire")
|
||||
tempF3=$(tempfile -d /tmp -p "newscancelmessage")
|
||||
|
||||
VERIF () {
|
||||
ligne=`grep -h --binary-files=text " $1 " $ovfiles | head -n 1 | awk -F "\t" '{print $1"~"$2"~"$3"~"$9}'`
|
||||
auteur=`echo $ligne | awk -F "~" '{print $3}'`
|
||||
titre=`echo $ligne | awk -F "~" '{print $2}'`
|
||||
newsgroup=`echo $ligne | awk -F "~" '{print $4}' | awk '{print $3}' | awk -F : '{print $1}'`
|
||||
#numero=`echo $ligne | awk -F "~" '{print $1}'`
|
||||
numero=`echo $ligne | awk -F "~" '{print $4}' |awk -v VAR1=$newsgroup 'BEGIN {RS = " "} ; $0 ~ VAR1 {print $1}' | awk -F ":" '{print strtonum($2)}'`
|
||||
|
||||
if [[ $ligne != "" ]] ; then
|
||||
echo "il s'agit du message \"$titre\", numéro $numero, posté par $auteur dans $newsgroup"
|
||||
echo ""
|
||||
echo -n "exact ? [o/n] "
|
||||
read confirmation
|
||||
case $confirmation in
|
||||
o*|O*)
|
||||
;;
|
||||
|
||||
*)
|
||||
echo "On ne fait rien."
|
||||
exit 0
|
||||
;;
|
||||
esac
|
||||
else
|
||||
echo "Aucun message ne correspond à cette ID"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
}
|
||||
|
||||
SAUVEGARDE () {
|
||||
echo "Sauvegarde du message dans /root/moderes/..."
|
||||
sleep 1
|
||||
rep=`echo $newsgroup | sed 's/\./\//g'`
|
||||
cp /var/spool/news/articles/$rep/$numero /root/moderes/$newsgroup'.'$numero.nws
|
||||
echo "$1 de $newsgroup.$numero" > $tempF
|
||||
echo " " >> $tempF
|
||||
echo "modérateur : $moderateur" >> $tempF
|
||||
echo "commentaires : " > $tempF2
|
||||
chown $moderateur.$groupe $tempF2
|
||||
/bin/su $moderateur -c "$EDITOR $tempF2"
|
||||
cat $tempF2 >> $tempF
|
||||
echo "Envoi du mail aux modérateurs..."
|
||||
cat $tempF | mutt -nx -a /root/moderes/$newsgroup'.'$numero.nws -s "moderation de $newsgroup.$numero par $moderateur" moderateurs@crans.org
|
||||
rm -f $tempF $tempF2
|
||||
echo " "
|
||||
}
|
||||
|
||||
|
||||
EDITION () {
|
||||
cp /var/spool/news/articles/$rep/$numero $tempF3
|
||||
chown $moderateur.$groupe $tempF3
|
||||
/bin/su $moderateur -c "$EDITOR $tempF3"
|
||||
(sleep 1 ; echo "mode reader" ; sleep 1 ; echo "group $newsgroup" ; sleep 1 ; echo post ; sleep 1 ; echo "Supersedes: $1" ; cat $tempF3 | egrep -v "^Message-ID:|^NNTP-Posting|^Path:|^X-Trace:|^X-Complaints-To:|^Xref:" ; echo '.' ; sleep 1 ; echo quit) | nc 138.231.136.3 119
|
||||
rm -f $tempF3
|
||||
}
|
||||
|
||||
CANCEL () {
|
||||
# echo -n 'throttling inn... '
|
||||
# /bin/su news -c "/usr/lib/news/bin/ctlinnd throttle 'article canceling'"
|
||||
# echo "canceling article $1"
|
||||
# /bin/su news -c "/usr/lib/news/bin/ctlinnd cancel $1"
|
||||
#
|
||||
# echo -n 'starting inn... '
|
||||
# /bin/su news -c "/usr/lib/news/bin/ctlinnd go ''"
|
||||
|
||||
(sleep 1 ; echo "mode reader" ; sleep 1 ; echo "group $newsgroup" ; sleep 1 ; echo post ; sleep 1 ; echo "Control: cancel $1" ; echo "From: $moderateur@crans.org" ; echo "Subject: Moderation" ; echo "Newsgroups: $newsgroup" ; echo -e "\n" ; echo "This post has been moderated with news-cancel." ; echo '.' ; sleep 1 ; echo quit) | nc news.crans.org 119
|
||||
}
|
||||
|
||||
|
||||
|
||||
if [ $UID -eq 0 ]
|
||||
then
|
||||
case $1 in
|
||||
\<*@*\>)
|
||||
VERIF $1
|
||||
echo "Edition ou Annulation du message ? [E/A] "
|
||||
read action
|
||||
case $action in
|
||||
e*|E*)
|
||||
SAUVEGARDE Edition
|
||||
EDITION $1
|
||||
;;
|
||||
a*|A*)
|
||||
SAUVEGARDE Annulation
|
||||
CANCEL $1
|
||||
;;
|
||||
*)
|
||||
echo "attention, il n'y a eu ni édition ni annulation. relancer le script"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
*)
|
||||
echo "usage : news-cancel '<Message-ID>'"
|
||||
;;
|
||||
esac
|
||||
|
||||
else
|
||||
echo "You must be root to launch this command."
|
||||
exit 1
|
||||
fi
|
||||
7
archive/archives/pop3s-restart
Executable file
7
archive/archives/pop3s-restart
Executable file
|
|
@ -0,0 +1,7 @@
|
|||
#/bin/sh
|
||||
PIFILE="/var/run/stunnel.tunnel-pop.pid"
|
||||
OPTIONS="-d 995 -r 110 tunnel-pop -p /etc/ssl/certs/stunnel-ptt.pem"
|
||||
|
||||
if [ $(netstat -l --tcp | grep -c ' \*:pop3s') -eq 0 ]; then
|
||||
start-stop-daemon --start --quiet --pidfile $PIDFILE --exec /usr/sbin/stunnel -- $OPTIONS ;
|
||||
fi
|
||||
9
archive/archives/redpopup
Executable file
9
archive/archives/redpopup
Executable file
|
|
@ -0,0 +1,9 @@
|
|||
#!/bin/sh
|
||||
PATH=/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin:/usr/local/sbin
|
||||
PYTHONPATH=/usr/lib/python-1.5/
|
||||
|
||||
cd /etc/CRANS
|
||||
echo $1 $2 $3 $4 $5 > /tmp/last.popup.log
|
||||
exec python /etc/CRANS/code/redpopup.py $1 $2 $3 $4 $5 >&2 2>/tmp/last.popup.err
|
||||
|
||||
|
||||
76
archive/archives/redpopup.py
Executable file
76
archive/archives/redpopup.py
Executable file
|
|
@ -0,0 +1,76 @@
|
|||
#!/usr/bin/python
|
||||
# -*- python -*-
|
||||
import sys,time,os,pickle,string,popen2,random
|
||||
|
||||
FORKLEN = 5
|
||||
TIMEOUT = 15 # une machine a 15 secondes pour recevoir un popup !
|
||||
|
||||
def do_bomb(Machines):
|
||||
time.sleep(random.random())
|
||||
if len(Machines) < FORKLEN:
|
||||
for mach in Machines:
|
||||
begin = time.time()
|
||||
print "ré-expédition SMBpopup à ",mach
|
||||
fd = popen2.Popen3("/etc/CRANS/code/SMBMessage %s %s %s" % (from_whom,mach,msgfile))
|
||||
while 1:
|
||||
time.sleep(1)
|
||||
if fd.poll() != -1: break # fini ! (cool)
|
||||
if (time.time() - begin) > TIMEOUT: break
|
||||
del fd
|
||||
else:
|
||||
Half = len(Machines) / 2
|
||||
|
||||
pid = os.fork()
|
||||
if pid == 0:
|
||||
# child
|
||||
do_bomb(Machines[:Half])
|
||||
else:
|
||||
# parent
|
||||
do_bomb(Machines[Half:])
|
||||
try:
|
||||
os.waitpid(pid,0)
|
||||
except:
|
||||
pass
|
||||
# à ce stade, on a éliminé toute récursion, tant pile que process...
|
||||
# croisons les doigts !!!
|
||||
|
||||
|
||||
if len(sys.argv) < 4:
|
||||
sys.stderr.write('Attend 3 arguments !\n')
|
||||
sys.exit(1)
|
||||
|
||||
Zone = pickle.load(open(CFG_READ_DIR+"Zone.db","r"))
|
||||
|
||||
from_whom = sys.argv[1]
|
||||
from_where = sys.argv[2]
|
||||
msgfile = sys.argv[3]+"-red"
|
||||
message = open(sys.argv[3],"r").readlines()
|
||||
|
||||
message.insert(0,("Message de %s (@%s) à ALL : \n-----\n" % (from_whom,from_where)))
|
||||
open(msgfile,"w").writelines(message)
|
||||
|
||||
|
||||
# pour gagner du temps, on n'envoie le message qu'aux machines qui sont
|
||||
# (probablement) vivantes. Pour gagner encore plus de temps, on fait
|
||||
# confiance au cache ARP (15 minutes)
|
||||
|
||||
Alive = []
|
||||
arp = os.popen("arp -a","r")
|
||||
while 1:
|
||||
s = arp.readline()
|
||||
if not s: break
|
||||
mach = string.split(string.split(s)[0],'.')[0]
|
||||
if mach[:5] == 'zamok': continue # évitons les boucles infininies...
|
||||
if Zone.has_key(mach): Alive.append(mach)
|
||||
print Alive
|
||||
|
||||
arp.close()
|
||||
|
||||
#maintenant, au boulot...
|
||||
do_bomb(Alive)
|
||||
unlink(msgfile)
|
||||
unlink(sys.argv[3])
|
||||
|
||||
|
||||
|
||||
|
||||
12
archive/archives/restart-all
Executable file
12
archive/archives/restart-all
Executable file
|
|
@ -0,0 +1,12 @@
|
|||
#!/bin/zsh -p
|
||||
# suid !!
|
||||
|
||||
id
|
||||
|
||||
echo "restarting the named (DNS) :"
|
||||
kill -HUP `cat /var/run/named.pid`
|
||||
|
||||
echo "restarting the DHCP : "
|
||||
#kill -TERM `cat /var/run/dhcpd.pid` || true
|
||||
#/usr/sbin/dhcpd
|
||||
/etc/init.d/dhcp reload
|
||||
15
archive/archives/save-etc
Executable file
15
archive/archives/save-etc
Executable file
|
|
@ -0,0 +1,15 @@
|
|||
#!/bin/sh
|
||||
|
||||
freq="$1"
|
||||
nb=$2
|
||||
|
||||
pref="/backups/tars/etc${freq}-"
|
||||
suff=`date +"%Y-%m-%d--%H-%M-%S.tgz"`
|
||||
tarball="${pref}${suff}"
|
||||
|
||||
umask 077
|
||||
cd /
|
||||
tar zcf ${tarball} etc usr/lib/cgi-bin usr/scripts root/scripts home/corbeau/scripts
|
||||
rm `ls -t ${pref}* | tail +$nb`
|
||||
|
||||
#df
|
||||
24
archive/archives/sendmail-vit-il
Executable file
24
archive/archives/sendmail-vit-il
Executable file
|
|
@ -0,0 +1,24 @@
|
|||
#!/usr/bin/env python
|
||||
# -*- Python -*-
|
||||
|
||||
# teste si notre sendmail fonctionne encore.
|
||||
|
||||
from socket import *
|
||||
import sys
|
||||
|
||||
OK = 0
|
||||
|
||||
host = "localhost"
|
||||
if len(sys.argv) > 1:
|
||||
host = sys.argv[1]
|
||||
|
||||
s = socket(AF_INET,SOCK_STREAM)
|
||||
try:
|
||||
s.connect(host,25)
|
||||
data = s.recv(3)
|
||||
OK = ("220" == data)
|
||||
s.close()
|
||||
except:
|
||||
OK = 0
|
||||
|
||||
sys.exit(not OK)
|
||||
1277
archive/archives/snmp/Des5200.mib
Normal file
1277
archive/archives/snmp/Des5200.mib
Normal file
File diff suppressed because it is too large
Load diff
804
archive/archives/snmp/iog-crans
Executable file
804
archive/archives/snmp/iog-crans
Executable file
|
|
@ -0,0 +1,804 @@
|
|||
#!/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
|
||||
#
|
||||
|
||||
|
||||
11
archive/archives/spamassassin-anti-block
Executable file
11
archive/archives/spamassassin-anti-block
Executable file
|
|
@ -0,0 +1,11 @@
|
|||
#! /bin/sh
|
||||
|
||||
MBOX=/var/tmp/mbox
|
||||
TMP=$(mktemp)
|
||||
spamc -t 60 < $MBOX > $TMP
|
||||
if diff $TMP $MBOX > /dev/null; then
|
||||
/etc/init.d/spamassassin restart
|
||||
echo "Spam Assassin a été relancé." | mail roots@crans.org -s "Spam Assassin"
|
||||
fi
|
||||
|
||||
rm -f $TMP
|
||||
26
archive/archives/squid-vit-il
Executable file
26
archive/archives/squid-vit-il
Executable file
|
|
@ -0,0 +1,26 @@
|
|||
#!/usr/bin/env python
|
||||
# -*- Python -*-
|
||||
|
||||
# teste si notre squid fonctionne encore (sortof).
|
||||
|
||||
from socket import *
|
||||
import sys
|
||||
|
||||
OK = 0
|
||||
|
||||
host = "localhost"
|
||||
if len(sys.argv) > 1:
|
||||
host = sys.argv[1]
|
||||
|
||||
s = socket(AF_INET,SOCK_STREAM)
|
||||
try:
|
||||
s.connect(host,3128)
|
||||
s.send("GET squid-vit-il")
|
||||
data = s.recv(4)
|
||||
OK = ("HTTP" == data)
|
||||
s.close()
|
||||
except:
|
||||
OK = 0
|
||||
|
||||
sys.exit(not OK)
|
||||
|
||||
19
archive/archives/supers/apt-get
Executable file
19
archive/archives/supers/apt-get
Executable file
|
|
@ -0,0 +1,19 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
# juste etendre le path, et lancer le prog
|
||||
# /supers n'est plus ds le path,
|
||||
# donc 'exec prog' lance le vrai prog.
|
||||
export PATH=/usr/local/sbin:/usr/sbin:/sbin:/opt/local/bin:/usr/local/bin:/usr/bin:/bin
|
||||
exec $prog ${1+"$@"}
|
||||
13
archive/archives/supers/apt-getinstall
Executable file
13
archive/archives/supers/apt-getinstall
Executable file
|
|
@ -0,0 +1,13 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
#Attention: pour lanceMake, il faut explicitement donné les options
|
||||
# à make, sinon en passant "-f /home/bidule/Makefile", a super make,
|
||||
# tout serait faisable en root..
|
||||
prog=`basename $0`
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"}
|
||||
PATH=/usr/sbin:/sbin:$PATH
|
||||
|
||||
/usr/bin/apt-get install ${1+"$@"}
|
||||
14
archive/archives/supers/apt-getupgrade
Executable file
14
archive/archives/supers/apt-getupgrade
Executable file
|
|
@ -0,0 +1,14 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
#Attention: pour lanceMake, il faut explicitement donné les options
|
||||
# à make, sinon en passant "-f /home/bidule/Makefile", a super make,
|
||||
# tout serait faisable en root..
|
||||
prog=`basename $0`
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"}
|
||||
PATH=/usr/sbin:/sbin:$PATH
|
||||
|
||||
/usr/bin/apt-get update
|
||||
/usr/bin/apt-get dist-upgrade ${1+"$@"}
|
||||
19
archive/archives/supers/aptitude
Executable file
19
archive/archives/supers/aptitude
Executable file
|
|
@ -0,0 +1,19 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
# juste etendre le path, et lancer le prog
|
||||
# /supers n'est plus ds le path,
|
||||
# donc 'exec prog' lance le vrai prog.
|
||||
export PATH=/usr/local/sbin:/usr/sbin:/sbin:/opt/local/bin:/usr/local/bin:/usr/bin:/bin
|
||||
exec $prog ${1+"$@"}
|
||||
20
archive/archives/supers/chowncore
Executable file
20
archive/archives/supers/chowncore
Executable file
|
|
@ -0,0 +1,20 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
|
||||
coreF=$ORIG_HOME/debug/
|
||||
chown -R $ORIG_LOGNAME $coreF && echo "chown debug dir DONE."
|
||||
|
||||
|
||||
|
||||
19
archive/archives/supers/dpkg
Executable file
19
archive/archives/supers/dpkg
Executable file
|
|
@ -0,0 +1,19 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
# juste etendre le path, et lancer le prog
|
||||
# /supers n'est plus ds le path,
|
||||
# donc 'exec prog' lance le vrai prog.
|
||||
export PATH=/usr/local/sbin:/usr/sbin:/sbin:/opt/local/bin:/usr/local/bin:/usr/bin:/bin
|
||||
exec $prog ${1+"$@"}
|
||||
30
archive/archives/supers/etccommit
Executable file
30
archive/archives/supers/etccommit
Executable file
|
|
@ -0,0 +1,30 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
prog=`basename $0`
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
USER=$ORIG_USER
|
||||
USERNAME=$USER
|
||||
LOGNAME=$ORIG_LOGNAME
|
||||
|
||||
cur=$(pwd)
|
||||
echo $cur
|
||||
if test "X${cur//etc/TOTO}" = "X$cur" && test "X${cur//scripts/TOTO}" = "X$cur";
|
||||
then #il ya pas 'etc' ou 'scripts' ds le rep courant.
|
||||
echo switching dir to /etc
|
||||
cd /etc
|
||||
fi
|
||||
|
||||
#echo "logname : " $LOGNAME
|
||||
echo "who am i :" `who am i`
|
||||
# en fait j'ai l'impression que ttes les variables sont ignorées par cvs.
|
||||
# qd on est root, il récupere le vrai user par "who am i", ie par le owner du TTY..
|
||||
/usr/bin/cvs -q -d /usr/cvs-rep commit ${1+"$@"}
|
||||
|
||||
19
archive/archives/supers/extendPath
Executable file
19
archive/archives/supers/extendPath
Executable file
|
|
@ -0,0 +1,19 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
# juste etendre le path, et lancer le prog
|
||||
# /supers n'est plus ds le path,
|
||||
# donc 'exec prog' lance le vrai prog.
|
||||
export PATH=/usr/local/sbin:/usr/sbin:/sbin:/opt/local/bin:/usr/local/bin:/usr/bin:/bin
|
||||
exec $prog ${1+"$@"}
|
||||
21
archive/archives/supers/hide/less
Executable file
21
archive/archives/supers/hide/less
Executable file
|
|
@ -0,0 +1,21 @@
|
|||
#! /bin/sh
|
||||
# Sam K, déc 99
|
||||
# magie: le script lance super sur son propre nom
|
||||
# et ca lance le bon programme..
|
||||
|
||||
prog=`basename $0`
|
||||
|
||||
# Si le script courant est lancé par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on éxécute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
test "X$SUPERCMD" = "X$prog" || test "X$UID" = "X0" ||
|
||||
exec /usr/bin/super $prog ${1+"$@"} # le script s'arrete ici ds ce cas.
|
||||
|
||||
# Contenu du script :
|
||||
|
||||
if test "X$UID" = "X0"; then
|
||||
echo "uid=root. setting LESSSECURE=1. "
|
||||
export LESSSECURE=1
|
||||
export LANG=fr_FR # c'est chiant less en locale=C ..
|
||||
exec /usr/bin/less ${1+"$@"}
|
||||
fi
|
||||
25
archive/archives/supers/id/apache-ssl
Executable file
25
archive/archives/supers/id/apache-ssl
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/arp
Executable file
25
archive/archives/supers/id/arp
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/arpd
Executable file
25
archive/archives/supers/id/arpd
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/arpwatch
Executable file
25
archive/archives/supers/id/arpwatch
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/bind
Executable file
25
archive/archives/supers/id/bind
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/bootmisc.sh
Executable file
25
archive/archives/supers/id/bootmisc.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/checkfs.sh
Executable file
25
archive/archives/supers/id/checkfs.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/checkroot.sh
Executable file
25
archive/archives/supers/id/checkroot.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/console-screen.kbd.sh
Executable file
25
archive/archives/supers/id/console-screen.kbd.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/console-screen.sh
Executable file
25
archive/archives/supers/id/console-screen.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/cron
Executable file
25
archive/archives/supers/id/cron
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/cucipop
Executable file
25
archive/archives/supers/id/cucipop
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/devpts.sh
Executable file
25
archive/archives/supers/id/devpts.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/devpts.sh.dpkg-old
Executable file
25
archive/archives/supers/id/devpts.sh.dpkg-old
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/dhcp
Executable file
25
archive/archives/supers/id/dhcp
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/dhcp.dpkg-dist
Executable file
25
archive/archives/supers/id/dhcp.dpkg-dist
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/dns-clean
Executable file
25
archive/archives/supers/id/dns-clean
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/exim
Executable file
25
archive/archives/supers/id/exim
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/firewall
Executable file
25
archive/archives/supers/id/firewall
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/gnu-pop3d
Executable file
25
archive/archives/supers/id/gnu-pop3d
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/halt
Executable file
25
archive/archives/supers/id/halt
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/hdSettings
Executable file
25
archive/archives/supers/id/hdSettings
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/hostname.sh
Executable file
25
archive/archives/supers/id/hostname.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/hwclock.sh
Executable file
25
archive/archives/supers/id/hwclock.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/inetd
Executable file
25
archive/archives/supers/id/inetd
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/inn2
Executable file
25
archive/archives/supers/id/inn2
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/isapnp
Executable file
25
archive/archives/supers/id/isapnp
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/kerneld
Executable file
25
archive/archives/supers/id/kerneld
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/keymaps-lct.sh
Executable file
25
archive/archives/supers/id/keymaps-lct.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/keymaps.sh
Executable file
25
archive/archives/supers/id/keymaps.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/logoutd
Executable file
25
archive/archives/supers/id/logoutd
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/lpd
Executable file
25
archive/archives/supers/id/lpd
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/makedev
Executable file
25
archive/archives/supers/id/makedev
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/modutils
Executable file
25
archive/archives/supers/id/modutils
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/mountall.sh
Executable file
25
archive/archives/supers/id/mountall.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/mountnfs.sh
Executable file
25
archive/archives/supers/id/mountnfs.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/netbase.old
Executable file
25
archive/archives/supers/id/netbase.old
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/network
Executable file
25
archive/archives/supers/id/network
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/network2
Executable file
25
archive/archives/supers/id/network2
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/networking
Executable file
25
archive/archives/supers/id/networking
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/ntp
Executable file
25
archive/archives/supers/id/ntp
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/ntpdate
Executable file
25
archive/archives/supers/id/ntpdate
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/portmap
Executable file
25
archive/archives/supers/id/portmap
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/postfix
Executable file
25
archive/archives/supers/id/postfix
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/ppp
Executable file
25
archive/archives/supers/id/ppp
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/procps.sh
Executable file
25
archive/archives/supers/id/procps.sh
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/rc
Executable file
25
archive/archives/supers/id/rc
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/rcS
Executable file
25
archive/archives/supers/id/rcS
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
25
archive/archives/supers/id/reboot
Executable file
25
archive/archives/supers/id/reboot
Executable file
|
|
@ -0,0 +1,25 @@
|
|||
#! /bin/sh
|
||||
# Sam K, Jan 2000
|
||||
# sert Doublement de wrapper:
|
||||
# d'abord autolance super sur /id/(basename $0),
|
||||
# Et aussi, qd appelé via super, lance un scipt de /id en modifiant le apth au prealable.
|
||||
|
||||
prog=`basename $0`
|
||||
supcmd=`basename ${SUPERCMD=_NILL_}`
|
||||
|
||||
# Si le script courant est lanc<E9> par super, $SUPERCMD permet de le voir.
|
||||
# et alors on continue gentiment le script, sinon on <E9>x<E9>cute super sur le prog.
|
||||
# ca permet de faire des scripts qui lancent super sur eux-memes..
|
||||
if ! test "X$supcmd" = "X$prog"; then
|
||||
echo "calling super, $supcmd $prog"
|
||||
exec /usr/bin/super /id/$prog ${1+"$@"}
|
||||
exit 0;
|
||||
fi
|
||||
|
||||
# Si le script continue, c'est qu'on est lancé par super.
|
||||
|
||||
|
||||
PATH=/sbin:/usr/sbin:/usr/bin:$PATH
|
||||
|
||||
echo "Path set to: $PATH by id_wrapper"
|
||||
exec /etc/init.d/$prog ${1+"$@"}
|
||||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue