- コミット日時:
- 2010/07/09 22:24:18 (14 年前)
- ファイル:
-
- trunk/install/php/delepgp.php (更新) (1 diff)
- trunk/install/php/m.php (更新) (6 diffs)
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/php/delepgp.php
r104 r107 76 76 $rs = sql_query($con, $query, "DBクエリに失敗しました",array($pid)); 77 77 $rowdata = $rs->fetch(); 78 $rs->closeCursor(); 78 79 79 80 if (!is_array($rowdata) || empty($rowdata)) { trunk/install/php/m.php
r104 r107 101 101 $stationvalid = sql_query($con, $query, "DBクエリに失敗しました",array($recstid)); 102 102 $recstationname = $stationvalid->fetch(); 103 $stationvalid->closeCursor(); 104 103 105 if (!is_array($recstationname) || empty($recstationname)) { 104 106 $errflag = 3; … … 131 133 $rs = sql_query($con, $query, "DBクエリに失敗しました"); 132 134 $rowdata = $rs->fetch(); 135 $rs->closeCursor(); 133 136 if (! $rowdata) { 134 137 $insertpid = -1 ; … … 146 149 $rs = sql_query($con, $query, "DBクエリに失敗しました"); 147 150 $rowdata = $rs->fetch(); 151 $rs->closeCursor(); 148 152 if (! $rowdata) { 149 153 $nextcno = 1 ; … … 175 179 exec("$toolpath/perl/addatq.pl 0 0"); 176 180 $oserr = system("$toolpath/perl/addatq.pl 0 0"); 177 //---------------------------------------------------178 if ($oserr){179 print "[DEBUG]$oserr 「$toolpath/perl/addatq.pl 0 0」<br>\n";180 }else{181 print "[DEBUG]exec addatq.pl false 「$toolpath/perl/addatq.pl 0 0」<br>\n";182 183 $oserr = system("$toolpath/perl/perltestscript.pl");184 if ($oserr){185 print "[DEBUG]exec perltestscript.pl $oserr<br>\n";186 }else{187 print "[DEBUG]exec perltestscript.pl false <br>\n";188 }189 190 }191 //-----------------------------------------------------192 181 }else{ 193 182 print "EPG予約を行う権限がありません。"; … … 264 253 print "放送局データベースが正しくセットアップされていません。録画可能局がありません"; 265 254 } 255 $stations->closeCursor(); 266 256 //外部入力チャンネル 267 257 $query = " … … 286 276 } while ($rowdata = $stations->fetch()); 287 277 } 278 $stations->closeCursor(); 288 279 /* 289 280 print "<p>デジタル録画を優先:";