Search Results

Dieses Script war mal nötig, um aus einem SQL-Dump alle INSERTs, die vor einem bestimmten Zeitpunkt (Feld timestamp) eingefügt wurden, zu löschen. Die INSERT-Zeilen beinhalten ein Feld namens „Timestamp“, das der Variable timestamp entspricht. Als Feldtrenner ...

Um in Python die doppelten Einträge aus einer Liste zu filtern können folgende Snippets verwendet werden: def uniq(alist) # Fastest order preserving set = {} return [set.setdefault(e,e) for e in alist if e not in set] def uniq(alist) # Fas...

Ab PHP5 werden die HTTP_POST_VARS nicht mehr zur Verfügung gestellt. Falls man unter keinen Umständen darauf verzichten kann hat man folgende Möglichkeiten: 1. nur noch folgende Variablen als Ersatz verwenden, dies erfordert die Anpassung aller Scripten. Das ...

das hat zwar nichts mit der Programmierung zu tun, ist aber eine böse Stolperfalle: Um locking Probleme während eines php-Upgrades zu verhindern ignoriert pecl eine vorhandene php.ini und läuft mit einem default-Wert für memory_limit von nur 8MB. Dadurch schl...

#!/usr/bin/perl # # Orginal: http://www.brandonhutchinson.com/Timeout_command.html # # 2007 - OV angepasst auf RedHat-Pfade und um die Ausgabe des netstats erweitert # use strict; # Zeige IPs ab $threshold gleichzeitigen Verbindungen my $threshold...

Dieses Script ersetzt das letzte Byte einer IP-Adresse durch 0 (/24er Maske). In der httpd.conf ist die Zeile mit dem combined-Logformat durch folgende zu ersetzen: LogFormat "%a %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"" combined Nun wird i...

#!/usr/bin/perl use Authen::Radius; my $radiusserver = $ARGV[0]; my $radiussecret = $ARGV[1]; my $username = $ARGV[2]; my $password = $ARGV[3]; my $timeout = $ARGV[4]; my $debug = $ARGV[5] ? 1:0; if (! $ARGV[4]) { print "Usage: check_...

#!/usr/bin/perl # # checked Telnet-Port unserer Portmaster auf korrekte Response # # 2005 by OV # use IO::Socket; my $line = ""; my $RemoteHost = $ARGV[0]; my $RemotePort = $ARGV[1]; my $CheckString = $ARGV[2]; local $SIG{ALRM} = sub ...

#!/usr/bin/perl # # 2007 Oliver Voelker <info(at)ovtec.it> # use strict; use Net::LDAP; use Getopt::Long; my $ldapserver = "ldap.mein-server.de"; my $base = "ou=People,dc=mein-server,dc=de"; my $debug = 0; my $search = "*"; my $ver...

Dieses Programm verabschiedet sich direkt nach dem Start in den Hintergrund (Dämon) und schaut dann auf Veränderungen im File /var/log/xferlog. Wird nun via FTP eine Datei hochgeladen, wird sie via SCP (passwortloses Login via Keys sollte vorher natürlich eing...

#!/usr/bin/perl # # gibt zu den in "domainlist.txt" angebenen Domains(eine pro Zeile) den zugehoerigen A- und MX-Record aus # use strict; use Net::DNS; my $res = Net::DNS::Resolver->new; open(LISTE,"<domainlist.txt") || die("Konnte die Datei...

Für einen Kunden habe ich ein Tool in Perl programmiert. Es überprüft alle paar Minuten ein Verzeichnis in das von Redakteuren Fotos und eine Textdatei mit Metainformationen hochgeladen werden. In der Textdatei werden z.B. Bildunterschriften und Copyrights übe...

Diese Snippet verarbeitet Dateien und Verzeichnisse und steigt dabei auch in Unterverzeichnisse ein. Gibt den Filenamen aus wenn eine Datei gefunden wurde. Wenn ein Verzeichnis gefunden wurde wird der Name aufgerufen und DoDir rekursiv aufgerufen. my $root = ...

Will man ein Perlscript dauerhaft im Hintergrund laufen lassen, muss es von der Konsole getrennt und in den Hintergrund geschickt werden. Folgendes Beispiel zeigt wie das geht: #!/usr/bin/perl # # 2008 Oliver Voelker <info(at)ovtec.it> # use strict; use ...

Voraussetzungen: Perlmodule: Net::IMAP::Simple, Email::Simple espeak-Installation getestet unter Ubuntu 10.10 Maverick Dieses Script logt sich in eine IMAP-Mailbox ein und liest den Betreff aller Mails im SPAM/Junk-Ordner via espeak vor. Die Pa...

mit folgendem Script kann schnell und einfach eine Mail verschickt werden: $RCPT="empfaenger\@domain.de"; $EMAIL = "/usr/sbin/sendmail"; open (MAIL,"|$EMAIL $RCPT"); print MAIL ("From: root\@meinserver.de\n"); print MAIL ("Subject: tolle Mail\n\n"); prin...

SQLite ist eine Datenbank-Engine, die ohne Serverdämon und Konfiguration auskommt. Die Daten werden in eine normale Datei geschrieben. Ich beschreibe zunächst das Erstellen der Datenbank. In diesem Beispiel habe ich das mit dem mitgelieferten Binary ohne Perl...

#include <stdio.h> #include <string.h> #include <unistd.h> #include <fcntl.h> #include <termios.h> int com_port; //char get_buffer[9]; const char* get_buffer; int init_com() { struct termios options; //COM1 com_port = open("/dev/ttyS...

#!/bin/sh # checkt ob alle Interface up sind und Link haben und liefert einen fuer Nagios gueltigen Return-Wert CARDS="dev0 eth1 eth2 eth3" DEBUG=0 MESG="" INTOK="OK:" for card in $CARDS do if [ $DEBUG -gt 0 ] then ...

zuerst muss mit dem Parameter -g ein Diff-File erzeugt werden, dann können mit dem Parameter -f die Antworten der LDAP-Server mit dem File verglichen werden. #!/bin/sh # 2005 Oliver Voelker <code@magenbrot.net> # checkt die LDAP-Server auf korrekte Antwo...