in reply to Ultimate anti-leech, anti-proxy, anti-bot, CAPTCHA works, link does not (code included)

Try copying your specialty file from a non-public location to a public one doing something like this: 
perl -e 'use Time::HiRes qw|gettimeofday|; my ($sec,$microsec) = getti
+meofday(); if (-f qq|foo.file|){`cp foo.file $sec$microsec\.file`} '

[download]
I would add some kind of session information to the filename so it could only be created by a logged-in user and then have a daemon that reaps files that were downloaded or are > 1 day old.

Celebrate Intellectual Diversity

  • Comment on Re: Ultimate anti-leech, anti-proxy, anti-bot, CAPTCHA works, link does not (code included)
  • Download Code

Replies are listed 'Best First'.
Re^2: Ultimate anti-leech, anti-proxy, anti-bot, CAPTCHA works, link does not (code included)
by taint (Chaplain) on Apr 19, 2013 at 22:01 UTC
    Greetings InfiniteSilence, and thank you for your reply.
    Yes, this is the type of thing I'm looking towards right now.
    This is why I was looking at File::Temp, as opposed to performing the
    operation manually (as you suggested), because that would require additional
    "housekeeping" (deleting the files manually via a cron(8) job. Whereas File::Temp
    appears to automatically remove (unlink) the file, after the download has completed.
    But as I have never used it before, I'm still trying to figure out how to do that.
    Copying/associating the session hash to the <tempfilename> might be handy too.
    I could really do with a couple of examples tho. But, for now, I'm just reading, reading, reading. :)

    Thanks again, for taking the time to respond InfiniteSilence!

    --chris

    #!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.4";
print $perl_version;
[reply]

      Also, rather than copying the files -- which as you say they are large, could be prohibitive -- create symbolic links to them in a public "downloads" directory using your date/time/session/ip/userid/whatever in the name, and then have a background daemon that scans that directory once a minute or hour or 4 hours, and removes the links that have expired.

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
        Greetings BrowserUk, and thank you for the reply.
        Yes. Performing copy/ies does seem a bit inefficient. The files are "mini" Operating systems, intended for various embedded systems. Most are < 120Mb -- but still.
        A search on CPAN for Symlink::Temp yielded no results. Looks like I'll have to create the module myself. File::Symlink && File::Symlink::Temp -- coming soon to a CPAN mirror near you! :)
        Maybe I'll crack open File.pm, and see if I can figure out how I might create a Symlink module
        With some of the properties File::Temp provides. Or am I just wasting my time?

        Thanks again for taking the time to respond BrowserUk.

        --chris

        #!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.4";
print $perl_version;
[reply]

In Section Seekers of Perl Wisdom