#!/usr/local/bin/perl BEGIN{ $| = 1; print "Content-type: text/html\n\n"; open(STDERR, ">&STDOUT"); } #***************************** #画面設定 #タイトル $title = "店舗案内"; #画面全体 #BODYタグ $bodytag=''; $mailtoadd2 = 'Renoir Web Master webmaster@ginza-renoir.co.jp'; #$bodytag=''; # #***************************** $jcode="./jcode.pl"; $datalist="./data/stlist.dat"; #***************************** require $jcode; $cl = $ENV{"CONTENT_LENGTH"}; if( $cl > 0 ){ read(STDIN, $qs, $cl ); }else{ $qs = $ENV{"QUERY_STRING"}; } @contents = split(/&/,$qs); foreach $i (0 .. $#contents) { local($key,$text)= split(/=/,$contents[$i]); $text =~ s/\+/ /g; $text =~ s/%(..)/pack("c",hex($1))/ge; $text =~ s/\r\n/\n/g; $text =~ s/\n//g; &jcode'convert(*text,"sjis"); if ($key ne 'sitedata'){ $text =~ s/<\s*\b[^>]*>//g; } $action = $text if $key eq 'action'; # $id = $text if $key eq 'id'; $id = $text } #********************* Screen &hphead; &datain; &hpfoot; exit; #********************* Data In sub datain{ if (!open(IN, "$datalist")) { &error("Can't open $datalist","no"); } @data = ; close(IN); foreach $line (@data) { chop($line); ($tcode,$gcode,$mcode,$tname,$add,$tel,$edata1,$edata2,$edata3,$sekis,$moyori) = split(/,/, $line); if ($tcode == $id) { last; } } &popup ; } #******************** Data sub popup{ if ($gcode==3){ print "

"; }elsif ($gcode==2){ print "

"; }elsif ($gcode==4){ print "

"; }else{ print "

"; } print <
店舗ご紹介 　 　 　 　 　

EOD if ($mcode==1){ print ""; } print <" ; }else{ print "御座いません"; } print <" ; }else{ print "御座いません"; } print <
店舗名称 $tname
マイスペース"; print "貸会議室マイスペースが御座います
所在地 $add
電話番号 $tel
営業時間 $edata1 EOD print "
$edata2" if ($edata2) ; print "
$edata3" if ($edata3) ; print <
客席数 $sekis席
アクセス $moyori
地図 EOD if (-e "./images/map/mp$tcode.gif") { print "
店舗紹介 EOD if (-e "./images/photo/$tcode.jpg") { print "
EOD } #******************* Head sub hphead{ print "\n\n"; print < $title $bodytag EOD } #******************* Foot sub hpfoot{ print <

　 　 　 　 　 店舗ご紹介

Copyright 2000 Ginza Renoir Co.,Ltd. all rights reserved 
$mailtoadd2

EOD } #****************** Data In sub readdata { if (!open(IN, "$datalist")) { &error("Can't open $datalist","no"); } @data = ; close(IN); } #****************** Error sub error { if ($_[1] eq "lock" && -e $lockfile) { unlink($lockfile); } if (-e $tmpfile) { unlink($tmpfile); } &Header; print "
\n"; print "

エラー！

\n"; print "

$_[0]

\n"; print "
\n"; print "\n"; print "\n"; exit; }