]> Pileus Git - ~andy/fetchmail/blob - dist-tools/html2txt
Add Esperanto-language translation.
[~andy/fetchmail] / dist-tools / html2txt
1 #! /bin/sh
2
3 # html2txt.sh - A program to convert fetchmail's HTML documentation to text
4 # Copyright (C) 2004  Matthias Andree
5
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2 of the License, or
9 # (at your option) any later version.
10
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 # GNU General Public License for more details.
15
16 # You should have received a copy of the GNU General Public License
17 # along with this program; if not, write to the Free Software
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19
20 # --------------------------------------------------------------------------
21
22 # Usage: html2txt.sh INPUT.html
23
24 # --------------------------------------------------------------------------
25
26 # Abort on error
27 set -e
28
29 # Parse arguments
30 if [ $# -ne 1 ] ; then
31     echo >&2 "Usage: `basename $0 || echo $0` input.html"
32     exit 1
33 fi
34
35 # Pull in variables
36 inp="$1"
37 tmp="html2txt.$$.html"
38
39 # now preprocess
40 trap "rm -f \"$tmp\"" 0 1 2 3 15
41 ${AWK:=awk} '/<table .*summary="Canned/ { i=1; }
42      /<\/table>/ { i=0; }
43      { if (i == 0) print $0; }' "$inp" >"$tmp"
44
45 # and go!
46 echo "  (This file was generated from $inp)"
47 lynx -dump -nolist "$tmp"
48 rm -f "$tmp"
49 trap "" 0 1 2 3 15