Using URI::Find to detect Web URL's

[\Dandy\ Randy]

A while back I added a post about URL detection. To date I have not been
able to figure it out. There seems to be very little docu. on this. This is
what I'm trying to do. I have an html web page with a single textarea form
named "content" The form action points to my detect.pl script.

#!/usr/bin/perl
use URI::Find;

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$name} = $value;
}

$htmlcontent = $form{'content};
$htmlcontent=~ s/\n/<br>/g; #replaces breaklines with html <br>'s

<Missing URL detection code goes here>

open (FILE, ">data/content.txt") or &error("Unable to open");
flock FILE, 2;
print FILE $htmlcontent; #final scanned/replaced variable
close(FILE);

So basically what I'm looking to do is assign the form data to a variable,
then scan it for web AND email addressed, and repleace them with the needed
HTML tags ... <a href ... <mailto ... etc. ect. Then the changed data gets
saved to a text file, where I use SSI to include the data into my page.
Points to note would be the form data will almost always contain multipul
lines and perhaps multipul occurances of web addressed. Can someone please
help me fill in the missing code? TIA!!!!!

Randy

[John Bokma]

"Dandy" Randy wrote:

> A while back I added a post about URL detection. To date I have not been
> able to figure it out. There seems to be very little docu. on this. This is
> what I'm trying to do. I have an html web page with a single textarea form
> named "content" The form action points to my detect.pl script.
>
> #!/usr/bin/perl
> use URI::Find;
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);
> foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $form{$name} = $value;
> }
>
> $htmlcontent = $form{'content};

Amazing, this could be done with 2 lines using CGI.pm. Don't write your
own decoding stuff.

> $htmlcontent=~ s/\n/<br>/g; #replaces breaklines with html <br>'s
>
> <Missing URL detection code goes here>
>
> open (FILE, ">data/content.txt") or &error("Unable to open");

No need for that & IIRC

> flock FILE, 2;

use Fnctl; to make is more readable (named constants instead of 2)
Also, I guess you should rewind since someone could have added between
the open and flock IIRC.

Finally, flock can fail...

> print FILE $htmlcontent; #final scanned/replaced variable
> close(FILE);

You should test if close succeeds. Even print for that matter.

> So basically what I'm looking to do is assign the form data to a variable,

I recommend CGI.pm for this

> then scan it for web AND email addressed, and repleace them with the needed
> HTML tags ... <a href ... <mailto ... etc. ect. Then the changed data gets
> saved to a text file, where I use SSI to include the data into my page.

Sounds dangerous to me.

--
Kind regards, feel free to mail: mail(at)johnbokma.com (or reply)
virtual home: [url]http://johnbokma.com/[/url] ICQ: 218175426
John web site hints: [url]http://johnbokma.com/websitedesign/[/url]

[John Bokma]

Eric Schwartz wrote:

> my $cgi = CGI->new;

Cool to see others doing this as well. I consider using $query rather
foolish in most cases :-). Using $cgi promotes self documenting code

--
Kind regards, feel free to mail: mail(at)johnbokma.com (or reply)
virtual home: [url]http://johnbokma.com/[/url] ICQ: 218175426
John web site hints: [url]http://johnbokma.com/websitedesign/[/url]