Scripting Web/Netzwerk
Aus DebianforumWiki
|
Lizenz: Dieser Artikel wurde als problematisch in Bezug auf der Lizenz markiert, dafür kann es verschiedene Gründe geben:
Bitte hilf mit alle diese Fragen zunächst zu klären, danach kann dieser Hinweis entfernt werden. |
|
Review: Dieser Artikel ist für das Review freigegeben.
|
Scripting / Scripting Web / Netzwerk
Inhaltsverzeichnis |
Sources.list im Netzwerk verteilen (Perl)
(by godsmacker) (19.12.04)
|
Warnung: Vorsicht: Sehr quick und sehr dirty |
Das Skript erzeugt eine 'named pipe' in /etc/apt/sources.list und holt diese Liste immer von einer URL, sobald darauf zugegriffen wird. Es verdaut an URLs alles, was LWP verdaut. Also HTTP, FTP, etc..
use strict; use warnings; use LWP::Simple; chdir '/etc/apt/' or die; my $FIFO = 'sources.list'; for (;;) { unless (-p $FIFO) { system('mknod', $FIFO, 'p') && die "can't mknod $FIFO: $!"; } open (FIFO, ">$FIFO") or die "can't write to $FIFO: $!"; print FIFO get('http://some.host.name/sources.list'); close FIFO; sleep 1; }
Verbindungsinformationen für ipppX (Perl)
Dieses Script hat eine eigene Seite: IpppStatus
RDF Script [PHP]
Dieses Script hat eine eigene Seite: RdfScript
Pop3 Checker (Python)
(by hupfdule)
Holt die Headerzeilen aller E-Mails eines Pop3 Servers.
Dieses Script hat eine eigene Seite: PopChecker
Google-Translator Script (Shell)
(by Chimerer)
################################# #Google-Translator Script by Chimerer # ################################# if [ -z "$1" -o -z "$2" ] then echo -e "Usage: ./$0 \"expression to translate\" \"lang-lang\"\nPossible values for lang-lang are de-en (deutsch-englisch)" echo -e "\t\t\t\t en-de (englisch-deutsch)" echo -e "\t\t\t\t en-es (englisch-spanisch)" echo -e "\t\t\t\t en-fr (englisch-französisch)" echo -e "\t\t\t\t en-it (englisch-italienisch)" echo -e "\t\t\t\t en-pt (englisch-portugiesisch)" echo -e "\t\t\t\t de-en (deutsch-englisch)" echo -e "etc." exit 1 fi lynx -source "http://translate.google.com/translate_t?text=`echo $1 | tr " " "+"`&langpair=`echo $2 | tr '-' '|'`" | cut -f 8 -d "<" | grep ^textarea | cut -c 46- exit 0
Google-Ranking Script (Shell)
(by Chimerer)
################################# #Google-Ranking Script by Chimerer # ################################# IFS="" for i in $* do zahl=`lynx -source http://www.google.com/search?q=%22$i%22 | grep 'of about' | sed "s/.*of about <b>//;s/<\/b>.*//" | tr -d ",."` echo "$zahl $i" >> .tosort done cat .tosort | sort -nr | awk '{printf("%s %s\t\t%s Einträge\n", $2, $3, $1);}' | nl rm .tosort
Rekursiv Bilder (jpeg) einer Website runterladen (Shell)
user@debian:~$ wget -r -A.jpg http://www.debian.de
DynDNS Client (Shell)
- robert tulke, rt@debianer.org
domain=linux.dnsalias.org user=thomasd pass=123456789 oldip=`ping -c 1 $domain | grep "PING" | awk '{print $3}' | sed 's/://;s/(//;s/)//'` newip=`wget -q -O - http://checkip.dyndns.org/index.html | awk {'print $6'} | sed 's/<.*$//'` if [ $oldip = $newip ]; then echo "No new IP ($newip)"; exit 0 else echo "old IP $oldip"; echo "new IP $newip"; result=`wget -q http://$user:$pass@members.dyndns.org/nic/update?hostname=$domain -q -O - | awk {'print $2'}` echo "set IP $result" exit 0 fi
