Select Code to Download

Select or download this

[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword foun
+d where operator expected at (eval 59) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing op
+erator before www?)
...
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing op
+erator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword foun
+d where operator expected at (eval 67) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing op
+erator before www?)

Select or download this
```
#!/usr/bin/perl -a
```

Select or download this

# First location with www in it
my $_tdomain = $ENV{SERVER_NAME};
...
        window_redirect("http://www.domain.net/index.cgi?page=home&use
+rname=$_username&rdf=sub$sess_id");
    }
}

Select or download this

# Second location with www in it:

...
} else {
    $_page = $in{page};
}