31 lines
755 B
Text
31 lines
755 B
Text
|
#!/bin/sh
|
||
|
|
# Author: Nico Schottelius <nico@schottelius.net>
|
||
|
|
# Date: 04-Feb-2003
|
||
|
|
# Last Modified: 04-Feb-2003
|
||
|
|
# Comment: get the latest gnu source package
|
||
|
|
|
||
|
|
# variables
|
||
|
|
PROGNAME=`basename $0`
|
||
|
|
PID="$$"
|
||
|
|
TEMPFILE=/tmp/.`mktemp "$PROGNAME""$PID""XXXXXX"`.html
|
||
|
|
BASE_URL="ftp://ftp.gnu.org/pub/gnu"
|
||
|
|
SHOW_URLS="lynx -dump $TEMPFILE"
|
||
|
|
|
||
|
|
# init()
|
||
|
|
umask 7
|
||
|
|
|
||
|
|
if [ "$#" -ne 1 -o "$1" = "--help" ]; then
|
||
|
|
echo "$PROGNAME: gnu-package-name"
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
# retrieve index
|
||
|
|
wget $BASE_URL/$1/ -O $TEMPFILE
|
||
|
|
|
||
|
|
# get number of lines
|
||
|
|
num_of_lines=`$SHOW_URLS | wc | awk '{ print $1 } '`
|
||
|
|
ref_lines=`$SHOW_URLS | grep -n '^References'| sed 's/\(.*\):References/\1/'`
|
||
|
|
interesting_lines=$[$num_of_lines-$ref_lines]
|
||
|
|
|
||
|
|
# display interesting urls
|
||
|
|
$SHOW_URLS | tail -n $interesting_lines
|