ST-7700発注

10s DURA が出回り始めたので、
なくならないうちに
調子の悪かった 77 DURA の左STIを発注しておいた。

	【受 付 日】2003/10/25

	【注文番号】139196
	【お支払い方法】代金引換
	【ご注文内容】
	----------------------------------------------------------
	　　　　　　　　　　商　品　名　　　　　　　　単価　　数量
	----------------------------------------------------------
	ロード系 ＳＴＩ
	シマノ
	[DURA-ACE] [片方だけ]  ST-7700Ｃ 　ケーブルセット無し サイズ：左のみ
	 
	　　　　　　　　　　　　　　　　　　　　\13,390　1
	----------------------------------------------------------
	OTHERS ケミカル用品
	ＶＩＶＡ
	リムセメントクリーナー　100ｃｃ　缶入り　はけつき 
	　　　　　　　　　　　　　　　　　　　　\720　1
	----------------------------------------------------------
	　　　　　　小　　　　　計　　　　　　\14,110
	　　　　　　送　　　　　料　　　　　　\600
	　　　　　　手　　数　　料　　　　　　\400
	　　　　　　消　　費　　税　　　　　　\755
	----------------------------------------------------------
	　　　　　　合　　　　　計　　　　　　\15,865
	----------------------------------------------------------

hns から tDiary に飛ばす CGI

ちと修正。
どこかで見たことある人もいるだろう(わら

	#!/usr/bin/perl
         
	if($ENV{'QUERY_STRING'}){
	        $OLDURL="http://diary.tnh.jp/?".$ENV{'QUERY_STRING'};
	}else{
	        $OLDURL="http://diary.tnh.jp/";
	}
	if($OLDURL=~/&to=([0-9]....[0-9])([0-9][0-9])?/){
	        $URL="http://d.tnh.jp/?date=$1$2";
	        print "Location: $URL\r\n";
	        print "\r\n";
	        exit(0);
	}else{
	        $URL="http://d.tnh.jp/";
	}
         
	print "Content-type: text/html\r\n";
	print "\r\n";
	print<
	
	
	        
	        
	        
	        
	        
	
	
	
指定の Web ページは移動しました
	

	指定の Web ページ $OLDURL は,
	
	$URL に移動しました.
	
	

	元のページにリンクまたはブックマークされていた場合は,
	情報の更新をおねがいいたします.
	
	
	
	EOM
	exit(0);