Index: trunk/install/perl/getxml2db.pl
===================================================================
--- trunk/install/perl/getxml2db.pl (リビジョン 18)
+++ trunk/install/perl/getxml2db.pl (リビジョン 21)
@@ -40,7 +40,9 @@
 if ($ARGV[0]  eq "long"){
 	$uri="http://cal.syoboi.jp/cal_chk.php";
+	#$uri="http://syobocal.orz.hm/cal_chk.php";
 	&writelog("getxml2db  use long mode.");
 }else{
 	$uri="http://cal.syoboi.jp/cal_chk.xml";
+	#$uri="http://syobocal.orz.hm/cal_chk.xml";
 }