goto end;
}
+ if ( $mode_sub eq 'fixstatus' ) {
+ my $key = $q->param( 'terec' ) ? 'terec' : $q->param( 'bscsrec' ) ? 'bscsrec' :
+ $q->param( 'b252ts' ) ? 'b252ts' : $q->param( 'ts2avi' ) ? 'ts2avi' : '';
+
+ if ( $key ) {
+ $dbh->do(
+ "UPDATE in_status SET $key = 0"
+ );
+ }
+ else {
+ $HTML .= qq {パラメータが異常です。<br>\n};
+ }
+
+ goto end;
+ }
}
my @ary = $dbh->selectrow_array( "SELECT terec, bscsrec, b252ts, ts2avi FROM in_status" );
$HTML .= qq {<hr>\n地上波録画数:$ary[0]\n衛星波録画数:$ary[1]\n解読数:$ary[2]\n縁故数:$ary[3]\n<br>\n};
+ $HTML .= qq {<form method="get" action="rectool.pl">\n};
+ $HTML .= qq {<div>\n};
+ $HTML .= qq {<input type="hidden" name="mode" value="change">\n};
+ $HTML .= qq {<input type="hidden" name="mode_sub" value="fixstatus">\n};
+ $HTML .= qq {<input type="submit" name="terec" value="地上波録画数をリセット">\n};
+ $HTML .= qq {<input type="submit" name="bscsrec" value="衛星波録画数をリセット">\n};
+ $HTML .= qq {<input type="submit" name="b252ts" value="解読数をリセット">\n};
+ $HTML .= qq {<input type="submit" name="ts2avi" value="縁故数をリセット">\n</div>\n</form>\n};
$HTML .= qq {<hr>\nRec10 バージョン:$rec10_version\nrectool バージョン:$rectool_version\n<br>\n};