HOME -> 貨物追跡と再注文
貨物追跡
貨物追跡サービス
商品名のリンク先をクリックすると簡単に再注文できます。
リンクが無い場合はお手数をお掛けしますが、商品検索か商品一覧からご注文ください。
貨物番号をクリックすると貨物追跡ができます。
貨物番号はお支払い後、3営業日位で表示されます。
#!/usr/bin/perl #┌──────────────────────── #│ 貨物追跡 #│ trace_ssi.cgi V1.0 #│ Copyright (c) CityVillage #└──────────────────────── # ライブラリ require './jcode.pl'; print "Content-Type: text/plain\n\n"; # HTTPヘッダーの出力 # 処理定義 &trace_ssi(); sub trace_ssi { # 前処理 # ログイン中か調べる my $cook = $ENV{'HTTP_COOKIE'}; my @cook = split(/;/, $cook); # クッキーID単位に分割 my %cook; foreach (@cook) { my ($key, $val) = split(/=/); $key =~ s/\s//g; $cook{$key} = $val; } if( $cook{'V-STORE'} ne "" ) { $email = $cook{'V-STORE'}; $MEMBERFILE = "c:\\www\\v-store\\member.com\\$email.txt"; if( !open( IN, "< $MEMBERFILE" ) ){ &error("論理矛盾(ログインしているのに会員ファイルがない)"); } $LOGIN_FLG = "c:\\www\\v-store\\member.com\\$email.log"; while () {
chomp;
my ($aaa,$info) = split(/=/);
$in{$aaa} = $info;
}
close(IN);
} else {
# 非ログインならエラー処理
# 貨物追跡サービスは会員様専用です。など表示？
}
# ログファイルをオープン
if( !open( IN, "< $LOGIN_FLG" ) ){
# ログファイルが無ければエラー処理
# 現在、ご注文の商品はありません。
print('
'); } else { #タグ開始
print('
タグ閉じ
print("
");
# ログファイルをクローズ
close(IN);
}
} # trace_ssi() 終わり
#---------------------------------------
# エラー処理
#---------------------------------------
sub error {
my ($err_msg) = @_;
&header;
print <ERROR !
$code
$err_msg
商品名のリンク先をクリックすると簡単に再注文できます。
リンクが無い場合はお手数をお掛けしますが、商品検索か商品一覧からご注文ください。
貨物番号をクリックすると貨物追跡ができます。
貨物番号はお支払い後、3営業日位で表示されます。
#!/usr/bin/perl #┌──────────────────────── #│ 貨物追跡 #│ trace_ssi.cgi V1.0 #│ Copyright (c) CityVillage #└──────────────────────── # ライブラリ require './jcode.pl'; print "Content-Type: text/plain\n\n"; # HTTPヘッダーの出力 # 処理定義 &trace_ssi(); sub trace_ssi { # 前処理 # ログイン中か調べる my $cook = $ENV{'HTTP_COOKIE'}; my @cook = split(/;/, $cook); # クッキーID単位に分割 my %cook; foreach (@cook) { my ($key, $val) = split(/=/); $key =~ s/\s//g; $cook{$key} = $val; } if( $cook{'V-STORE'} ne "" ) { $email = $cook{'V-STORE'}; $MEMBERFILE = "c:\\www\\v-store\\member.com\\$email.txt"; if( !open( IN, "< $MEMBERFILE" ) ){ &error("論理矛盾(ログインしているのに会員ファイルがない)"); } $LOGIN_FLG = "c:\\www\\v-store\\member.com\\$email.log"; while (
現在、ご注文の商品はありません。
'); } else { #
| 注文日時 | 注文商品 | 貨物番号 | |
|---|---|---|---|
| $dty | "); if( $url eq "" ){ print("$item | "); } else { print("$item | "); } if( $rgt eq "RGT" ){ print("$regno | $regno | "); } elsif( $rgt eq "MAIL" ){ print("$regno | "); } elsif( $rgt eq "PERI" ){ print("$regno | "); } elsif( $rgt eq "YAMATO" ){ print("$regno | "); } else { if( $regno eq "" ){ print(""); } else { print(" | $regno | "); } } } #
ブラウザのBACKで戻ってください。