Can somebody help me with PERL? I'm working on a voting system for a member of MyWebs, and I need to allow members to vote only once. I'm using IPs for this. After each vote, I append the IP address to a file, and then record the vote. The next time, it's supposed to use regex to search for the same IP address, and if it exists, refuse the vote. Here's the code I'm using:

Code open(IPS,"$openlk") or die "$!"; $ips = <IPS3>; close (IPS3); if($ips =~ /$ENV{REMOTE_ADDR}/i){ error('You can\'t vote twice!'); }else{ open(IPS3,">>$openlk") or die "$!"; print IPS3 "$ENV{REMOTE_ADDR}|"; close (IPS3); }

Every time it just lets the visitor through. Could someone tell me what's going wrong here? Thanks!

I could help but I would need the full code not just a snippet.
If want me to look I will pm you my email address.

Here's the code:

I need all of it, html etc etc so I can test it. At the moment all I get is a page that says "You are missing some information"

I have pm'd you my email address.