cmd_submit(c);
else if (!strcasecmp(cmd, "STATUS"))
cmd_status(c);
+ else if (!strcasecmp(cmd, "NOP"))
+ ;
else
err(c, "Unknown command");
}
sub timed_refresh()
{
- refresh(); # FIXME: If-modified-since version?
+ refresh();
return 1; # We wish to re-run the timer
}
sub end_submit($) {
my ($close) = @_;
$subwin->destroy if $close;
- start_refresh_timer(0);
- ### FIXME: ... and refresh status
+ start_refresh_timer(1);
}
sub finish_submit() {
if ($conn->is_connected) {
busy("Checking server status...");
- my $r = new Sherlock::Object("!" => "STATUS"); ### FIXME: use a NOP command
+ my $r = new Sherlock::Object("!" => "NOP");
$r = $conn->request($r);
}
if (!$conn->is_connected) {
busy("Reconnecting to server...");
if (!$conn->connect) {
ready($conn->{"error"});
- submit_failed("Unable to connect to the server"); ### FIXME: Mention local submit
+ submit_failed("Unable to connect to the server");
return;
}
}