#!/usr/bin/perl use strict; use DBI; #Définition des arguments de connexion my $dbargs = {AutoCommit => 0, PrintError => 1}; #Connexion à la base SQLite my $dbh1 = DBI->connect(« dbi:SQLite2:dbname=/chemin/db », » », » »,$dbargs); #Affichage du message d’erreur si c’est le cas if ($dbh1->err()) { die « $DBI::errstr\n »; } #Préparation de la requête my $sSql= « SELECT * FROM SQLITE_MASTER »; my $statement = $dbh1->prepare($sSql); #Exécution de la requête $statement->execute(); #Affichage du résultat while (my $row = $statement->fetchrow_arrayref) { print join(« \t », @$row), « \n »; } [...]

Pour vérifier mes sauvegardes Linux, j’ai créé un plugin nagios. Je place le code erreur dans un fichier. Puis lorsque Nagios vient executer le plugin, celui-ci lui renvoie le code erreur situé dans le fichier avec un message. Utilisation du plugin dans Nagios : $USER1$/check_sauvegarde.pl -serveur $HOSTNAME$ Hostname correspond au nom du serveur dans NAGIOS et c’est le nom que devra porter le fichier. Code source du plugin (perl) : #!/usr/bin/perl     # vi /usr/local/bin/nagios_testd.pl [...]

Je mets ce script ici pour me permettre de le retrouver si je perds la mémoire :p. Peut-être que ça servira à quelqu’un. Il a été intégré à Nagios grâce au code erreur en sortie puis exécuté par le check_nrpe. Ce script est au format wsf.   <package> <job id="Application Script"> <comment>           File: Application.wsf           Description: Ce script permet de savoir si une application récupère bien           les emails via POP sur Mdaemon           [...]

source = (test test2); # création du tableau avec deux entrées echo ${#source[*]};    # On affiche la taille du tableau 2                                # Résultat de l’echo ${#source[*]} correspond à la taille du tableau source.

SORTIE=`tar -czvf /home/MonHome.tar.gz /tmp/ 2>&1` Tu as dans $SORTIE ce que t’a renvoyé la commande tar. echo $SORTIE

A mettre dans un fichier .bat : netsh interface ip set address name="Connexion au réseau local" source=dhcp netsh interface ip set dns name="Connexion au réseau local" source=dhcp ipconfig /release ipconfig /renew Attention : il y’a un problème avec les accents. Je vous conseil d’editer le script avec la commande edit de l’invite de commande pour que le caractère "é" soit au format DOS. Pensez à sauvegarder!!   Pour connaître la liste de vos interfaces avec [...]

Symfony est un framework pour php. Pré-requis : php-pear = gestionnaire de library phpphp5php-xml Installation : $ pear channel-discover pear.symfony-project.com$ pear install symfony/symfony On teste si symfony est bien installé : $ symfony -V On regarde où a été installé symfony : $ find / -name « symfony » -print Normalement, il se trouve à cet endroit : /usr/share/pear/data/symfony/ Configuration : Avant toutes choses, vérifier que le serveur apache et php sont bien installé et en fonctionnement. [...]

<?php echo MySQLDateToExplicitDate(date(‘Y-m-d’)); Function MySQLDateToExplicitDate($MyDate, $WeekDayOn=1, $YearOn=1) { $MyMonths = array(« Janvier », « Février », « Mars », « Avril », « Mai », « Juin », « Juillet », « Août », « Septembre », « Octobre », « Novembre », « Décembre »); $MyDays = array(« Dimanche », « Lundi », « Mardi », « Mercredi », « Jeudi », « Vendredi », « Samedi »); $DF=explode(‘-’,$MyDate); $TheDay=getdate(mktime(0,0,0,$DF[1],$DF[2],$DF[0])); $MyDate=$DF[2]. » « .$MyMonths[$DF[1]-1]; if($WeekDayOn){$MyDate=$MyDays[$TheDay["wday"]]. » « .$MyDate;} if($YearOn){$MyDate.= » « .$DF[0];} return $MyDate; } ?> Source : http://www.phpinfo.net/page/archives/astuces/php/date-heure/

Configuration Syslogd : Voici mon fichier syslog.conf : # Log all kernel messages to the console. # Logging much else clutters up the screen. #kern.*                                                 /dev/console # Log anything (except mail) of level info or higher. # Don’t log private authentication messages! #*.info;mail.none;authpriv.none;cron.none               /var/log/messages local1.*                                                /log/site1/all.log local2.*                                                /log/site2/all.log # The authpriv file has restricted access. authpriv.*                                              /var/log/secure # Log all the mail messages in one place. mail.*                                                  -/var/log/maillog # Log cron stuff cron.*                                                  /var/log/cron # [...]

Utilisez une table de hachage. Lorsque vous pensez à « unique » ou à « doublons », pensez aux « clés de hachage ». Si l’ordre des éléments ne compte pas, vous pouvez créer une table de hachage dont vous extrairez les clés. La manière de créer la table de hachage importe peu : il vous suffit d’utiliser keys pour récupérer les éléments uniques. my %hachage = map { $_, 1 } @tableau; # ou via une tranche de hachage : [...]