[Nms-cgi-devel] Re: with reference to last email I sent.

[Dave C. <da...@da...>]

Thanks. Forwarded that to the developers too.

Dave...

On Sun, Feb 16, 2003 at 04:41:27PM +0000, Ricky Chan (ric...@br...) wrote:
> A revised patch..
> 
> Took the unpack out of loop as that would have broken after the first test.
> 
> Ricky
> 
> --- FormMail.pl.orig    Mon Jan 27 21:02:01 2003
> +++ FormMail.pl Sun Feb 16 16:36:29 2003
> @@ -242,4 +242,8 @@
> 
>      $refHost = $2;
> +    my $ref_host = inet_aton($refHost);
> +    if( $ref_host) {
> +      $ref_host = unpack "l", $ref_host;
> +    }
> 
>      foreach my $test_ref (@referers) {
> @@ -249,6 +253,5 @@
>        }
>        elsif ( $secure && $test_ref =~ 
> /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ ) {
> -        if ( my $ref_host = inet_aton($refHost) ) {
> -          $ref_host = unpack "l", $ref_host;
> +        if ( $ref_host ) {
>            if ( my $test_ref_ip = inet_aton($test_ref) ) {
>              $test_ref_ip = unpack "l", $test_ref_ip;
> 

-- 
  It was long ago and it was far away
  And it was so much better that it is today