#!/bin/sh
# $Id: scaleplus,v 1.1.1.1 2001/01/15 07:57:21 proff Exp $
# elvis: scaleplus	-- Search Australian Law using ScalePlus (http://scaleplus.law.gov.au)
. surfraw || exit 1

w3_config_hook () {
def   SURFRAW_scaleplus_results $SURFRAW_results
def   SURFRAW_scaleplus_search search
}

w3_usage_hook () {
    cat <<EOF
Usage: $w3_argv0 [options] [search words]...
Description:
  Surfraw search Australian Law using ScalePlus (http://scaleplus.law.gov.au)
Local options:
  -results=NUM                  Number of search results returned
                                Default: $SURFRAW_scaleplus_results
                                Environment: SURFRAW_scaleplus_results
EOF
    w3_global_usage
}

w3_parse_option_hook () {
    opt="$1"
    optarg="$2"
    case "$opt" in
	-results=*) setopt   SURFRAW_scaleplus_results $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://scaleplus.law.gov.au/
else
    escaped_args=`w3_url_of_arg $w3_args`
    w3_browse_url "http://scaleplus.law.gov.au/cgi-bin/topicSrch.pl?Action=Search&SearchPage=%2FWelcome97.html&ResultTemplate=scaleresults.htm&ViewTemplate=scaleview.htm&ResultMaxDocs=${SURFRAW_scaleplus_results}&SEARCH.y=0&SEARCH.x=0&querytext=${escaped_args}&category=CL&category=CC&category=SL&category=SC&category=OT&category=HD"
fi