root/trunk/install/perl/updatem2pfiletable.pl

リビジョン 1, 1.7 kB (コミッタ: jplcom, コミット時期: 18 年 前)

initial import

  • svn:executable 属性の設定値:
Line 
1 #!/usr/bin/perl
2 #
3 # Anime recording system foltia
4 # http://www.dcc-jpl.com/soft/foltia/
5 #
6 # usage :updatem2pfiletable.pl
7 #
8 # m2pfileのリストをテーブルに入れる
9 # 全deleteして更新する
10 # おもにメンテナンス用
11 # または一日一回ぐらいcronで実行させてもいいかも
12 #
13 # DCC-JPL Japan/foltia project
14 #
15
16 use DBI;
17 use DBD::Pg;
18
19 $path = $0;
20 $path =~ s/updatem2pfiletable.pl$//i;
21 if ($pwd  ne "./"){
22 push( @INC, "$path");
23 }
24
25 require "foltialib.pl";
26         my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
27                 $DBDriv,$DBName,$DBHost,$DBPort);
28          $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
29
30 # ひとまず消す
31 $query =  "DELETE  FROM  foltia_m2pfiles  ";
32          $sth = $dbh->prepare($query);
33         $sth->execute();
34
35 while ($file = glob("$recfolderpath/*.m2p")) {
36 $file =~ s/$recfolderpath\///;
37 $query =  "insert into  foltia_m2pfiles values ('$file')";
38          $sth = $dbh->prepare($query);
39         $sth->execute();
40 # print "$file\n";
41 }#while
42
43 # foltia_mp4files
44
45 # ひとまず消す
46 $query =  "DELETE  FROM  foltia_mp4files  ";
47          $sth = $dbh->prepare($query);
48         $sth->execute();
49
50 @mp4filelist = `find $recfolderpath | grep MP4`;
51 # find /home/foltia/php/tv | grep MP4
52
53 #/home/foltia/php/tv/1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
54 #/home/foltia/php/tv/1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
55
56
57 foreach (@mp4filelist) {
58 chomp();
59 s/$recfolderpath\///;
60 # 1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
61 # 1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
62 @fileline = split (/\//);
63 $filetid = $fileline[0];
64 $filetid =~ s/[^0-9]//g;
65
66 $query =  "insert into  foltia_mp4files values ('$filetid','$fileline[2]')";
67          $sth = $dbh->prepare($query);
68         $sth->execute();
69
70
71 #print "$filetid;$fileline[2];$query\n"
72 # http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html
73
74 }
Note: リポジトリブラウザについてのヘルプは TracBrowser を参照してください。
track feed