Index: trunk/install/perl/tvrecording.pl =================================================================== --- trunk/install/perl/tvrecording.pl (リビジョン 44) +++ trunk/install/perl/tvrecording.pl (リビジョン 79) @@ -307,5 +307,5 @@ # $outputfile .= "$ARGV[3]"; # $outputfile .= `date +%Y%m%d-%H%M --date "1 min "`; - &writelog("tvrecording: DEBUG ARGV[2] ne null \$outputfile $outputfile "); + &writelog("tvrecording: DEBUG ARGV[3] ne null \$outputfile $outputfile "); }else{ @@ -313,5 +313,5 @@ chomp($outputfile); $outputfile .= ".m2p"; -&writelog("tvrecording: DEBUG ARGV[2] is null \$outputfile $outputfile "); +&writelog("tvrecording: DEBUG ARGV[3] is null \$outputfile $outputfile "); } Index: trunk/install/perl/getxml2db.pl =================================================================== --- trunk/install/perl/getxml2db.pl (リビジョン 60) +++ trunk/install/perl/getxml2db.pl (リビジョン 79) @@ -74,6 +74,7 @@ s/\'/\\'/gio; s/\"/\'/gio; -s/[\w]*=/\$item{$&}=/gio; -s/\=}=/}=/gio; +#s/[\w]*=/\$item{$&}=/gio; +#s/\=}=/}=/gio; +s/(\w+)=/\$item{$1}=/gio;#by foltiaBBS #$item{PID}='21543';