X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fdownload.pl;fp=cgi-bin%2Fdownload.pl;h=0000000000000000000000000000000000000000;hb=27d33ebb54f354d5d0d1fb68c94ff6a5682b54c3;hp=62a0fc96be770c0d408ebb1b8fac5c99b3c97cc0;hpb=d9c10aaf0bb03bfb75404f9041967b9f91012bdb;p=deb%2Fpackages.git diff --git a/cgi-bin/download.pl b/cgi-bin/download.pl deleted file mode 100755 index 62a0fc9..0000000 --- a/cgi-bin/download.pl +++ /dev/null @@ -1,480 +0,0 @@ -#!/usr/bin/perl -T -# -# download.pl -- CGI interface for downloading files on packages.debian.org -# -# Copyright (C) 1998 (?) James Treacy -# Copyright (C) 2001 Josip Rodin -# Copyright (C) 2004 Frank Lichtenheld -# -# Licensed under the GPL or something. - -use strict; -use warnings; - -use CGI (); -use DB_File; -use Benchmark ':hireswallclock'; - -use lib "../lib"; - -use Deb::Versions; -use Packages::HTML (); -use Packages::Search qw( :all ); -use Packages::Config qw( $HOME $DBDIR @SUITES @ARCHIVES @SECTIONS @ARCHITECTURES ); -use Packages::CGI; -use Packages::DB; - -&Packages::CGI::reset; - -&Packages::Config::init( '../' ); -&Packages::DB::init(); - -# TODO: find a way to get the U.S. mirror list from a more authoritive -# location automatically. might not be overly smart to automatize it -# completely, since I hand pick sites that are up-to-date, fast, and -# have HTTP on a reasonably short URL -# -- Joy - -# hint: -# grep-dctrl -F Site,Alias -e '(udel|bigfoot|kernel|crosslink|internap|cerias|lcs.mit|progeny)' Mirrors.masterlist | timestamps/archive_mirror_check.py -my @north_american_sites = ( - "ftp.us.debian.org/debian", - "http.us.debian.org/debian", - "ftp.debian.org/debian", -# "ftp.ca.debian.org/debian", - "ftp.egr.msu.edu/debian", - "mirrors.kernel.org/debian", - "archive.progeny.com/debian", - "debian.crosslink.net/debian", - "ftp-mirror.internap.com/pub/debian", - "ftp.cerias.purdue.edu/pub/os/debian", - "ftp.lug.udel.edu/debian", - "debian.lcs.mit.edu/debian", - "debian.teleglobe.net", - "debian.rutgers.edu", - "debian.oregonstate.edu/debian", - ); -my @european_sites = ( - "ftp.de.debian.org/debian", - "ftp.at.debian.org/debian", - "ftp.bg.debian.org/debian", - "ftp.cz.debian.org/debian", - "ftp.dk.debian.org/debian", - "ftp.ee.debian.org/debian", - "ftp.fi.debian.org/debian", - "ftp.fr.debian.org/debian", - "ftp.hr.debian.org/debian", - "ftp.hu.debian.org/debian", - "ftp.ie.debian.org/debian", - "ftp.is.debian.org/debian", - "ftp.it.debian.org/debian", - "ftp.nl.debian.org/debian", - "ftp.no.debian.org/debian", - "ftp.pl.debian.org/debian", - "ftp.si.debian.org/debian", - "ftp.es.debian.org/debian", - "ftp.se.debian.org/debian", - "ftp.tr.debian.org/debian", - "ftp.uk.debian.org/debian", - ); -my @south_american_sites = ( - "ftp.br.debian.org/debian", - "ftp.cl.debian.org/debian", - ); -my @australian_sites = ( - "ftp.au.debian.org/debian", - "ftp.wa.au.debian.org/debian", - "ftp.nz.debian.org/debian", - ); -my @asian_sites = ( - "ftp.jp.debian.org/debian", -# "ftp.kr.debian.org/debian", - "linux.csie.nctu.edu.tw/debian", - "debian.linux.org.tw/debian", - "linux.cdpa.nsysu.edu.tw/debian", - ); - -my @volatile_european_sites = ( - "volatile.debian.net/debian-volatile", - "ftp2.de.debian.org/debian-volatile", - "ftp.sk.debian.org/debian-volatile", - ); -my @backports_european_sites = ( - "www.backports.org/debian", - "debian.sil.at/backports.org/", - "backports.debian.or.at/backports.org", - "mirror.realroute.net/backports.org", - "backports.cisbg.com", - "backports.linuxdediziert.de/backports.org", - "debian.netcologne.de/debian-backports", - "ftp.de.debian.org/backports.org", - "mirror.buildd.net/backports.org", - "ftp.estpak.ee/backports.org", - "debian.acantho.net/backports.org", - "backports.essentkabel.com/backports.org", - "backports.sipo.nl", - "ftp.tuke.sk", - ); -my @backports_asian_sites = ( - "backports.mithril-linux.org", - ); -my @backports_australian_sites = ( - "mirror.linux.org.au/backports.org", - ); -my @amd64_european_sites = ( - "amd64.debian.net/debian", - "ftp.de.debian.org/debian-amd64/debian", - "bach.hpc2n.umu.se/debian-amd64/debian", - "bytekeeper.as28747.net/debian-amd64/debian", - "mirror.switch.ch/debian-amd64/debian", - "ftp.nl.debian.org/debian-amd64/debian", - ); -my @amd64_asian_sites = ( - "hanzubon.jp/debian-amd64/debian", - ); -my @amd64_north_american_sites = ( - "mirror.espri.arizona.edu/debian-amd64/debian", - ); -my @kfreebsd_north_american_sites = ( - "www.gtlib.gatech.edu/pub/gnuab/debian", - ); -my @kfreebsd_european_sites = ( - # master site, aka ftp.gnuab.org - "kfreebsd-gnu.debian.net/debian", - "ftp.easynet.be/ftp/gnuab/debian", - "ftp.de.debian.org/debian-kfreebsd", - ); -my @nonus_north_american_sites = ( -# "ftp.ca.debian.org/debian-non-US", - "debian.yorku.ca/debian/non-US", - "mirror.direct.ca/linux/debian-non-US", - ); -my @nonus_european_sites = ( - "non-us.debian.org/debian-non-US", - "ftp.de.debian.org/debian-non-US", - "ftp.at.debian.org/debian-non-US", - "ftp.bg.debian.org/debian-non-US", - "ftp.cz.debian.org/debian-non-US", - "ftp.fi.debian.org/debian-non-US", - "ftp.fr.debian.org/debian-non-US", - "ftp.hr.debian.org/debian-non-US", - "ftp.hu.debian.org/debian-non-US", - "ftp.ie.debian.org/debian-non-US", - "ftp.is.debian.org/debian-non-US", - "ftp.it.debian.org/debian-non-US", - "ftp.nl.debian.org/debian-non-US", - "ftp.no.debian.org/debian-non-US", - "ftp.pl.debian.org/debian/non-US", - "ftp.si.debian.org/debian-non-US", - "ftp.es.debian.org/debian-non-US", - "ftp.se.debian.org/debian-non-US", - "ftp.tr.debian.org/debian-non-US", - "ftp.uk.debian.org/debian/non-US", - ); -my @nonus_australian_sites = ( - "ftp.au.debian.org/debian-non-US", - "ftp.wa.au.debian.org/debian-non-US", - "ftp.nz.debian.org/debian-non-US", - ); -my @nonus_asian_sites = ( - "ftp.jp.debian.org/debian-non-US", -# "ftp.kr.debian.org/debian-non-US", - "linux.csie.nctu.edu.tw/debian-non-US", - "debian.linux.org.tw/debian-non-US", - "linux.cdpa.nsysu.edu.tw/debian-non-US", - ); -my @nonus_south_american_sites = ( - "ftp.br.debian.org/debian-non-US", - "ftp.cl.debian.org/debian-non-US", - ); - -# list of architectures -my %arches = ( - i386 => 'Intel x86', - m68k => 'Motorola 680x0', - sparc => 'SPARC', - alpha => 'Alpha', - powerpc => 'PowerPC', - arm => 'ARM', - hppa => 'HP PA-RISC', - ia64 => 'Intel IA-64', - mips => 'MIPS', - mipsel => 'MIPS (DEC)', - s390 => 'IBM S/390', - "hurd-i386" => 'Hurd (i386)', - amd64 => 'AMD64', - "kfreebsd-i386" => 'GNU/kFreeBSD (i386)' -); - -$ENV{PATH} = "/bin:/usr/bin"; -# Read in all the variables set by the form -my $input; -if ($ARGV[0] && ($ARGV[0] eq 'php')) { - $input = new CGI(\*STDIN); -} else { - $input = new CGI; -} - -my $pet0 = new Benchmark; -my $tet0 = new Benchmark; -# use this to disable debugging in production mode completly -my $debug_allowed = 1; -my $debug = $debug_allowed && $input->param("debug"); -$debug = 0 if !defined($debug) || $debug !~ /^\d+$/o; -$Packages::CGI::debug = $debug; - -if (my $path = $input->param('path')) { - my @components = map { lc $_ } split /\//, $path; - - my %SUITES = map { $_ => 1 } @SUITES; - my %ARCHIVES = map { $_ => 1 } @ARCHIVES; - my %ARCHITECTURES = map { $_ => 1 } @ARCHITECTURES; - - foreach (@components) { - if ($SUITES{$_}) { - $input->param('suite', $_); - } elsif ($ARCHIVES{$_}) { - $input->param('archive', $_); - } elsif ($ARCHITECTURES{$_}) { - $input->param('arch', $_); - } elsif ($_ eq 'source') { - $input->param('source', 1); - } - } -} - -my ( $pkg, $suite, @sections, $arch, @archives, $format ); -my %params_def = ( package => { default => undef, match => '^([a-z0-9.+-]+)$', - var => \$pkg }, - suite => { default => undef, match => '^(\w+)$', - var => \$suite }, - archive => { default => 'all', match => '^(\w+)$', - array => ', ', var => \@archives, - replace => { all => [qw(us security non-US)] } }, - arch => { default => undef, match => '^(\w+)$', - var => \$arch }, - format => { default => 'html', match => '^(\w+)$', - var => \$format }, - ); -my %opts; -my %params = Packages::Search::parse_params( $input, \%params_def, \%opts ); - -#XXX: Don't use alternative output formats yet -$format = 'html'; -if ($format eq 'html') { - print $input->header( -charset => 'utf-8' ); -} - -if ($params{errors}{package}) { - fatal_error( "package not valid or not specified" ); - $pkg = ''; -} -if ($params{errors}{suite}) { - fatal_error( "suite not valid or not specified" ); - $suite = ''; -} -if ($params{errors}{arch}) { - fatal_error( "arch not valid or not specified" ); - $arch = ''; -} - -$opts{h_suites} = { $suite => 1 }; -$opts{h_archs} = { $arch => 1 }; -$opts{h_sections} = { map { $_ => 1 } @SECTIONS }; -$opts{h_archives} = { map { $_ => 1 } @archives }; - -our (%packages_all); -my (@results); -my ($final_result, $file, $filen, $md5sum, @file_components, $archive) = ("")x5; - -sub gettext { return $_[0]; }; - -my $st0 = new Benchmark; -unless (@Packages::CGI::fatal_errors) { - tie %packages_all, 'DB_File', "$DBDIR/packages_all_$suite.db", - O_RDONLY, 0666, $DB_BTREE - or die "couldn't tie DB $DBDIR/packages_all_$suite.db: $!"; - - read_entry( \%packages, $pkg, \@results, \%opts ); - - unless (@results) { - fatal_error( "No such package". - "{insert link to search page with substring search}" ); - - } else { - my $final_result = shift @results; - foreach (@results) { - if (version_cmp( $_->[7], $final_result->[7] ) > 0) { - $final_result = $_; - } - } - - $archive = $final_result->[1]; - my %data = split /\000/, $packages_all{"$pkg $arch $final_result->[7]"}; - $file = $data{filename}; - @file_components = split('/', $file); - $filen = pop(@file_components); - - $md5sum = $data{md5sum}; - } -} - -my $arch_string = $arch ne 'all' ? "on $arches{$arch} machines" : ""; - -print Packages::HTML::header( title => "Package Download Selection", - lang => "en", - print_title_above => 1 ); - -print_errors(); -print_hints(); -print_msgs(); -print_debug(); -print_notes(); - -if ($file) { - print "

