- login();
- my $change=simple("https://uzivatel.gtsnovera.cz/cgi-bin/fup.pl",
- 'action.'.($on ? 'setManual' : 'unsetManual').'=1',
- )->decoded_content() or die "change: ".$on;
+ my $try=0;
+ my $change;
+ do {
+ print "!" if $try;
+ die "Looping to login" if $try++>0x10;
+ login();
+ $change=simple("https://uzivatel.gtsnovera.cz/cgi-bin/fup.pl",
+ 'action.'.($on ? 'setManual' : 'unsetManual').'=1',
+ )->decoded_content() or die "change: ".$on;
+ } while $change=~m{No authentication cookie was sent.};