:strip_exif()/u/10517/cup_anim.gif?f=community)
Hi,
Ik gebruik een aantal CGI scripts om remote de HTML bestanden te kunnen aanpassen.
Het inloggen gebeurt dmv een username/password check en een refer check.
Echter zodra ik vanaf en HTTPS verbinding wilkomen, krijg ik een bad refer.
Is dat een limitatie van perl, een fout in het script of een 'bug' in de perl interpreter van het OS (NW5.1).
Dit is (een stuk van) de code:
Zodra ik dus 'http:/www.domein.com' wijzig in 'https://www.domein.com' dan krijg ik steevast een bad refer.
Doe ik iets fout ??
Ik gebruik een aantal CGI scripts om remote de HTML bestanden te kunnen aanpassen.
Het inloggen gebeurt dmv een username/password check en een refer check.
Echter zodra ik vanaf en HTTPS verbinding wilkomen, krijg ik een bad refer.
Is dat een limitatie van perl, een fout in het script of een 'bug' in de perl interpreter van het OS (NW5.1).
Dit is (een stuk van) de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| sub get_form_data {
@okaydomains=("http://www.domein.com");
if (@okaydomains == 0)
{return;}
$DOMAIN_OK=0;
$RF=$ENV{'HTTP_REFERER'};
$RF=~tr/A-Z/a-z/;
foreach $ts (@okaydomains)
{
if ($RF =~ /$ts/)
{ $DOMAIN_OK=1; }
}
if ( $DOMAIN_OK == 0) {
print "Content-type: text/html\n\n";
print "<title>Error!</title>";
print "<body bgcolor=\"\#ffffff\" text=\"\#000000\">";
print '<h1>Error</h1>',"\n";
print '<hr>';
print 'Bad Referer';
print '</html>';
exit 0;
} |
Zodra ik dus 'http:/www.domein.com' wijzig in 'https://www.domein.com' dan krijg ik steevast een bad refer.
Doe ik iets fout ??
/u/1830/acm.png?f=community)
:strip_icc():strip_exif()/u/17778/wop.jpg?f=community)
