Scripting Web/Netzwerk

Wiki ‹ Scripting ‹ Scripting Web/Netzwerk

Scripting / Scripting Web / Netzwerk

---

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)

1. 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

---

Scripting / Scripting Web / Netzwerk