チェンジセット 21: trunk/install/perl
- コミット日時:
- 2006/12/14 14:24:00 (18 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/getxml2db.pl
r18 r21 40 40 if ($ARGV[0] eq "long"){ 41 41 $uri="http://cal.syoboi.jp/cal_chk.php"; 42 #$uri="http://syobocal.orz.hm/cal_chk.php"; 42 43 &writelog("getxml2db use long mode."); 43 44 }else{ 44 45 $uri="http://cal.syoboi.jp/cal_chk.xml"; 46 #$uri="http://syobocal.orz.hm/cal_chk.xml"; 45 47 } 46 48