Try to 'change' first without re-login.

diff --git a/bin/fup b/bin/fup
index 0da386d..bfb53c4 100755 (executable)
--- a/bin/fup
+++ b/bin/fup
@@ -70,7 +70,7 @@ my($on)=@_;
        do {
                print "!" if $try;
                die "Looping to login" if $try++>0x10;
-               login();
+               login() if $try;
                $change=simple("https://uzivatel.gtsnovera.cz/cgi-bin/fup.pl",
                                'action.'.($on ? 'setManual' : 'unsetManual').'=1',
                                )->decoded_content() or die "change: ".$on;