Fix args-checking.
[irspy-moved-to-github.git] / bin / irspy-stats.pl
1 #!/usr/bin/perl -w
2
3 # $Id: irspy-stats.pl,v 1.5 2007-10-31 16:07:40 mike Exp $
4 #
5 #       perl -I ../lib irspy-stats.pl localhost:8018/IR-Explain---1 "net.host=*indexdata*"
6
7 use strict;
8 use warnings;
9 use ZOOM::IRSpy;
10
11 if (@ARGV < 2) {
12     print STDERR "Usage: $0 [CQL-query]\n";
13     exit 1;
14 }
15
16 my($dbname, $query) = @ARGV;
17 my $stats = new ZOOM::IRSpy::Stats($dbname, $query);
18 $stats->print();