Commands for IO::Socket

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi.

Using IO::Socket, I've managed to make this perl script that acts like a super super small web server. What it does, is it opens port 8000 on my comp, and when a person requests for my ip with the 8000 port number, it will print out to the client an html page.

If the client, for example types: 24.232.109.10:8000/aaa.mp3

Is there a command that I can use to get the last part of the url that the user typed (in this case aaa.mp3)?

Thanks,
Ralph :)

Comment on Commands for IO::Socket

Replies are listed 'Best First'.
Re: Commands for IO::Socket by zigster (Hermit) on Feb 15, 2001 at 23:28 UTC
Use HTTP::Demon As mr Merlyn says it does everything that you want (and much of what you have already done) specifically if you look at the example on the web page here you will see code sample that does what you want I reproduce it below, slightly modified. `use HTTP::Daemon; use HTTP::Status; my $d = new HTTP::Daemon; print "Please contact me at: <URL:", $d->url, ">\n"; while (my $c = $d->accept) { while (my $r = $c->get_request) { if ($r->method eq 'GET' and $r->url->path eq "/aaa.mp3") { $c->send_file_response("aaa.mp3"); } else { $c->send_error(RC_FORBIDDEN) } } $c->close; undef($c); }` [download] Remember next time tho to look for a wheel before you build one. grins good coding. -- Zigster	[reply] [d/l]
Re: Commands for IO::Socket by merlyn (Sage) on Feb 15, 2001 at 23:08 UTC
OK, I'm still wondering what part of HTTP::Daemon you are now reinventing, and why? -- Randal L. Schwartz, Perl hacker	[reply]
Re: Commands for IO::Socket by Anonymous Monk on Feb 16, 2001 at 04:43 UTC
wait... using zigster's code, what i want to do works perfect. thanks!! i don't know why i didn't realize that. ralph :)	[reply]
Re: Re: Commands for IO::Socket by blueflashlight (Pilgrim) on Feb 20, 2001 at 10:45 UTC
hmmm.... I hope I don't get jumped on here, but perhaps (s)he is not using the HTTP::Daemon module because (s)he is trying to learn a new way of doing something. I'm nowhere near being "just another perl hacker"; I'm more like "learning as much as I can so some day maybe I can be just another perl hacker." Often I find myself doing things the "hard" way instead of using Module::that::does::everything::you::want because if I just use the module, how will I improve my knowlege and skill? (ignore me if what's I've said sounds stupid.)	[reply]
Re: Commands for IO::Socket by Anonymous Monk on Feb 16, 2001 at 04:36 UTC
the thing is that with http::daemon i can't serve files to the client. that's why i'm using io::socket. unless somebody know how to do it. isn't there a command in the io::socket module?? ralph.	[reply]
Re: Re: Commands for IO::Socket by merlyn (Sage) on Feb 16, 2001 at 04:39 UTC
What part of this are you missing in the HTTP::Daemon documentation? `$c->send_file_response($filename) Send back a response with the specified $filename as content. If the file is a directory we try to gener- ate an HTML index of it.` [download] And ziggy put a nice example of that as well! -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
Re: Commands for IO::Socket by SilverB1rd (Scribe) on Feb 16, 2001 at 00:44 UTC
Nice IP address! most likely dsl, maybe cable.	[reply]

Back to Seekers of Perl Wisdom