|
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
|
|
Stay one step ahead of the competition. Evaluate and give feedback
on some of the hottest web development tools on the market today.
Make your opinion heard! Click
Here
|
|
#1
|
|||
|
|||
|
ok. this is going to be a kind of long post. what i have right now is a webpage with many large videos that i do not want anyone to link from any other page. currently i have on the videos.htm links to script.pl?video=000 .. and it is logging a bunch of stuff and in no way getting in the way of the download. i don't know of a way that right clicking gives off a referrer. this is the current script:
*** #!/usr/local/bin/perl #HTTP_USER_AGENT #capture and separate all info passed to the script $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $VAL{$name} = $value; } open (VIDEOFILE, "video.dat"); while (<VIDEOFILE> ) { @line = split(/:::/, $_); #if anyone is reading this, this is cheesy code. the condition should be in #the while, it just wasnt' working for some reason. oh well. here it is if ($line[0] eq $VAL{video}) { $filepath = $line[1]; } } close (VIDEOFILE); if ($ENV{HTTP_REFERER} eq "") { $ENV{HTTP_REFERER} = "RIGHT_CLICK"; } open (LOGFILE, ">>log_videodl.log"); print LOGFILE $VAL{video}; print LOGFILE "---"; print LOGFILE $ENV{HTTP_REFERER}; print LOGFILE "---"; print LOGFILE $ENV{REMOTE_ADDR}; print LOGFILE "---"; print LOGFILE $ENV{REMOTE_HOST}; print LOGFILE "---"; print LOGFILE $ENV{HTTP_USER_AGENT}; print LOGFILE "n"; close (LOGFILE); print "Content-type: text/htmln"; print "Location: $filepathnn"; *** this currently isn't really doing much except i catch the occasional site linking when people left click. my goal of the script is. 1. to not interfere in any way 2. to check referrer ( if videos.htm or NO referer (because people use getright and programs like that to resume) then to download the video BUT if there is a referrer and it is not videos.htm to direct them to the main page 3. to log unsuccessful video downloads ANY and ALL help or suggestions on what could be done better if not totally possible would be very much appreciated. thank you, tomas p |
![]() |
| Viewing: Dev Shed Forums > Programming Languages > Perl Programming > check referrer while downloading script attempt |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|
|