録画番組削除
削除番組はありません。\n";
}else{
$userclass = getuserclass($con);
if ( $userclass <= 1){
print "
次の番組を削除しました。
| ファイル名 |
タイトル |
話数 |
サブタイ |
";
foreach ($delete as $fName) {
if( preg_match('/.MP4$/',$fName)){ //拡張子がMP4なら録画ライブラリ番組個別表示での削除 (showlibc.php)
$query = "
SELECT
foltia_subtitle.pspfilename,
foltia_program.title,
foltia_subtitle.countno,
foltia_subtitle.subtitle
FROM foltia_subtitle,foltia_program
WHERE foltia_subtitle.tid = foltia_program.tid AND foltia_subtitle.pspfilename = ?
LIMIT 1";
$rs = sql_query($con, $query, "DBクエリに失敗しました",array($fName));
$rall = $rs->fetch();
$rowdata = $rall[0];
$title = htmlspecialchars($rall[1]);
$count = htmlspecialchars($rall[2]);
$subtitle = htmlspecialchars($rall[3]);
print "
$fName
|
";
if ($tid > 0 ){
print "$title";
}else{
print "$title";
}
print " |
$count
|
$subtitle
|
\n
";
//DBから削除
if ($demomode){
}else{
$query = "
DELETE FROM foltia_mp4files
WHERE mp4filename = ?
";
//$rs = m_query($con, $query, "DBクエリに失敗しました");
$rs = sql_query($con, $query, "DBクエリに失敗しました",array($fName));
//削除処理
$oserr = system("$toolpath/perl/deletemovie.pl $fName");
}//end if demomode
}else{ //拡張子がMP4以外なら 録画一覧（録画順・番組順）の削除(showplaylist.php)
$query = "
SELECT foltia_program.tid,foltia_program.title,foltia_subtitle.countno,foltia_subtitle.subtitle
FROM foltia_subtitle , foltia_program
WHERE foltia_program.tid = foltia_subtitle.tid
AND foltia_subtitle.m2pfilename = ?
";
//$rs = m_query($con, $query, "DBクエリに失敗しました");
//$rs = sql_query($con, $query, "DBクエリに失敗しました",array($filesplit[0] ,$filesplit[1]));
$rs = sql_query($con, $query, "DBクエリに失敗しました",array($fName));
$rall = $rs->fetchAll();
$rowdata = $rall[0];
$title = $rowdata[1];
$count = $rowdata[2];
$subtitle = $rowdata[3];
$tid = htmlspecialchars($rowdata[0]);
$title = htmlspecialchars($title);
$count = htmlspecialchars($count);
$subtitle = htmlspecialchars($subtitle);
print "
$fName
|
";
if ($tid > 0 ){
print "$title";
}else{
print "$title";
}
print " |
$count
|
$subtitle
|
\n
";
//DBから削除
if ($demomode){
}else{
$query = "
DELETE FROM foltia_m2pfiles
WHERE m2pfilename = ?
";
//$rs = m_query($con, $query, "DBクエリに失敗しました");
$rs = sql_query($con, $query, "DBクエリに失敗しました",array($fName));
//削除処理
$oserr = system("$toolpath/perl/deletemovie.pl $fName");
}//end if demomode
}//end if .MP4拡張子分岐
}//foreach
print "
\n";
}else{//権限なし
print "
ファイル削除権限がありません。
";
}
}//if $delete == ""
?>