Download Page for $filen $arch_string

\n". - "

You can download the requested file from the "; - print join( '/', @file_components).'/'; - print " subdirectory at"; - print $archive ne 'security' ? " any of these sites:" : ":"; - print "

\n"; - - if ($archive eq 'security') { - - print < -
  • security.debian.org/debian-security
    • - - -

    Debian security updates are currently officially distributed only via - security.debian.org.

    -END -; - } elsif ($arch eq 'amd64') { - - print_links( "North America", $file, @amd64_north_american_sites ); - print_links( "Europe", $file, @amd64_european_sites ); -# print_links( "Australia and New Zealand", $file, -# @nonus_australian_sites ); - print_links( "Asia", $file, @amd64_asian_sites ); -# print_links( "South America", $file, @nonus_south_american_sites ); - - print <Note that AMD64 is not officialy included in the Debian archive - yet, but the AMD64 porter group keeps their archive in sync with - the official archive as close as possible. See the - AMD64 ports page for - current information.

    -END -; - } elsif ($arch eq 'kfreebsd-i386') { - - print_links( "North America", $file, @kfreebsd_north_american_sites ); - print_links( "Europe", $file, @kfreebsd_european_sites ); -# print_links( "Australia and New Zealand", $file, -# @nonus_australian_sites ); -# print_links( "Asia", $file, @amd64_asian_sites ); -# print_links( "South America", $file, @nonus_south_american_sites ); - - print <Note that GNU/kFreeBSD is not officialy included in the Debian archive - yet, but the GNU/kFreeBSD porter group keeps their archive in sync with - the official archive as close as possible. See the - GNU/kFreeBSD ports page for - current information.

    -END -; - } elsif ($archive eq 'non-US') { - - print_links( "North America", $file, @nonus_north_american_sites ); - print_links( "Europe", $file, @nonus_european_sites ); - print_links( "Australia and New Zealand", $file, - @nonus_australian_sites ); - print_links( "Asia", $file, @nonus_asian_sites ); - print_links( "South America", $file, @nonus_south_american_sites ); - - print <If none of the above sites are fast enough for you, please see our - complete mirror list.

    -END -; - } elsif ($archive eq 'backports') { - -# print_links( "North America", $file, @nonus_north_american_sites ); - print '
    '; - print_links( "Europe", $file, @backports_european_sites ); - print '
    '; - print_links( "Australia and New Zealand", $file, - @backports_australian_sites ); - print_links( "Asia", $file, @backports_asian_sites ); -# print_links( "South America", $file, @nonus_south_american_sites ); - print '
    '; - - print <If none of the above sites are fast enough for you, please see our - complete mirror list.

    -END -; - } elsif ($archive eq 'volatile') { - -# print_links( "North America", $file, @nonus_north_american_sites ); - print_links( "Europe", $file, @volatile_european_sites ); -# print_links( "Australia and New Zealand", $file, -# @nonus_australian_sites ); -# print_links( "Asia", $file, @nonus_asian_sites ); -# print_links( "South America", $file, @nonus_south_american_sites ); - - print <If none of the above sites are fast enough for you, please see our - complete mirror list.

    -END -; - } elsif ($archive eq 'us') { - - print '
    '; - print_links( "North America", $file, @north_american_sites ); - print '
    '; - print_links( "Europe", $file, @european_sites ); - print '
    '; - print_links( "Australia and New Zealand", $file, @australian_sites ); - print '
    '; - print_links( "Asia", $file, @asian_sites ); - print '
    '; - print_links( "South America", $file, @south_american_sites ); - print '
    '; - - print <If none of the above sites are fast enough for you, please see our - complete mirror list.

    -END -; - } - - print <Note that in some browsers you will need to tell your browser you want - the file saved to a file. For example, in Netscape or Mozilla, you should - hold the Shift key when you click on the URL.

    -END -; - print "

    The MD5sum for $filen is $md5sum

    \n" - if $md5sum; -} - -my $trailer = Packages::HTML::trailer( ".." ); -$trailer =~ s/LAST_MODIFIED_DATE/gmtime()/e; -print $trailer; - -exit; - -sub print_links { - my ( $title, $file, @servers ) = @_; - - print "

    $title

    "; - print "
      "; - foreach (@servers) { - print "
    • $_
      • \n"; - # print "
    • $_
      • \n"; - } - print "
    "; - -}