From: Frank Lichtenheld Date: Mon, 13 Feb 2006 23:44:35 +0000 (+0000) Subject: Add working download.pl X-Git-Tag: switch-to-templates~135 X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=commitdiff_plain;h=15cb39cf14b1ef0b4b3bbc9beb4dd0284e881edc Add working download.pl --- diff --git a/cgi-bin/download.pl b/cgi-bin/download.pl new file mode 100755 index 0000000..f4876be --- /dev/null +++ b/cgi-bin/download.pl @@ -0,0 +1,480 @@ +#!/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; + +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 "
    "; + +} diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl index f51110d..5eaa73f 100755 --- a/cgi-bin/show_package.pl +++ b/cgi-bin/show_package.pl @@ -117,7 +117,7 @@ if ($params{errors}{suite}) { $opts{h_suites} = { $suite => 1 }; $opts{h_archs} = { map { $_ => 1 } @archs }; $opts{h_sections} = { map { $_ => 1 } @sections }; -$opts{h_archives} = { map { $_ => 1 } @archives };; +$opts{h_archives} = { map { $_ => 1 } @archives }; my $DL_URL = "$pkg/download"; my $FILELIST_URL = "$pkg/files";