| Revision 16,
471 bytes
checked in by marcus, 15 years ago
(diff) |
|
r1 | svn | 2007-12-13 11:10:29 +0100 (Do, 13 Dez 2007) | 2 lines
Initial import
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #! /bin/csh |
|---|
| 2 | # |
|---|
| 3 | # file get_html_text.csh |
|---|
| 4 | # ================= |
|---|
| 5 | # |
|---|
| 6 | # version 4, 9-Apr-2006 |
|---|
| 7 | # |
|---|
| 8 | # Gets text web page and saves it to disk. Uses lynx |
|---|
| 9 | # K. Stammler, 19-Dec-2002 |
|---|
| 10 | |
|---|
| 11 | if ("$2" == "") then |
|---|
| 12 | echo "Usage: $0 <pageadr> <outfile> [<width>]" |
|---|
| 13 | exit |
|---|
| 14 | endif |
|---|
| 15 | |
|---|
| 16 | # get parameters |
|---|
| 17 | set pageadr="$1" |
|---|
| 18 | set outfile=$2 |
|---|
| 19 | set width=$3 |
|---|
| 20 | |
|---|
| 21 | #set echo |
|---|
| 22 | |
|---|
| 23 | # set constants |
|---|
| 24 | |
|---|
| 25 | if (-e $outfile) \rm $outfile |
|---|
| 26 | |
|---|
| 27 | set w="" |
|---|
| 28 | if ("$width" != "") set w="-width=$width" |
|---|
| 29 | |
|---|
| 30 | lynx -dump $w "$pageadr" >$outfile |
|---|
Note: See
TracBrowser
for help on using the repository browser.
