@@ -14,51 +14,17 @@
#
#
-$path = $0;
-$path =~ s/deletemovie.pl$//i;
-if ($pwd ne "./"){
-push( @INC, "$path");
-}
-
-require "foltialib.pl";
+use strict;
+use warnings;
+use Carp;
+use Getopt::Long;
+use Foltia;
#°ú¤¿ô¤¬¥¢¥ë¤«?
-$fname = $ARGV[0] ;
-if ($fname eq "" ){
- #°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
- print "usage;deletemovie.pl <FILENAME>\n";
- exit;
-}
-
-#¥Õ¥¡¥¤¥ë̾ÀµÅöÀ¥Á¥§¥Ã¥¯
-if ($fname =~ /.m2p\z/){
-
-}else{
-# print "deletemovie invalid filetype.\n";
- &writelog("deletemovie invalid filetype:$fname.");
- exit (1);
-}
-
-#¥Õ¥¡¥¤¥ë¸ºß¥Á¥§¥Ã¥¯
-
-if (-e "$recfolderpath/$fname"){
-
-}else{
-# print "deletemovie file not found.$recfolderpath/$fname\n";
- &writelog("deletemovie file not found:$fname.");
- exit (1);
-}
-
-#´ûÆɺï½ü½èÍý
-if ($rapidfiledelete > 0){ #./mita/¤Ø°ÜÆ°
- system ("mv $recfolderpath/$fname $recfolderpath/mita/");
- &writelog("deletemovie mv $recfolderpath/$fname $recfolderpath/mita/.");
-}else{ #¨»þºï½ü
- system ("rm $recfolderpath/$fname ");
- &writelog("deletemovie rm $recfolderpath/$fname ");
-
-
-}
-
+GetOptions('-f=s' => \my $file);
+#°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
+$file or die "Usage: deletemovie.pl <FILENAME>\n";
+my $f = new Foltia;
+$f->video->deletemovie($file);
bin/deletemovie.pl
@@ -14,35 +14,22 @@
# DCC-JPL Japan/foltia project
#
#
-use DBI;
-use DBD::Pg;
-use Schedule::At;
-use Time::Local;
+use strict;
+use warnings;
+use Carp;
+use Getopt::Long;
+use Foltia;
-$path = $0;
-$path =~ s/folprep.pl$//i;
-if ($pwd ne "./"){
-push( @INC, "$path");
-}
-
-require "foltialib.pl";
-
-#XML¥²¥Ã¥È & DB¹¹¿·
-system("$toolpath/perl/getxml2db.pl");
-
-#°ú¤¿ô¤¬¥¢¥ë¤«?
-$pid = $ARGV[0] ;
-if ($pid eq "" ){
- #°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
- print "usage;folprep.pl <PID>\n";
- exit;
-}
+GetOptions('-p=s' => \my $pid)
+#°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
+$pid or die "Usage: folprep.pl <PID>\n";
#PIDõ¤·
-$pid = $ARGV[0];
#¥¥å¡¼ºÆÅêÆþ
- &writelog("folprep $toolpath/perl/addpidatq.pl $pid");
-system("$toolpath/perl/addpidatq.pl $pid");
+Foltia::Util::writelog("folprep addpidatq $pid");
+my $f = new Foltia;
+$f->db->addpidatq($pid);
+
bin/folprep.pl
@@ -10,61 +10,17 @@
# DCC-JPL Japan/foltia project
#
#
+use strict;
+use warnings;
+use Carp;
+use Getopt::Long;
+use Foltia;
-use Jcode;
-use DBI;
-use DBD::Pg;
+GetOptions('-t=s' => \my $tid)
+#°ú¤¿ô¤¬¥¢¥ë¤«? #°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
+$tid or die "Usage: mklocalizeddir.pl [TID]\n";
-$path = $0;
-$path =~ s/mklocalizeddir.pl$//i;
-if ($pwd ne "./"){
-push( @INC, "$path");
-}
-require "foltialib.pl";
-
-#°ú¤¿ô¤¬¥¢¥ë¤«?
-$tid = $ARGV[0] ;
-if ($tid eq "" ){
- #°ú¤¿ô¤Ê¤·½Ð¼Â¹Ô¤µ¤ì¤¿¤é¡¢½ªÎ»
- print "usage mklocalizeddir.pl [TID]\n";
- exit;
-}
-
-
-#¤½¤Î¥Ç¥£¥ì¥¯¥È¥ê¤¬¤Ê¤±¤ì¤Ð
-if (-e "$recfolderpath/$tid.localized"){
-
-}else{
-
-
-#.localizedÍÑʸ»úÎó¼èÆÀ
-
-#Àܳ
- my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
- $DBDriv,$DBName,$DBHost,$DBPort);
- $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
-
-#¸¡º÷
-$DBQuery = "select title from foltia_program where tid=$tid ";
- $sth = $dbh->prepare($DBQuery);
- $sth->execute();
- @subticount= $sth->fetchrow_array;
-$title = $subticount[0] ;
-$titleeuc = $title ;
- Jcode::convert(\$title , 'utf8', 'euc', "z");
-
-
- mkdir ("$recfolderpath/$tid.localized",0755);
- mkdir ("$recfolderpath/$tid.localized/.localized",0755);
- mkdir ("$recfolderpath/$tid.localized/mp4",0755);
- mkdir ("$recfolderpath/$tid.localized/m2p",0755);
- open (JASTRING,">$recfolderpath/$tid.localized/.localized/ja.strings") || die "Cannot write ja.strings.\n";
- print JASTRING "\"$tid\"=\"$title\";\n";
- close(JASTRING);
-
-&writelog("mklocalizeddir $tid $titleeuc");
-
-}#unless °ú¤¿ô¤¬¥¢¥ë¤«?
-
+my $f = new Foltia;
+$f->video->mklocalizeddir($tid);
bin/mklocalizeddir.pl
@@ -7,6 +7,8 @@ use DBI;
use DBD::Pg;
use Schedule::At;
use Time::Local;
+use Encode;
+use Encode::Guess qw/utf8 euc-jp shiftjis 7bit-jis/;
__PACKAGE__->mk_accessors(qw/config/);
@@ -307,4 +309,65 @@ sub addpidatq {
}
+sub deletemovie {
+ my ($self, $file) = @_;
+ #ファイル名正当性チェック
+ if (! $file =~ /.m2p\z/){
+ # print "deletemovie invalid filetype.\n";
+ my $msg = "deletemovie invalid filetype: $file.";
+ writelog($msg);
+ warn $msg;
+ return 0;
+ }
+
+ #ファイル存在チェック
+ my $filepath = $self->config->recfolderpath . $file;
+ if (-e $filepath) {
+ # print "deletemovie file not found.$recfolderpath/$fname\n";
+ my $msg = "deletemovie file not found: $file.";
+ writelog($msg);
+ warn $msg;
+ return 0;
+ }
+
+ #既読削除処理
+ if ($self->config->rapidfiledelete > 0){ #./mita/へ移動
+ my $trashpath = $self->config->trashpath;
+ system ("mv $filepath $trashpath");
+ writelog("deletemovie mv $filepath $trashpath.");
+ }else{ #即時削除
+ system ("rm $filepath");
+ writelog("deletemovie rm $filepath ");
+ }
+}
+
+sub mklocalizeddir {
+ my ($self, $tid) = @_;
+
+ #そのディレクトリがなければ
+ my $dirname = $self->config->recfolderpath . $tid . '.localized';
+ return 0 if (-e $dirname);
+
+ #.localized用文字列取得
+
+ #検索
+ my $DBQuery = "select title from foltia_program where tid=$tid ";
+ my $sth = $self->dbh->prepare($DBQuery);
+ $sth->execute();
+ my @subticount= $sth->fetchrow_array;
+ my $title = $subticount[0];
+
+ mkdir ("$dirname",0755);
+ mkdir ("$dirname/.localized",0755);
+ mkdir ("$dirname/mp4",0755);
+ mkdir ("$dirname/m2p",0755);
+ open (JASTRING,">$dirname/.localized/ja.strings") || die "Cannot write ja.strings.\n";
+ print JASTRING "\"$tid\"=\"$title\";\n";
+ close(JASTRING);
+
+ my $utf8title = decode("Guess", $title);
+ #writelog("mklocalizeddir $tid " . encode('utf8', $utf8title));
+ writelog("mklocalizeddir $tid " . encode('euc-jp', $utf8title));
+}
+
1;
lib/Foltia/Video.pm
02d0a00b7509b3970a8b61feefe3d1cb5a8169e3
koshian
koshian@foxking.org
http://github.com/koshian/foltia-the-next-generation/commit/1394b047e35988e97999f0889d90b71bc6f5e1f9
1394b047e35988e97999f0889d90b71bc6f5e1f9
2008-06-15T20:03:54-07:00
2008-06-15T20:03:54-07:00
Fix some *.pl for new Foltia.pm
921aac399a44ee661041a2d8a8482c9b71c95416
koshian
koshian@foxking.org