#!/usr/local/bin/perl
require 'jcode.pl';
$file="../../database/therapist_db.csv";
$cgi="mobile.cgi";
&decode;
$honhisho = "本日 $todayj";
$hyo="../../schedule/date/$today.php";
if($FORM{ashita} ne ""){$hyo="../../schedule/date/$tomorrow.php";
$honhisho = "明日 $tomorrowj";
}
if($FORM{asatte} ne ""){$hyo="../../schedule/date/$dayafter.php";
$honhisho = "明後日 $dayafterj";
}
if($FORM{kino} ne ""){$hyo="../../schedule/date/$yesterday.php";
}
⊤
sub top{
print "Content-type: text/html\n\n";
$HEAD=1;
print <<"_EOF_";
セラピストスケジュール | 五反田や品川のメンズエステなら回春風俗店[イマジン東京]MB版
当日から翌々日まで3日間の出勤スケジュールをご覧頂けます。『日付』は、朝10時から翌朝5時まで、当店の営業時間に準じております。
前日\予\約は『はや割り』の割引対象にもなりますので、是非、ご活用くださいませ。『金の卵割引』マークは、新人割引対象者です。
BIG CHANCEセラピストは、BIG CHANCEページをご覧くださいませ。
金の卵割引とは?
入店したての有望セラピストに限り、下記特価にてご案内さしあげます。
70分以上
1,000円割引
100分以上コースで前日ご\予\約のお客様には、さらに1,000円割引をいたします。 尚、こちらは限定割引となりますので、通常の早割の対象外となります。
モバイルの為、セラピストのサムネール画像は\表\示できません。リンクよりプロフィールにてご確認ください。
_EOF_
$i=1;
$coun=0;
open(FI,"$file")|| die "Can not open $file !!!";
@s = reverse ;
close(FI);
foreach $line (@s){
chop($line);
@ite = split(/\,/,$line);
open(F2,"$hyo")|| die "Can not open $file !!!";
@b = ;
close(F2);
foreach $line2 (@b){
chop($line2);
@bb = split(/,/,$line2);
if(@ite[2] eq @bb[0]){
$nan++;
print <<"_EOF_";
■ @ite[1]
_EOF_
@intime = @bb[1] =~ /.{2}/g;#出勤時間を分割
$aaa = join(":",@intime);#:で結合
$bbb = @bb[2];
if (@bb[2] =~ /[0-9]/) {#終了時間が数字だけの処理
@outtime = @bb[2] =~ /.{2}/g;#分割
$bbb = join(":",@outtime);#:で結合
}
$jikanHyoji = ''.$aaa."〜".$bbb.' '." ";
if(@ite[0] == "1"){
print '☆金の卵割引☆ ';
print $jikanHyoji
}
elsif(@ite[0] == "2"){
print '◆本日プレミア割引◆ ';
print $jikanHyoji
}
else{
print " ";
print $jikanHyoji
}
}
}
print <<"_EOF_";
_EOF_
$i++;
$coun++;
}
print <<"_EOF_";
PAGE TOP▲
_EOF_
}
sub decode{
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$FORM{$name} = $value;
if($name ne "submit"){push(@formlist,$name);}
}
#日時の取得
($seconds,$minutes,$hour,$monthday,$month,$year,$weekday,$yearday,$isdist)=localtime(time);
@youbi=("日","月","火","水","木","金","土");
$weekday=$youbi[$weekday];
$year+=1900;
$month++;
$date="$year年$month月$monthday日\($weekday\)$hour時$minutes分$seconds秒";
$date_rimit ="$year_$month_$monthday";
$ye = time - 18 * 3600;
$to = time -6 * 3600;
$tomo = time + 18 * 3600;
$dayaf = time + 42 * 3600;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($to);
$today = sprintf("%04d_%02d_%02d", $year + 1900, $mon +1, $mday);
$todayj = sprintf("%02d月%02d日", $mon +1, $mday);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($tomo);
$tomorrow = sprintf("%04d_%02d_%02d", $year + 1900, $mon +1, $mday);
$tomorrowj = sprintf("%02d月%02d日", $mon +1, $mday);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($dayaf);
$dayafter = sprintf("%04d_%02d_%02d", $year + 1900, $mon +1, $mday);
$dayafterj = sprintf("%02d月%02d日", $mon +1, $mday);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($ye);
$yesterday = sprintf("%04d_%02d_%02d", $year + 1900, $mon +1, $mday);
$yesterdayj = sprintf("%02d月%02d日", $mon +1, $mday);
}