#!/usr/bin/perl -w
# OVIS2 Database interface © Gertjan van Noord, 1998-1999.
# mailto:vannoord@let.rug.nl
# Example:
# ./ns 'query asd,gn,15,7,99,0900,0900,1,2'

use strict;
use vars qw($opt_w $opt_l);
use Getopt::Std;
use LWP::UserAgent;
use URI::URL;
use ns_query;
use ns_parse_buffer;

$opt_l="logs/" . `date`;
$opt_w=0;  
getopts('wl:');

@ARGV == 1 || die "Usage: $0 [-w] [-l logfile]  Query

        -w        append result of request (html) to logfile
        -l File   use File as logfile

for example:
$0 'query#asd,gn,15,3,98,0900,0900,1,2'

$0 -w -l logs/log 'query Arnhem,Groningen,15,7,2002,0900,0900,0,2' 
$0 'query Den Helder,Zuidhorn,15,7,2002,0900,0900,0,2'
$0 'query Goes,asd,15,7,2002,0900,0900,0,2'
$0 'query Goes,wijchen,15,7,2002,0900,0900,0,2'
$0 \"query hertogenbosch ('s),wijchen,15,7,2002,0900,0900,0,2\"
$0 \"query laa,gvm,15,7,2002,0900,0900,0,2\"
$0 'query Tilburg,Groningen,15,7,2002,0900,0900,1,2'


\n"

;

print query(join(' ',@ARGV));