#!/bin/sh

#
# sign-stats.sh - make sign statistics
#
# Developed by Ondrej Jombik <nepto@platon.sk>
# Copyright (c) 2003 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 15/07/2003 - created
#

# $Platon: scripts/shell/zoznamka-fun/sign-stats.sh,v 1.1 2003/07/15 19:56:04 nepto Exp $

#
# [1] URL
#
#	http://zoznamka.azet.sk/viac.phtml?&c_inz=245437&cast=2
#
# [2] Text
#
#   Moje znamenie vo zverokruhu je: panna (23.8.-22.9.),
#     ale bohuzial len v zverokruhu
#   Vierovyznanie:
#     verim v buducnost a v to ze aj tak raz pride nieco co ma naozaj
#
# [3] Usage
#
#	./sign-stats.sh ID | sort | uniq -c | sort -r > 2003-07-15.sign-stats.txt
# 

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

if [ -r "$1" ]; then
	ids=`cat $1`;
else
	ids="$1";
fi

for id in $ids; do
	lynx -dump "http://zoznamka.azet.sk/viac.phtml?&c_inz=$id&cast=2" \
	| perl -we 'while(<>){if(/Moje znamenie vo zverokruhu je:[^\w]*(.*)$/){print "$1\n";}}';
done