Desswegen auch die “2″ im Namen. Weil die erste Version viel zu kompliziert war, hab’ ich jetzt noch einmal von NULL an angefangen einen IRC Bot in Perl zu schreiben. Den aktuellen Fortschritt meines IRC Perl Bots kann man auf GitHub verfolgen: https://github.com/TheFox/perlbot2

Wie man sieht ist noch nicht viel davon zu sehen. Vielleicht wird es ja dieses Mal was. Ich will naemlich wieder mehr im IRC aktiv sein. Leider fehlt mir dafuer eindeutig die Zeit.

Es koennen auch mehrere Twitter Accounts angegeben werden. Bevor man loslegen kann, muss noch die Variable %CONFIG angepasst werden. Wenn $DEBUG auf 1 (true) gestellt ist, werden nicht nur die Fehlermeldungen ausgegeben. Dieses Script ist vorallem als Linux-Cronjob gedacht. Laut Twitter API kann man nur 150 Requests pro Stunde anfordern. Ich habe einen Cronjob eingerichtet, der nur einmal am Tag rennt. Sollte eigentlich reichen. Ausserdem muss darauf geachtet werden, dass das Script die Rechte 0700 (-rwx------) hat. Da die Passwoerter der Twitter Accounts ohne Verschluesselung im Script stehen, ist das unbedingt von Noeten.

Die Rechte des Scriptes aendert man wie folgt mit chmod:

chmod 0700 twitterexporter.pl

Benoetigte Perl-Module

• FindBin
• DateTime
• XML::LibXML
• Net::Twitter

Download

• twitterexporter-1.0.0.tar.gz

Hier ein paar Erneuerungen. Fuer eine genauer Beschreibung bitte beim Artikel von Version 1.0.0 lesen.

• Die Variable $RECURSIVE wird ab jetzt auch verwendet. Bei der Version 1.0.0 war diese Variable zwar auch schon enthalten, aber sie war sinnlos.
• Die Variable @IGNORE ist jetzt bei Version 1.1.0 dazu gekommen. In diesem Array kann man alle Pfade eintragen, die das Script ignorieren soll.

Wie immer gilt: Benutzung auf eigene Gefahr. Da das Script kein eigenes Konfigurationsfile hat, ist es nicht schlecht, wenn man die alte Version umbenennt, da sonst die eingetragenen Pfade verloren gehen.

Download

• makeindex-1.1.0.tar.gz

Der Sinn und Zweck liegt darin, dass die index.html von einem Script erzeugt wird und nicht vom HTTP-Prozess. Manche HTTP-Server, wie z. B. Apache, koennen auch Index Seiten ausliefern, falls es fuer einen Ordner kein Index-File gibt. Das kann jedoch zu einer hohen Prozessauslastung fuehren, da der Prozess mit dem Auslesen der Ordner-Informationen, wie z. B. Filegroessen und File-Aenderungszeiten, beschaeftigt ist. Vorallem wenn viele User ueber HTTP auf einen Ordner zugreifen, oder wenn viele Files in einem Ordner existieren, kann es zu einer hoeheren Auslastung des Prozesses kommen. Die Auslieferung eines statischem HTML-Files fuehrt im Normalfall nicht zu einer hohen Prozessauslastung.

WICHTIGER HINWEIS

Dieses Script ueberschreibt jede index.html. Das Ausfuehren des Script geschieht auf eigene Gefahr.

Konfiguration

• $DEBUG – Diese Variable, gibt Informationen im STDOUT aus, falls sie auf 1 (true) gesetzt ist. An den Index-Files aendert sich dadurch nichts.
• $RECURSIVE – Falls diese Variable auf 1 (true) gesetzt ist, werden in allen Unterordnern jeweils auch index.html Files erzeugt.
• $INTERVAL – Diese Variable dient nur zur Inforamtion. Sie sagt nichts darueber aus, wie oft ein Index-File wirklich erstellt wird. Es haengt von der Cronjob-Einstellung ab, wie oft die Index-Files erstellt werden.
• @INDIR – Dieses Array muss alle Pfade enthalten, in denen Index-Files erstellt werden sollen. Da das Array mit einer qw()-Anweisung erstellt wird, darf ein Pfad keine Leerzeichen enthalten. Die einzelnen Pfade koennen durch Leerzeichen, Tabulatoren oder durch neue Zeilen getrennt sein.
• @IGNORE – Dieses Array kann Pfade enthalten, die vom Script nicht beruecksichtigt werden.

