Subversion Repositories DevTools

########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : getDoc.pl
# Module type   : Makefile system
# Compiler(s)   : Perl
# Environment(s): jats
#
# Description   :
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

require 5.008_002;
use strict;
use warnings;

use Pod::Usage;
use Getopt::Long;

use JatsError;
use JatsSystem;

foreach my $docNum ( @ARGV )
{
    my $pageURL="http://bms:80/docregister/docLinkTo.asp?docnum=$docNum";
    print "--- $pageURL\n";

    #
    #   Get the document data
    #
    my $tmp_file = 'wget.data';
    unlink $tmp_file;
    System ('wget',
            '--http-user=vix\\dpurdie',
            '--http-passwd=!stephaniec',
            "--output-document=$tmp_file",
            $pageURL );

    my $docURL;
    open ( my $fh, '<', $tmp_file ) || Error ("Cannot open file:$tmp_file: $!");
    while ( <$fh> )
    {
        print "$_\n";
        if ( m/self.location.href='(.*)'/ )
        {
            $docURL = $1;
            last;
        }
    }
    close $fh;
    unlink $tmp_file;

    Error ("Could not find doc ref: $docNum") unless $docURL;
    print "$docURL\n";

    #
    #   Extract file name
    #
    $docURL =~ m~.*/(.*)$~;
    my $fname = $1;
    $fname =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
    print "$fname\n";

    System ('wget',
            '--http-user=vix\\dpurdie',
            '--http-passwd=!stephaniec',
            "--output-document=$fname",
            $docURL );
}