source: trunk/gsdl/cgi-bin/download@ 8322

#!/usr/bin/perl -w

use gsdlCGI;

sub main
{
    my $gsdl_cgi = new gsdlCGI("+cmdline");


    my $gsdlhome = $gsdl_cgi->get_config_info("gsdlhome");

    my $col = $gsdl_cgi->clean_param("c");
    if (!defined $col) {
      $gsdl_cgi->generate_error("No collection specified.");
    }

    my $dir = $gsdl_cgi->clean_param("dir");
    $dir = "" if ((!defined $dir) || ($dir eq "."));

    if ($col =~ m/^\//) { 
    # leading / at start denotes special "cols" such as "/tmp"
    $gsdl_cgi->checked_chdir("$gsdlhome");
    $col =~ s/^\///;
    }
    else {
    $gsdl_cgi->checked_chdir("$gsdlhome/collect");
    }

    # Change this to Java zip??
    my $zip_cmd = "zip -r $col.zip $col/$dir";
    $gsdl_cgi->unix_cmd($zip_cmd);


    my $pipe_cmd = "cat $col.zip"; # Unix specific

    if (open(PIN,"$pipe_cmd |")) {
    binmode(PIN);

    my $buf;
    my $num_bytes = 0;

    print "Content-type:application/zip\n\n";

    while (read(PIN,$buf,1024)>0) {
        print STDOUT $buf;
        $num_bytes += length($buf);
    }

    close(PIN);

    my $status = $?;
    }
    else {
        $gsdl_cgi->generate_error("Unable to pipe input from: $pipe_cmd");
    }
    
    unlink "$col.zip";
}

&main();