#!/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版
IMAGINE TOKYO
header

五反田・品川の風俗メンズエステ!回春マッサージ【イマジン東京】のセラピストスケジュールページです。

  1. 五反田のメンズエステ[イマジン東京] > 
  2. TOP > 
  3. セラピストスケジュール
◆ご\予\約・お問い合わせ

03-3444-7968
●営業時間/9:30受付開始
●10:00〜翌朝5:00



当日から翌々日まで3日間の出勤スケジュールをご覧頂けます。『日付』は、朝10時から翌朝5時まで、当店の営業時間に準じております。 前日\予\約は『はや割り』の割引対象にもなりますので、是非、ご活用くださいませ。『金の卵割引』マークは、新人割引対象者です。
BIG CHANCEセラピストは、BIG CHANCEページをご覧くださいませ。


BIG CHANCEへ>>


金の卵割引とは?
入店したての有望セラピストに限り、下記特価にてご案内さしあげます。
70分以上 1,000円割引
100分以上コースで前日ご\予\約のお客様には、さらに1,000円割引をいたします。
尚、こちらは限定割引となりますので、通常の早割の対象外となります。
セラピストスケジュール

モバイルの為、セラピストのサムネール画像は\表\示できません。リンクよりプロフィールにてご確認ください。


$honhishoの出勤

_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_";

◆TOP PAGEへ>>

PAGE TOP▲


© 五反田/品川の出張回春マッサージ!風俗エステ|イマジン東京MB版All Rights Reserved.
_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); }