Only log into WRMS when we actually need to.

diff --git a/tks.pl b/tks.pl
index 52c4392977ec045273ff383325cedbc7da785f4d..1979166b6fd01ca216b986f67dc1ef82d37bf392 100755 (executable)
--- a/tks.pl
+++ b/tks.pl
@@ -49,7 +49,7 @@ my $wrms    = WRMS->new({
     password => $config{default}{password},
     site     => $config{default}{site},
     login    => 1,
-});
+}) if $args->{'-c'};
 
 # map of textual representations for WRs
 my $wrmap = $config{'wrmap'};