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