29 |
|
cvswww-extract.cgi |
30 |
|
Script to extract webpages onto webserver |
31 |
|
Created by tdb1 20/10/2000 |
32 |
< |
Last modified 25/11/2000 |
32 |
> |
Last modified 06/05/2001 |
33 |
|
--> |
34 |
|
|
35 |
|
<html> |
45 |
|
<td valign="top"> |
46 |
|
EOF |
47 |
|
|
48 |
< |
print `/usr/local/bin/wget -O - -q $left`; |
48 |
> |
print `/usr/local/bin/wget -O - -q $left 2>&1`; |
49 |
|
|
50 |
|
print << "EOF"; |
51 |
|
|
53 |
|
<td valign="top"> |
54 |
|
EOF |
55 |
|
|
56 |
< |
print `/usr/local/bin/wget -O - -q $title`; |
56 |
> |
print `/usr/local/bin/wget -O - -q $title 2>&1`; |
57 |
|
|
58 |
|
print "<pre>\n"; |
59 |
|
|
61 |
|
if($site eq "raptor" && -e "/usr/local/proj/co600_10" && -d "/usr/local/proj/co600_10"){ |
62 |
|
|
63 |
|
print "<b>Debugging output from run on Raptor:</b>\n"; |
64 |
< |
print `/usr/local/proj/co600_10/scripts/cvswww-extract-cmd`; |
64 |
> |
print `/usr/local/proj/co600_10/scripts/cvswww-extract-cmd 2>&1`; |
65 |
|
|
66 |
|
print "\n<b>Debugging output from cleanup:</b>\n"; |
67 |
< |
print `/usr/local/proj/co600_10/scripts/cvswww-clean`; |
67 |
> |
print `/usr/local/proj/co600_10/scripts/cvswww-clean 2>&1`; |
68 |
|
|
69 |
|
} |
70 |
|
elsif($site eq "main" && -e "/home/sites/www.i-scream.org.uk" && -d "/home/sites/www.i-scream.org.uk"){ |
71 |
|
|
72 |
|
print "<b>Debugging output from extract:</b>\n"; |
73 |
< |
print `cd /home/sites/www.i-scream.org.uk/web && gunzip cvswww-extract.tar.gz && tar -xvf cvswww-extract.tar && rm -f cvswww-extract.tar`; |
73 |
> |
print `cd /home/sites/www.i-scream.org.uk/web && gunzip cvswww-extract.tar.gz && tar -xvf cvswww-extract.tar && rm -f cvswww-extract.tar 2>&1`; |
74 |
|
|
75 |
|
} |
76 |
|
else{ |
79 |
|
|
80 |
|
print "</pre>\n"; |
81 |
|
|
82 |
< |
print `/usr/local/bin/wget -O - -q $bottom`; |
82 |
> |
print `/usr/local/bin/wget -O - -q $bottom 2>&1`; |
83 |
|
|
84 |
|
print << "EOF"; |
85 |
|
|