Vyššie na [Platon] / scripts / shell / mail-action

Sync.
New shell scripts.
CVS tags inprovements.
Extended pipelining merging and code stabilization.

#!/bin/sh

# (c) 2001 Ondrej Jombik <nepto@pobox.sk>
# $Id: extract.sh,v 1.1 2002/02/12 00:34:26 jombik9 Exp $

LOG_FILE='mail_action.log';
HTML_SOURCE_FILE='source.tmp.html';
CURRENT_ADDRESSES_FILE='current.tmp.txt';
OUTPUT_FILE='addresses.txt';
GETMAILS_SCRIPT='~/prog/scripts/shell/getmails/getmails.sh';

##############################################################################

if [ $# -lt 1 ]; then
    echo "Usage: $0 <first_name>" ;
    exit 1;
fi

echo -e "--\nStarting processing name '$1'" >> $LOG_FILE;

lynx -source \
'http://whowhere.lycos.com/srvredirect?Submit=Search&find=email&f-name='"$1" \
    > $HTML_SOURCE_FILE;

while [ -r $HTML_SOURCE_FILE ]; do

    cat $HTML_SOURCE_FILE \
        | $GETMAILS_SCRIPT \
        | sort -u \
        > $CURRENT_ADDRESSES_FILE;

    echo "+ "`cat $CURRENT_ADDRESSES_FILE | wc -l` \
        >> $LOG_FILE;

    cat $CURRENT_ADDRESSES_FILE >> $OUTPUT_FILE;

    query=`cat $HTML_SOURCE_FILE \
        | grep 'email.more.wsrch' \
        | perl -ne 's/^.*"(http:\/\/[^"]*)".*$/\1/gc; print "$1";'`

    #echo "$query";

    if [ "" != "$query" ]; then
        lynx -source $query > $HTML_SOURCE_FILE;
    else
        #rm -f $HTML_SOURCE_FILE;
        break;
    fi;

done

rm -f $CURRENT_ADDRESSES_FILE;

echo -e "Finishing processing name '$1'" >> $LOG_FILE;