---

hejsa
jeg sidder og roder med at få lavet en et script der skal lave en
forbindelse til port 80 på en webserver og sende en GET request.

Der må IKKE bruges LWP::UserAgent eller lignende, og jeg er kommet frem
til noget ala følgende:
my $connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=>
"$ARGV[0]",PeerPort=>"80");
unless ($connect) { die "cant connect $ARGV[0]" }
print $connect "GET http://".$fill1."/".$fill2." HTTP/1.0\r\n\r\n";


men det laver bare ikke en forbindelse/request (ifølge min apache
accesslog)

Nogen der har en ide til hvad der kan være galt?

MVH
Kim
--
Vitamin C deficiency is apauling.

---

Kim Schulz <kim@schulz.dk> writes:

> Der må IKKE bruges LWP::UserAgent eller lignende, og jeg er kommet frem
> til noget ala følgende:

Hvorfor så bruger perl?

> men det laver bare ikke en forbindelse/request (ifølge min apache
> accesslog)

Skriver den noget i din error_log?

Følgende kodestump virker for mig:

#!/usr/bin/perl

use IO::Socket::INET;

my $connect = IO::Socket::INET ->new (Proto=>"tcp",
             PeerAddr=> "$ARGV[0]",
             PeerPort=>"80");
unless ($connect) { die "can't connect $ARGV[0]" }
print $connect "GET / HTTP/1.0\n";
print $connect "Host: xyzzy.adsl.dk\n";
print $connect "\n";

print <$connect>;

--
http://peter.makholm.net/

---

Peter Makholm wrote:
>
> Kim Schulz <kim@schulz.dk> writes:
>
> > Der må IKKE bruges LWP::UserAgent eller lignende, og jeg er kommet frem
> > til noget ala følgende:
>
> Hvorfor så bruger perl?


Fordi at LWP::UserAgent har errorhandling i og da jeg er ved at lave et
script for et firma der skal have scannet en bunke IIS servere for fejl,
så hjælper det ikke at scriptet brokker sig over at min request url ikke
er korrekt (det er jo netop det som er meningen).


> > men det laver bare ikke en forbindelse/request (ifølge min apache
> > accesslog)
>
> Skriver den noget i din error_log?
>
> Følgende kodestump virker for mig:
>
> #!/usr/bin/perl
>
> use IO::Socket::INET;
>
> my $connect = IO::Socket::INET ->new (Proto=>"tcp",
> PeerAddr=> "$ARGV[0]",
> PeerPort=>"80");
> unless ($connect) { die "can't connect $ARGV[0]" }
> print $connect "GET / HTTP/1.0\n";
> print $connect "Host: xyzzy.adsl.dk\n";
> print $connect "\n";
>
> print <$connect>;


hmm jeg ser på det!


takker !


MVH
Kim

--
A woman's best protection is a little money of her own.
      -- Clare Booth Luce, quoted in "The Wit of Women"

---

On Sun, 12 Aug 2001 11:17:50 +0200, Kim Schulz wrote:

>>> Der må IKKE bruges LWP::UserAgent eller lignende, og jeg er
>>> kommet frem til noget ala følgende:

>> Hvorfor så bruger perl?

> Fordi at LWP::UserAgent har errorhandling i og da jeg er ved at lave
> et script for et firma der skal have scannet en bunke IIS servere
> for fejl, så hjælper det ikke at scriptet brokker sig over at min
> request url ikke er korrekt (det er jo netop det som er meningen).

Jeg læste flg. annoncering for nylig - jeg véd ikke om den er relevant
for din opgave, men måske?

= = =
From: Ilya Martynov <ilya@martynov.org>
Subject: [ANNOUNCE] HTTP::WebTest 1.06
Newsgroups: comp.lang.perl.announce,comp.lang.perl.modules
X-Sent: 23 hours, 59 minutes, 14 seconds ago
Organization: Central Telegraph Moscow Russia


The URL

http://martynov.org/tgz/HTTP-WebTest-1.06.tar.gz

has entered CPAN as

file: $CPAN/authors/id/I/IL/ILYAM/HTTP-WebTest-1.06.tar.gz
size: 60811 bytes
md5: 991300e6ea655d90b34b8fcadde3e9fd

NAME
HTTP::WebTest - Test remote URLs or local web files

DESCRIPTION
This module runs tests on remote URLs or local web files containing
Perl/JSP/HTML/JavaScript/etc. and generates a detailed test report.
[...]
= = =


Mvh.

--
"A splendid time is guaranteed for all" Adam Sjøgren
asjo@koldfront.dk

---

Kim Schulz <kim@schulz.dk> writes:

> Fordi at LWP::UserAgent har errorhandling i og da jeg er ved at lave et
> script for et firma der skal have scannet en bunke IIS servere for fejl,

Lidt offtopic, men hvis fejlen har noget med "Code Red" at gøre så er
dette måske en løsning:
http://www.eeye.com/html/Research/Tools/codered.html

---

Thomas Jespersen wrote:
>
> Kim Schulz <kim@schulz.dk> writes:
>
> > Fordi at LWP::UserAgent har errorhandling i og da jeg er ved at lave et
> > script for et firma der skal have scannet en bunke IIS servere for fejl,
>
> Lidt offtopic, men hvis fejlen har noget med "Code Red" at gøre så er
> dette måske en løsning:
> http://www.eeye.com/html/Research/Tools/codered.html

Code Red I+II+III
null.printer
idq
propfind
osv.


Den scanner for en hel del forskellige ting.

MVH
Kim


--
We don't like their sound. Groups of guitars are on the way out.
      -- Decca Recording Company, turning down the Beatles, 1962

---

Kim Schulz <kim@schulz.dk> writes:

> hejsa
> jeg sidder og roder med at få lavet en et script der skal lave en
> forbindelse til port 80 på en webserver og sende en GET request.
>
> Der må IKKE bruges LWP::UserAgent eller lignende, [...]

Hvorfor?


- ask

--
ask bjoern hansen, http://ask.netcetera.dk/ !try; do();

---

On 15 Aug 2001 18:23:41 -0700, Ask Bjoern Hansen <ask@netcetera.dk>
wrote:

>> Der må IKKE bruges LWP::UserAgent eller lignende, [...]
>Hvorfor?

<news:3B7649BE.4E21A560@schulz.dk> ?

--
- Peter Brodersen