Re: [PERL] Download "begrænsning"

[Jesper Monsted <sslug@sslug>]

> Grundet Wassenaar aftalens forbud mod eksport af software til stærk
> kryptering har jeg nu brug for et script, der sætter mig i stand til kun
> at tillade download af mit krypteringssoftware fra Danmark.
> 
> Skulle du på denne liste være i besiddelse af eller vide, hvor jeg kan
> downloade et sådant script, vil jeg gerne høre fra dig.

------------------
#!/usr/bin/perl -w
use strict;

use CGI;

my $remote = remote_host();

if ($remote =~ /\.dk$/)
  {
  print header(-type=>'application/zip'); #kender ikke typen på .tgz-filer
  open(CRYPTWARE, "hopla.tgz");
  while (<CRYPTWARE>)
    {
    print $_;
    }
  close CRYPTWARE;
  }
else
  {
  print header;
  print start_html, h1("Du må ikke downloade dette software..."), end_html;
  }

--------
Håber det virker... kunne ikke lige teste :(

/Jesper

"Microsoft does have a Year 2000 problem. We're it"
(c) unknown       - Go Linux! http://www.linux.org/

 Jesper Monsted - RIPE: JM42 - sslug@sslug