Ausserdem muss ein Cronjob eingerichtet werden, der das Script in einem bestimmten Intervall ausfuehrt. Ein Eintrag im crontab koennte wie folgt aussehen:

*/5 * * * * /home/USER/makeindex.pl

Benoetigte Perl-Module

• File::Basename

Download

• makeindex-1.1.0.tar.gz
• makeindex-1.0.0.tar.gz

Das Linux Programm rsync eignet sich perfekt um Backups von Dateien zu machen. Dieses Script verwendet rsync aber offline. Das heisst, es werden die Files auf eine USB-Festplatte oder eine andere eingebaute Festplatte kopiert. Es geht darum, wenn die Festplatte einen Schaden hat, dass immer noch ein Backup vorhanden ist. Das ist eigentlich der schlimmste Fall, der eintreten kann. Man kann mit diesem Script also nicht verschiedene Versionen eines Files herstellen, sondern immer nur das letzte Backup. Professionell ausgedrueckt erstellt dieses Script ein inkrementelles Backup. Beim erstmaligen Start wird eine Volldatensicherung gemacht. Danach eine inkrementelle Datensicherung. Mit ein paar kleinen Aenderungen kann dieses Script jedoch auch fuers Netzwerk verwendet werden.

Verwendete rsync-Einstellungen

• -r: Rekursiv alle Ordner und Unterordner kopieren.
• -R: Relative Pfade. Diese Option bewirkt, dass die gleichen Pfade beim Ziel verwendet werden. Zum Beispiel: Der Ordner /etc/init.d wird in der Datei mkbak.files.txt eingetragen, damit von diesem auch ein Backup erstell wird. Das Backup wird auf einer Festplatte gespeichert, die unter /mnt/backup gemountet ist. Der Ordner /etc/init.d wird also nach /mnt/backup/etc/init.d kopiert. So funktioniert es nicht nur mit Ordnern sondern auch mit Files.
• -l: Symbolische Links werden auch kopiert.
• -p: Die Rechte werden am Ziel vom Original fuer Ordner und Files uebernommen.
• -o: Der Besitzer wird am Ziel vom Original fuer Ordner und Files uebernommen. Erfordert, dass rsync mit root ausgefuehrt wird.
• -g: Die Gruppe wird am Ziel vom Original fuer Ordner und Files uebernommen. Erfordert, dass rsync mit root ausgefuehrt wird.
• -t: Die Aenderungszeit wird am Ziel vom Original fuer Ordner und Files uebernommen.

Benoetigte Perl-Module

• FindBin

Installation

1. Download

   wget http://software.fox21.at/mkbakfiles/releases/mkbak.files-1.0.0-linux.tar.gz

2. Entzippen

   gzip -d mkbak.files-1.0.0-linux.tar.gz

3. Entpacken

   tar -xvf mkbak.files-1.0.0-linux.tar

4. Konfigurieren. Alle Files und Ordner, die gesichert werden sollen, muessen im File mkbak.files.txt eingetragen werden. Ein File oder einen Ordner pro Zeile. Jede leere Zeile und jede Zeile die mit einem # (Raute-Zeichen) anfangen, werden ignoriert.

   # comment
   /home/thefox/
   /etc
   /usr/local/bin

Download

• mkbak.files-1.0.0-linux.tar.gz

Weblinks

• Datensicherungskonzepte
• Moeglichkeiten der Datensicherung

