Am Sun den 15 Jul 2001 um 02:24:18PM +0200 schrieb Hilmar Preusse:
On 09.07.01 Hilmar Preusse (hille@rudi.urz.tu-dresden.de) wrote:
Moin,
Auf http://www.mkssoftware.com/products/tk/commands.asp?product=tkdev wird eine Ansammlung von Tools beschrieben, die im Wesentlichen eine Backportierung von UNIX-Tools auf W$ darstellen. Daran interessiert mich das Programm web(1). Wo finde ich das UNIX-Original, kennt das jemand oder ist das durch nc(1) und die dazugehörigen Skripte abgelöst worden?
Nun, da bis jetzt noch keine Antwort kam, hab ich nochmal mit dem Projektleiter gesprochen, was er eigentlich wirklich will. Situation: Eine ganze Latte IP-Phones (40 Stücke), die zentral gewartet werden sollen. Die haben zum Netz Port 80 offen, können also mit einem ganz normalen Browser reden. Darum funktioniert bisher der interaktive Weg: Browser auf, Config ändern, Browser zu. Jetzt wollen wir das Zeug verskripten, also: telnet auf Port 80, Authentifizierung, Befehle eingeben und wech. Wir suchen also konkret ein non-interaktives Telnet. Stöbern in meinem privaten lug-dd-Archiv förderte zwei Ansätze zu Tage: expect und Net::Telnet.
Wie wäre es denn mit einem richtigen http user agent? Da gäbe es z.B. use LWP::UserAgent; use HTTP::Request; use HTTP::Response; my $url = "$stats_url_pre/$contest/$stat_member_url"; my $ua = LWP::UserAgent->new(); $ua->agent("Homebuilt LogParser/v0.0.2"); my $req = HTTP::Request->new(GET => $url); $req->referer("http://rudi.urz.tu-dresden.de/rc5/"); my $response = $ua->request($req); my $dnet_data = $response->content() or die "kann...";
Für posts gibt es sicher auch ein passendes Modul.
andre
H.
#if _FP_W_TYPE_SIZE < 32 #error "Here's a nickle kid. Go buy yourself a real computer." #endif -- linux/arch/sparc64/double.h
Muss ich mir merken. Aber 'n nickle reicht da nicht.
andre