my $debug;
($debug, %bbtree) = bbtree($bb, $printdebug);
- ($debug, $ht) = convtree ($printdebug, $debug, 'bb', %bbtree);
+ ($debug, $ht) = convtree ($printdebug, $debug, 'bb', \%bbtree);
return $ht;
}
foreach my $key (keys %$data) {
unless ($key eq 'content') {
- my $val = $data->{'ind'};
+ my $val = $data->{$key};
$val =~ s/(\r)?\n/\n /gs; # does the space make sense in HTML anyway?
print $fh html_encode_line("$key: $val\n", 1);
}
$viewer_next_url = merge_url($viewer_next_url, {'query' => $password_query, 'append_query' => 1});
$viewer_last_url = merge_url($viewer_last_url, {'query' => $password_query, 'append_query' => 1});
if ($frame_indirect) {
- $frame_url = merge_url($frame_url , {'query' => $password_query});
+ $frame_url = merge_url($frame_url , {'query' => $password_query, 'append_query' => 1});
}
if ($nextframe_indirect) {
- $frame_url = merge_url($frame_next_url, {'query' => $password_query});
+ $frame_url = merge_url($frame_next_url, {'query' => $password_query, 'append_query' => 1});
}
}
my $_base_url = html_entity_encode_dec($base_url , 1);
print $fh ':<span id="ongm" class="'.$timer_color_m.'">'.$timer_m.'</span>';
print $fh ':<span id="ongs" class="'.$timer_color_s.'">'.$timer_s.'</span>]<br>'."\n";
}
- print '>';
+ print '>';
if ($show_command_link) {
print $fh '<a href="'.($access ? $_viewer_next_url : $_viewer_last_url).'">';
}
}
elsif ($state{'ip3'} eq '') {
$new_state{'ip3'} = $IP;
+ $new_state{'state'} = STATE->{'ready'};
+ }
+ else {
+ $new_state{'state'} = STATE->{'ready'};
}
write_data_file($state_file, '', '', \%new_state);
}
'timer' => $timer,
'static' => 0,
'show_command' => $show_command,
+ 'text_mode' => $text_mode,
},
\%state,
\%settings,