updatem2pfiletable.pl

コミット日時:

2010/04/02 22:58:58 (15 年前)

コミッタ:

sorshi

ログメッセージ:

radiko録音対応

ファイル:

trunk/install/perl/updatem2pfiletable.pl

r94	r97
31	31	$sth = $dbh->prepare($stmt{'updatem2pfiletable.1'});
32	32	$sth->execute();
33
34	33	while ($file = glob("$recfolderpath/*.m2?")) {
35	34	$file =~ s/$recfolderpath\///;
…	…
38	37	# print "$file\n";
39	38	}#while
	39	while ($file = glob("$recfolderpath/*.aac")) {
	40	$file =~ s/$recfolderpath\///;
	41	$sth = $dbh->prepare($stmt{'updatem2pfiletable.2'});
	42	$sth->execute($file);
	43	# print "$file\n";
	44	}#while
	45
40	46	$oserr = $dbh->commit;
41	47