source: other-projects/trunk/realistic-books/cgi-bin/make-realbook.cgi.in@ 19731

#!**PERLBIN** -w
# Need to specify the full path of Perl above


use strict;
use File::Basename; 

no strict 'subs';
no strict 'refs'; # allow filehandles to be variables and viceversa


# Set this to 1 to work around IIS 6 craziness
my $iis6_mode = 0;


# IIS 6: for some reason, IIS runs this script with the working directory set to the Greenstone
#   directory rather than the cgi-bin directory, causing lots of stuff to fail
if ($iis6_mode)
{
    # Change into cgi-bin directory
    chdir("cgi");
}


# We use require and an eval here (instead of "use") to catch any errors loading the module (for IIS)
eval("require \"rbCGI.pm\"");
if ($@)
{
    print STDOUT "Content-type:text/plain\n\n";
    print STDOUT "ERROR: $@\n";
    exit 0;
}



sub main
{
    my $rb_cgi = new rbCGI();

    $rb_cgi->{'xml'} = 0;

    $rb_cgi->setup_rb();

    my $rbhome = $ENV{'REALISTIC_BOOKS_HOME'};
    $rb_cgi->checked_chdir($rbhome);

    
    my $action = $rb_cgi->param("a");
    
    my $pdf_filename = $rb_cgi->param("upload");
    #$rb_cgi->generate_message("action = $action, pdf file = $pdf_filename");
    #exit 0;


    if ($action eq "import-pdf") {
    my $pdf_filename = $rb_cgi->param("upload");

    my ($fname, $fpath, $ext) = fileparse ( $pdf_filename, '\..*' );
    $pdf_filename = "$fname$ext";
    $pdf_filename =~ tr/ /_/;

    my $full_pdf_filename = &util::filename_cat($rbhome,"pdfs",$pdf_filename);

    my $upload_filehandle = $rb_cgi->upload("upload");

    ##open (UPLOADFILE, ">$rbhome/pdfs/$pdf_filename") 
    open (UPLOADFILE, ">full_pdf_filename") 
        || $rb_cgi->generate_error("$!");
    binmode UPLOADFILE;
    
    while ( <$upload_filehandle> ){
        print UPLOADFILE;
    }
    
    close UPLOADFILE;

    my $old_handle = select (STDOUT); 
    $| = 1; # perform flush after each write to STDOUT 

    ##my $cmd = "perl -S pdf2realbook.pl \"$rbhome/pdfs/$pdf_filename\"";
    my $cmd = "perl -S pdf2realbook.pl \"$full_pdf_filename\"";
    if (open(PIN,"$cmd|")) {

        print STDOUT "Content-type:text/html\n\n";
        print STDOUT "<p>Processing ...</p>";

        my $line;
        while (defined ($line=<PIN>)) {
        next if ($line =~ m/^Realistic book generated/);
        chomp $line;        
        print STDOUT "$line<br>\n";
        }

        close(PIN);
    }
    else {
        $rb_cgi->generate_error("Failed to cmd: $cmd");
    }

    select ($old_handle); 

    print STDOUT "Done\n";
    my $viewbookurl = $rb_cgi->param("viewbookurl");
    my $viewthisbookurl = "$viewbookurl/$fname/index.html";

    print STDOUT "<p><a href=\"$viewthisbookurl\">View this Realistic Book</a></p>\n";
    print STDOUT "<p><a href=\"$viewbookurl\">View Realistic Library</a></p>\n";


    ##$rb_cgi->generate_message("Success: $output");
    
    }
    else {
    $rb_cgi->generate_error("Unrecognized action");
    }
}




&main();