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';