How to check for string in part of a form

[countrydj]

I have a form for adding a notice to a notice board which is passed to a perl script.
I am constantly being inundated with spam url links on a notice board which I want to stop.

Can anybody tell me how I can check the form $notice for the first occurance of http:// and https:// and www. In order to block these notices.

In PHP I can use:
$pos = strpos($notice, "

http://");

if ($pos !== false) {
URLs not allowed ;
}

I now need to do the same thing in Perl.

Thanks,

John C

 

[feherke]

Hi

[gray]# In Perl you can use:[/gray]
$pos = strpos($notice, "[URL unfurl="true"]http://");[/URL]
if ($pos < 0)  {
  print "URLs not allowed" ;
}

http://perldoc.perl.org/functions/index.html

[gray]# or[/gray]
print "URLs not allowed" if ($notice=~m/http:\/\//);

http://perldoc.perl.org/functions/m.html

Feherke.

http://rootshell.be/~feherke/

 

[countrydj]

Hi feherke...
Boy !!! That was quick !!! Thanks very much...

I will need to test 3 or 4 strings.
e.g. http:\\ and www. and https\\

Can you tell me how to do this.

e.g.
$pos1 = strpos($notice, "

http://");

$pos2 = strpos($notice, "

https://");

$pos3 = strpos($notice, "

http://www.");

if (($pos1 < 0) or ($pos2 < 0) or ($pos3 < 0)) {
print "URLs not allowed" ;
}

I'm not sure what the operator is for 'or'.

Many thanks,

John C

 

[feherke]

Hi

I'm not sure what the operator is for 'or'.

Then read about or in the manual. But that is Ok.

I would prefer checking that with regular expression :

print "URLs not allowed" if $notice=~m/https?:\/\/|[URL unfurl="true"]www/;[/URL]

Feherke.

http://rootshell.be/~feherke/

 

[MillerH]

print "URLs not allowed" if $notice=~m/https?:\/\/|[URL unfurl="true"]www/;[/URL]

Definitely agree that pattern matching is better in this instance. However, slight cleanup of your code:

print "URLs not allowed" if $notice =~ m{https?://|[URL unfurl="true"]www\.}i;[/URL]

- Miller

 

[feherke]

Hi

Ah, that [tt]i[/tt]. My paranoia level was unusually low. Thank for the improvement.

Feherke.

http://rootshell.be/~feherke/

 

[countrydj]

Hi Guys..
Many thanks for taking the trouble to help me.
After all my tests I found that:
$pos = strpos($notice, "

http://");

if ($pos < 0) {
print "Content-Type: text/html\r\n\r\n";
print "URLs not allowed" ;
}
didn't work. It just kept giving me a server error.

I used:
print "URLs not allowed" if $notice =~ m{https?://|www\.}i;
with a slight modification to:
if (($notice=~m/http:\/\//) || ($notice=~m/https:\/\//))

{
&no_url;
}
and this worked fine.
I then decided to try:
if ($notice =~ m{https?://|

http://www\.}i)

{
&no_url;
}
and I found that this worked even better, BUT I DON'T KNOW WHY.

I found that it trapped http; https; www. which is exactly what I wanted.
Can you tell me what all the operators do so that I can maybe get a better understanding.

Many thanks

 

[MillerH]

Everything you need to know should be covered in here:

http://perldoc.perl.org/perlrequick.html

And when you're ready, start learning this too:

http://perldoc.perl.org/perlretut.html

- Miller

 

[feherke]

Hi

Ooch ! In my first post I gave you correct URL to the manual but I forgot to use the referred function in the code too. Sorry.

$pos = [red]index[/red]($notice, "[URL unfurl="true"]http://");[/URL]

Feherke.

http://rootshell.be/~feherke/

 

[countrydj]

Hi Guys..
many thanks for your help and advise.
I will have a look at the documents when I get time, and try the revised code.

Thanks again...

John C