Subversion Repositories DevTools

Rev

Rev 5709 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5709 Rev 5710
Line 33... Line 33...
33 
    #   Get the document data
 33 
    #   Get the document data
34 
    #
 34 
    #
35 
    my $tmp_file = 'wget.data';
 35 
    my $tmp_file = 'wget.data';
36 
    unlink $tmp_file;
 36 
    unlink $tmp_file;
37 
    System ('wget',
 37 
    System ('wget',
38 
            '--http-user=erg\\dpurdie',
 38 
            '--http-user=vix\\dpurdie',
39 
            '--http-passwd=!stephaniec',
 39 
            '--http-passwd=!stephaniec',
40 
            "--output-document=$tmp_file",
 40 
            "--output-document=$tmp_file",
41 
            $pageURL );
 41 
            $pageURL );
42 
 
 42 
 
43 
    my $docURL;
 43 
    my $docURL;
Line 64... Line 64...
64 
    my $fname = $1;
 64 
    my $fname = $1;
65 
    $fname =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
 65 
    $fname =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
66 
    print "$fname\n";
 66 
    print "$fname\n";
67 
 
 67 
 
68 
    System ('wget',
 68 
    System ('wget',
69 
            '--http-user=erg\\dpurdie',
 69 
            '--http-user=vix\\dpurdie',
70 
            '--http-passwd=!stephaniec',
 70 
            '--http-passwd=!stephaniec',
71 
            "--output-document=$fname",
 71 
            "--output-document=$fname",
72 
            $docURL );
 72 
            $docURL );
73 
}
 73 
}
74 
 
 74