From a41abfe3444be8f426a3aa62fdab3534fc2f718d Mon Sep 17 00:00:00 2001 From: Manuel Penschuck Date: Sat, 16 Feb 2013 21:45:52 +0100 Subject: [PATCH] quite -> quiet --- web/cts | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/web/cts b/web/cts index 89cb88e..4ef1bdc 100755 --- a/web/cts +++ b/web/cts @@ -78,6 +78,8 @@ END_MSG sub connectToCTS { my $endpoint = shift; + die("Please set the enviroment variable DAQOPSERVER") unless defined $ENV{'DAQOPSERVER'}; + my $trb; eval {require "TrbNet.pm"}; $trb = TrbNet->new($endpoint); @@ -124,7 +126,7 @@ for(my $i=0; $i < @ARGV; $i++) { $updateInterval = $ARGV[++$i]; - } elsif ($arg eq "-q" or $arg eq "--quite") { + } elsif ($arg eq "-q" or $arg eq "--quiet") { unless ($i < @ARGV) { print "last parameter expects value\n"; exit(); -- 2.43.0