add in_status fix option

[rec10/rec10-git.git] / rectool / trunk / rectool.pl

diff --git a/rectool/trunk/rectool.pl b/rectool/trunk/rectool.pl
index 685e78b..ab2a91e 100755 (executable)
--- a/rectool/trunk/rectool.pl
+++ b/rectool/trunk/rectool.pl
@@ -824,6 +824,21 @@ if ( $mode eq 'change' ) {
 
                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;
+       }
 
 }
 
@@ -1503,6 +1518,14 @@ if ( $mode eq 'expert' ) {
 
        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};