#!/bin/sh
# elvis: ircsearch	-- Search irc channels Liszt (http://www.liszt.com)
. surfaw || exit 1

w3_config_hook () {
def   SURFAW_ircsearch_min 5
}

w3_usage_hook () {
    cat <<EOF
Usage: $w3_argv0 [options] [search words]...
Description:
  Surfaw search irc channels web using Liszt (http://www.liszt.com/)
Local options:
  -min=NUM                      Minimum number of users per channel
                                Default: $SURFAW_ircsearch_min
				Environment: SURFAW_ircsearch_min
EOF
    w3_global_usage
}

w3_parse_option_hook () {
    opt="$1"
    optarg="$2"
    case "$opt" in
	-min=*) setopt   SURFAW_ircsearch_min $optarg	;;
	*) return 1 ;;
    esac
    return 0
}

w3_config
w3_parse_args "$@"
# w3_args now contains a list of arguments
if test -z "$w3_args"; then
    w3_browse_url http://www.liszt.com/chat
else
    escaped_args=`w3_url_of_arg $w3_args`
    if ok SURFAW_p0rn; then
	filter=off
    else
	filter=on
    fi
    w3_browse_url "http://www.liszt.com/chat/irc.cgi/word=${escaped_args}&filter=${filter}&sortby=pop&min=${SURFAW_ircsearch_min}"
fi