Jeder denkt sicher, dass diese Captchas, noch dazu in Flash, unumgaenglich seien. Dem ist aber nicht so. Das Flashcaptcha (z. B. http://www.ddl-warez.org/getcaptcha.php?id=abcd), beinhaltet einen dynamischen Teil. Es muss ja schliesslich bei jedem Aufruf ein anderes Captcha angezeigt werden. In dieser SWF-Datei stehen die Captchas, nicht wie anfangs angenommen verschluesselt, sondern unverschluesselt am Ende dieser Datei. Sogar in HTML-Format: <p align=”center”><font face=”Berlin Sans FB Demi” size=”60″ color=”#e8edf0″ letterSpacing=”0.000000″ kerning=”1″>1234</font></p>. In dem Fall waere der Captcha-Code 1234. Dadurch kann man die Eingabe der Captchas simulieren. Etwas, das man nicht simulieren kann, ist die Wartezeit nach der Captchaeingabe. Natuerlich muss auch mein Script diese Zeit verstreichen lassen, bis es weiter arbeiten kann. Desswegen rennt das Script mindestens 5 Sekunden oder laenger. Man darf sich also nicht wundern, wenn es etwas laenger braucht, um die RapidShare-Links zu bekommen. Aber immerhin ist es noch schneller, als wenn jeder Link haendisch kopiert werden muss. Es war ein ganzes Stueck Arbeit, um es so weit zu bringen, dass das Script die Captchabilder auslesen kann.

Installationsanleitung

Download

• ddllinks-2.0.0.zip
• aeltere Versionen

Installationsanleitung

Download

• hier

Ich hab’ mich schon oft geaergert, nachdem ich ein Shell Script oder ein Programm gestartet hatte und wollte, dass, nachdem es alles abgearbeitet hatte, noch weitere Aktionen ausfuehrt. Desswegen entschloss ich mich dazu, diese Script zu schreiben. Es wird dem Script eine Prozess ID und ein Pfad zu einem weiteren Programm uebergeben, das danach gestartet wird. pwait wartet solange bis der Prozess beendet wurde und startet anschliessend ein anderes Programm. Es koennen natuerlich auch mehrere Prozess IDs und Programmpfade uebergeben werden. In dem Fall wartet das Perl Script so lange, bis alle Prozesse, deren IDs uebergeben worden sind, beendet wurden. Um einem Programm, das gestartet werden soll, auch Argumente zu uebergeben, muss dieses sammt den Argumenten unter Hochkomma (“”) gestellt werden.

In diesem Beispiel wartet pwait bis der Prozess mit der ID 1234 beendet wurde und startet anschliessend den Befehl “sleep 10″.

./pwait.pl 1234 "sleep 10"

Benoetigte Perl-Module

• Win32::Process
• Win32::Process::List

Download

• pwait-1.0.0.zip

DLC ist ein Containerformat, das von JDownloader verwendet wird. JDownloader ist ein Java-Programm, mit dem von rapidshare.com, megaupload.com, uploaded.to oder anderen bekannten One-Click-Hostern herunter geladen werden kann. Da man 2 private Keys benoetigt, um .dlc-Files zu entschluesseln, muss ich hier eines klar stellen: DIESES SCRIPT ENTHAELT KEINE KEYS! Das heisst es ist unbrauchbar, solange man nicht selber 2 Keys besitzt. Falls doch, traegt man diese in den Variablen $KEYA und $KEYB ein. Es gibt noch eine dritte wichtige Variable bei der ganzen Sache: $PROGNAME, ist ein String, der beim Aufruf von http://service.jdownloader.org/dlcrypt/service.php?destType={$PROGNAME} benoetigt wird. In dem Fall wird {$PROGNAME} durch den String ersetzt, der in der Variable $PROGNAME steht. Alle Programme (z. B. MSD, Load!, …), die DLC Files entschluesseln koennen, verwenden jeweils fuer destType einen eigenen String.

Ich will jetzt nicht genauer auf den Container eingehen, da ich mich leider viel zu wenig mit Kryptographie auskenne. Weitere Infromationen ueber DLC findet man in Eddys Blog (http://41yd.de/blog/2008/11/15/dlc-geknackt/). Danke nochmals an dieser Stelle.

Benoetigte Perl-Module

• Cwd
• LWP::Simple
• MIME::Base64
• Crypt::Rijndael
• File::Basename

Download

• dlc2txt 1.1.0
• dlc2txt-1.0.0.zip

Unter http://pub.fox21.at/dictionary/ gibt es diese Liste. In dieser Liste steht in jeder Zeile ein Wort, nachdem gesucht werden soll. Rainbowcrack ist natuerlich in mancher Hinsicht effezienter. Aber alles hat seine Vor- und Nachteile. Der Nachteil von Rainbowcrack ist, dass er es nur mit einer bestimmten laenge der Woerter aufnehmen kann. Ab 9 Buchstaben dauert die Generierung der Rainbowtables mit einem handelsueblichen PC schon ein paar Jahre. Beim DictionaryCrack koennen die Woerter jedoch beliebig lang sein. Jedoch darf man sich nicht sicher sein, dass ein Wort mit dem DictionaryCrack gefunden wird. Selbst wenn das Wort noch so kurz ist, solange es nicht im Woerterbuch vorkommt, wird es auch nicht gefunden.

Benoetigte Perl-Module

• Digest::MD5

Installation

1. Herunterladen von dictionarycrack-1.0.0.zip und dictionary-001.zip
2. Entpacken mit unzip “*.zip”
3. Rechte setzen mit chmod 755 dictionarycrack.pl install.pl
   
4. Ueberpruefen ob alle Perl-Module installiert sind: ./install.pl

Verwendung

Das DICTIONARYFILE File muss im gleichen Ordner liegen, wie dictionarycrack.pl.

./dictionarycrack.pl DICTIONARYFILE HASH...

Beispiele fuer die Verwendung

Im ersten Beispiel wird die Datei dictionary-001.txt als Woerterbuch verwendet.

./dictionarycrack.pl dictionary-001.txt 5d41402abc4b2a76b9719d911017c592

Im zweiten Beispiel werden alle Dateien im gleichen Ordner verwendet, deren Namen die Zeichenkette “.txt” enthalten.

./dictionarycrack.pl .txt 5d41402abc4b2a76b9719d911017c592

Das dritte Beispiel zeigt, dass dem Script auch mehrere Hashes uebergeben werden koennen.

./dictionarycrack.pl .txt 5d41402abc4b2a76b9719d911017c592 25f9e794323b453885f5181f1b624d0b

Download

• dictionarycrack-1.0.0.zip
• dictionary-001.zip

Installationsanleitung

Download

• hier

Es ist eigentlich ganz einfach. Auf jeder YouTube Seite, z.B. http://www.youtube.com/watch?v=g4uxIo4t7xM, gibt es im HTML Quellcode ein paar JavaScript Variablen, die Flash fuer sich verwendet. Die gesuchte Variable heisst swfArgs.

var swfArgs = {"q": "ghostbusters", "fexp": "900076", "vq": null, "sourceid": "ys",
"video_id": "g4uxIo4t7xM", "l": 297, "sk": "-RplWXYJhe-YnAN5S824RPkvqdQKDg-rC",
"fmt_map": "6/720000/7/0/0,34/0/9/0/115", "usef": 0,
"t": "vjVQa1PpcFPDn9RlUJw_zdoFEddjpuNrJr0crbQDefw=", "hl": "en",
"plid": "AARi8t_zDjFbWjDVAAAAoAAICAA", "cr": "US"};

Darin kommt auch das Argument t vor. In dem Fall waere der Hash vjVQa1PpcFPDn9RlUJw_zdoFEddjpuNrJr0crbQDefw=. Dieser Hash aendert sich jedoch immer, wenn man die Seite neu ladet. Mit jedem Hash kann man das original Video nur einmal herunterladen. Von folgender URL kann man also dann das gewuenschte Video herunterladen.

http://www.youtube.com/get_video?video_id={$id}&t={$t}=&el=detailpage&ps=

{$id} muss durch die Video ID, die auch schon als v im original Link (http://www.youtube.com/watch?v=g4uxIo4t7xM) vorkommt, ersetzt werden. Und {$t} durch den Hash, den wir oben im JavaScript gefunden haben.

Das Script macht genau diese Schritte automatisch.

Benoetigte Perl-Module

• LWP::Simple
• LWP::UserAgent
• HTTP::Request
• HTTP::Request::Common
• HTTP::Response
• File::Basename

Installation

1. Herunterladen von youtube-1.0.0.zip
2. Entpacken mit unzip youtube-1.0.0.zip
3. Damit man die Scripte ausfuehren kann, Rechte mit chmod auf 755 stellen: chmod 755 ./youtube.pl ./install.pl
4. Ausfuehren von ./install.pl um zu sehen, ob alle benoetigten Perl Module installiert sind.

Verwendung unter Linux

./youtube.pl "URL"

oder

./youtube.pl "URL" "URL" "URL"

Verwendung unter Windows

perl youtube.pl "URL"

oder

perl youtube.pl "URL" "URL" "URL"

Der oder die uebergebenen URLs sollten auf jeden Fall unter Hochkomma gestellt werden. Nachdem man dann eines oder mehrere Videos erfolgreich heruntergeladen hat, wird man feststellen, dass sie die Endung .flv haben. Entweder schaut man sich die Videos direkt mit dem Flashplayer an, oder man nimmt das Programm ffmpeg zur Hand und wandelt es in .mpg um.

.flv Konvertierung unter Linux mit ffmpeg

ffmpeg -i movie.flv movie.mpg

Download

• youtube-1.0.0.zip

Man uebergibt einen Link wie z. B. http://www.movie2k.com/movie-38352-His+Name+Was+Jason%3A+30+Years+of+Friday+the+13th.html oder http://www.movie2k.com/movie-38374-96+Hours.html dem Script und es ladet anschliessend alle Filme herunter. Mit ./install.pl kann man nachschauen, ob die noetigen Perl Module installiert sind. Auf http://www.movie2k.com/ muss darauf geachtet werden, dass man beim Alternativlink stream2k.com ausgewaehlt hat. Das Script holt sich naemlich die stream2k.com Links aus dem HTML Source Code. Ich weiss auch nicht, wie sich das Script verhaelt, wenn es fuer eine andere Seite als movie2k.com verwendet wird. Es kann unter Umstaenden nicht funktionieren, da es die .flv-Files (Flash Format) speichert. Am Ende hat man dann ein .flv-File.

Benoetigte Perl-Module

• LWP::Simple
• LWP::UserAgent
• HTTP::Request
• HTTP::Request::Common
• HTTP::Response
• File::Basename

Verwendung

Linux:

./stream2k-com.pl "URL"

Windows:

perl stream2k-com.pl "URL"

Es ist auch nicht schlecht, wenn die URLs mit von “-Zeichen umgeben sind. Wie im obrigen Beispiel. Es koennen auch mehrere URLs uebergeben werden.

./stream2k-com.pl "URL" "URL"

.flv Konvertierung unter Linux mit ffmpeg

ffmpeg -i movie.flv movie.mpg

Download

• stream2k-1.0.0.zip

Man gibt in einem Textfeld einen oder mehrere Links wie http://www.ddl-warez.org/detail.php?id=23430&cat=movies und/oder http://www.ddl-warez.org/detail.php?id=11641&cat=movies an, und bekommt dann die direkten RapidShare Links. Die Links muessen mit einem Zeilenumbruch getrennt werden. Also pro Zeile ein Link. Es bleibt einem jedoch nicht erspart, die Captcha Bilder einzugeben. Aber es ist dennoch eine Hilfe, da nicht alle Links von Hand heraus kopiert werden muessen. Am Ende hat man alle RapidShare Links in einem Textfeld. Es kann vorkommen, dass das Script etwas laenger ladet, da alle Links mit einem POST Request aufgerufen werden, damit die RapidShare Links geparst werden koennen. Bei 36 Parts kann es dann schon einmal vorkommen, dass es laenger braucht.

Benoetigte Perl-Module

• CGI
• LWP::Simple
• LWP::UserAgent
• HTTP::Request
• HTTP::Request::Common
• HTTP::Response
• URI::Escape

Installation

1. Herunterladen von ddllinks-1.0.0.zip (siehe ganz unten)
2. Entpacken mit unzip ddllinks-1.0.0.zip (oder unter Windows mit einem anderen Tool)
3. Rechte setzen: chmod 755 ddllinks.pl install.pl
4. Mit ./install.pl kann man ueberpruefen ob die noetigen Module, auf dem Rechner installiert sind. Sind sie nicht installiert, fragt einem das Script, ob man die fehlenden Module nach installieren will. install.pl muss ueber die Konsole ausgefuehrt werden.
5. Damit ddllinks.pl auch mit den Browser funktioniert, muss das Script eventuell auf ddllinks.cgi umbenannt werden und in einen CGI-Ordner (/cgi-bin/) verschoben werden. Andernfalls eine .htaccess im gleichen Ordner anlegen und Options +ExecCgi hinein schreiben.
6. Fertig. Jetzt kann mit dem Browser auf die ddllinks.pl zugeriffen werden.

Download

• neuere Versionen
• ddllinks-1.4.0.zip
• ddllinks-1.3.0.zip
• ddllinks-1.2.0.zip
• ddllinks-1.1.0.zip
• ddllinks-1.0.0.zip

Man gibt in einem Textfeld einen oder mehrere Links wie http://serienjunkies.org/?cat=43 und/oder http://serienjunkies.org/?p=108 an, und bekommt dann die direkten RapidShare Links. Die Links muessen mit einem Zeilenumbruch getrennt werden. Also pro Zeile ein Link. Es bleibt einem jedoch nicht erspart, die Captcha Bilder einzugeben. Aber es ist dennoch eine Hilfe, da nicht alle Links von Hand heraus kopiert werden muessen. Zwischen den einelnen Links sollte man jedoch eine gewisse Zeit warten, weil es sonst vorkommen kann, dass serienjunkies.org die eigene IP Adresse sperrt. Am Ende hat man alle RapidShare Links in einem Textfeld. Wenn serienjunkies.org nicht erreichbar ist, braucht das Script lange zum Laden.

Benoetigte Perl-Module

• CGI
• LWP::Simple
• LWP::UserAgent
• HTTP::Request
• HTTP::Request::Common
• HTTP::Response

Installation

1. Herunterladen von sjlinks-1.0.0.zip
2. Entpacken mit unzip sjlinks-1.0.0.zip (oder unter Windows mit einem anderen Tool)
3. Rechte setzen: chmod 755 sjlinks.pl install.pl
4. Mit ./install.pl kann man ueberpruefen ob die noetigen Module, auf dem Rechner installiert sind. Sind sie nicht installiert, fragt einem das Script, ob man die fehlenden Module nach installieren will. install.pl muss ueber die Konsole ausgefuehrt werden.
5. Damit sjlinks.pl auch mit den Browser funktioniert, muss das Script eventuell auf sjlinks.cgi umbenannt werden und in einen CGI-Ordner (/cgi-bin/) verschoben werden. Andernfalls eine .htaccess im gleichen Ordner anlegen und Options +ExecCgi hinein schreiben.
6. Fertig. Jetzt kann mit dem Browser auf die sjlinks.pl zugeriffen werden.

Download

• sjlinks-1.0.0.zip

Aber wie funktioniert das Ganze? Das Modul LWP::Simple enthaelt die Funktion head(). Dieser einen URL uebergeben, und sie schickt die HTTP-Request-Methode HEAD (Bruder von GET und POST) an die angegebene URL. Die Funktion bekommt nur den HTTP-Header zurueck, und nicht den eigentlichen Inhalt. Somit kann ganz einfach ueberpruefen werden, ob man die Dateien noch herunterladen kann oder nicht. Sind alle Links OK, wird All: OK angezeigt. Alle Links, die nicht mehr gueltig sind, werden als FAILT angezeigt. Das Script ist extra fuer rapidshare.com ausgelegt. Zwar koennen auch andere Links eingegeben werden, aber dann koennte das Ergebnis nicht stimmen. Ist die content-length vom HTTP-Header kleiner als 10000 Byte, wird der Link als ungueltig angezeigt. Dieses Limit kann natuerlich beliebig angepasst werden. Zum Beispiel wird bei einem Link FAILT angezeigt, der auf eine Seite zeigt, die weniger als 10000 Bytes beinhaltet. Da aber die meisten RapidShare-File 100 MB haben, kann man damit genau feststellen, ob Dateien noch gueltig sind. Es darf nur ein Link pro Zeile angegeben werden.

Benoetigte Perl-Module

• CGI
• LWP::Simple

Installation

1. Herunterladen von rscheck-1.0.0.zip
2. Entpacken mit unzip rscheck-1.0.0.zip
3. Rechte setzen, damit der HTTP-Prozess dieses Script ausfuehren kann: chmod 755 install.pl rscheck.pl
4. Mit ./install.pl kann man ueberpruefen ob die noetigen Module, in dem Fall CGI und LWP::Simple, auf dem Rechner installiert sind. Sind sie nicht installiert, fragt einem das Script, ob man die fehlenden Module nach installieren will. install.pl muss ueber die Konsole ausgefuehrt werden.
5. Damit rscheck.pl auch mit den Browser funktioniert, muss das Script eventuell auf rscheck.cgi umbenannt werden und in einen CGI-Ordner (/cgi-bin/) verschoben werden. Andernfalls eine .htaccess im gleichen Ordner anlegen und Options +ExecCgi hinein schreiben.
6. Fertig. Jetzt kann mit dem Browser auf die rscheck.pl zugeriffen werden.

Download

• rscheck-1.0.0.zip

Ich hab’s mit allen moeglichen Tricks probiert. STDIN, STDOUT und STDERR nach nul (unter Windows nur mit einem L) umleiten, fork(), von einem anderen Script aus mit open eine Pipe oeffnen, mit cmd.exe /C und mit start /B. Und auch all’ diese verschiedenen Moeglichkeiten kombiniert. Aber nichts funktioniert. Ich kann mich an Visual Basic erinnern. Sogar das kann Prozesse komplett im Hintergrund starten. Aber es liegt nicht an Perl, dass die Windows Commandline so beschissen ist. Das zeigt, dass die Linux Shell sehr maechtig ist. Wofuer gibt es dann unter Windows eigentlich cmd.exe, wenn sie nichts kann? Das ist wie der Blinddarm im menschlichen Koerper. Es muss doch eine Moeglichkeit geben, um ganz einfach einen Prozess im Hintergrund rennen zu lassen. Ich will nicht extra Module installieren muessen, nur um dieses Problem zu loesen. Selber schuld, wieso verwend’ ich auch Windows?

Schliesslich blieb mir doch nichts anderes ueber, als ein vorhandenes Perl-Modul fuer diesen Job zu installieren. Jedoch bevor ich ein passendes Modul gefunden hatte, probierte ich folgende Module aus: Daemon::Easy, Working::Daemon, Win32::Console und Proc::Background. Alle haben eines gemeinsam: POSIX::setsid(). ERROR: POSIX::setsid not implemented on this architecture. Will man setsid() unter Windows XP verwenden, wird diese Fehlermeldung angezeigt. Win32::Process war dann schliesslich des Raetels Loesung. Die anderen Module starten zwar auch einen Prozess im Hintergrund, aber sobald cmd.exe beendet wird, werden auch alle anderen Prozesse beendet, die ueber diese Console gestartet worden sind. Win32::Process startet naemlich einen richtigen Hintergrundprozess, vorausgesetzt das cFlag ist DETACHED_PROCESS.

use Win32::Process;
Win32::Process::Create(
	my $proc,
	$^X,
	'perl run.pl',
	1,
	DETACHED_PROCESS,
	'.'
) || die "Win32::Process::Create failed\n";

Benoetigte Perl-Module

• File::Basename
• Win32::Process

Download

• windaemon-1.1.0.zip
• windaemon-1.0.0.zip

Wobei UDP zu TCP und TCP zu UDP nicht so reibungslos funktioniert wie zwei Verbindungen der gleichen Art. Natuerlich koennen auch mehrere Verbindungen gleichzeitig mit ein und dem selben Server hergestellt werden. Wenn sich ein neuer Client verbindet, wird dafuer ein eigener Socket erstellt. In der tcppipe.conf Datei, die auch in der zip-Datei enthalten ist, befindet sich ein Beispiel zum Testen. Wenn man die conf-Datei unveraendert laesst und tcppipe.pl startet, wird am lokalen Computer ein TCP Server auf Port 2102 erstellt. Wenn man dann mit dem Browser auf http://localhost:2102/ schaut, wird man feststellen, dass meine Seite erscheint. Die Anfragen an localhost:2102 werden also auf fox21.at:80 weitergeleitet. Die Konfigurationsdatei (tcppipe.conf) kann man natuerlich beliebig anpassen. Wenn localhost (= 127.0.0.1, Loopback) fuer den lokalen Server verwendet wird, dann kann man nur vom selben Computer darauf zugreifen. Nicht aber von einem Anderen. Wenn von jedem Computer im Netzwerk darauf zugegriffen werden darf, muss man fuer die lokale IP-Adresse z.B. 192.168.241.21 verwenden. Kommt darauf an, welche IP-Adresse der Computer im Netzwerk hat. Verwendet man 0.0.0.0 als lokale IP-Adresse fuer den Server, so wird auf allen Interfaces gelauscht (LISTEN). Dieses Script funktioniert auch mit ActivePerl. Es benoetigt die Module IO::Select, IO::Socket::INET und Time::HiRes.

Benoetigte Perl-Module

• IO::Select
• IO::Socket::INET
• Time::HiRes

Konfiguration

• Jeder server-Block muss einen client-Block enthalten.
• Die ip, egal ob im server- oder im client-Block muss folgendes Format haben: host:port

Flags

Hier ist eine Liste mit den Bedeutungen des flags-Feldes, das in jedem server- und client-Block vorkommen sollte:

• a = active: Wenn kein a vorkommt, wird der Server nicht erstellt. Damit kann man ganz einfach den Server ein- und ausschalten. Natuerlich wird dann auch kein Client erstellt. Was das a im Client-Block ueberfluessig macht.
• t oder u: TCP oder UDP. Das t steht fuer TCP und das u fuer UDP. Schreibt man beides in das gleiche flags-Feld, so wird TCP verwendet.
• s, c oder l = server, client und lokal client: Jeder Server hat intern eine s-Flag und jeder Client ein c-Flag. Cienten, die zum lokalen Server verbunden sind, haben ein l-Flag (kleines L). Diese 3 Flags sind jedoch fuer die Konfigurationsdatei unwichtig, da sie nur intern in der Funktion parseConfig vergeben werden. Und natuerlich auch, wenn ein neuer Socket erstellt wird.

Download

• tcppipe-1.0.0.zip

Benoetigte Perl-Module

• DBI

Installation

1. Mit User root einloggen (optional)
2. Herunterladen des Scripts
3. Entpacken mit unzip mkbak.mysql-1.0.0.zip
4. Rechte aendern, damit niemand anders das Script ausfuehren und lesen kann: chmod 700 mkbak.mysql.pl
5. Configuration: Nach dem Kommantar # CONFIG START gibt es ein paar Einstellungen, die man aendern sollte. Die Variable $DBUSER sollte man auf root lassen, damit alle Datenbanken exportiert werden. Die Variable $DBPASS muss das MySQL-Root-Passwort enthalten. Und die 3. Variable, die man aendern sollte, ist $BAKDIR. Dort hinein werden dann die Backup-Files gespeichert. Als Standard ist jetzt ~/mysql_backup eingestellt. Diesen Ordner sollte man auch auf chmod 700 setzen, damit niemand anders auf die MySQL-Files zugreiffen kann. Wenn man RAR installiert hat, kann man noch optional die Variable $RAR setzten. Sollte sich das Tar-Programm nicht unter /bin/tar befinden, so kann man es auch aendern. Genau so auch mit GZip ($GZIP).
6. Wenn man sich bei Schritt 1 nicht mit root eingeloggt hat, muss man die Datei /var/log/mkbak.mysql.log haendisch mit dem User root erstellen und die Rechte richtig setzen. Oder man aendert den Logfile-Pfad auf einen Eigenen. Z.B. auf ./mkbak.mysql.log
7. Jetzt kann man den ersten Test machen: ./mkbak.mysql.pl
8. Danach schaut man sich das Logfile (/var/log/mkbak.mysql.log) an, ob irgendwelche Fehler aufgetretten sind.
9. Optional kann man folgende Zeile zu den Cronjobs hinzufuegen, damit jeden Tag um 00:00 Uhr das Script ausgefuehrt wird: 0 0 * * * /path/to/the/mkbak.mysql.pl

Download

• mkbak.mysql-1.0.0.zip

Benoetigte Perl-Module

• Image::Imlib2

Download

• mandelbrot.zip