#!/usr/bin/perl use DBI; #use lib qw(/home/aromalife/lib); use lib qw(./../../lib); use Date::Simple; print "Content-Type: text/html\n\n"; $user = 'slowlifedb'; $passwd = 'mrrqw5mv'; $db = DBI->connect('DBI:mysql:slowlifedb', $user, $passwd); $db->disconnect; #プログラム開始 ($c_sec,$c_min,$c_hour,$c_mday,$c_mon,$c_year,$c_wday,$c_yday,$c_isdst)=localtime(time); $c_mon = $c_mon + 1; $c_year = $c_year + 1900; my @youbi = ('日','月','火','水','木','金','土'); print < スケジュール|ランジェリークラブ スローライフ 秋葉原駅 昭和通り口徒歩1分

SLOW LIFE SCHEDULE

○:出勤 △:未定 ×:休み  毎週日曜日は不定休です

EOM print ""; print ""; #-- 今日から7日分 --# #日付 for ($i=0; $i<7; $i++){ ($c_sec,$c_min,$c_hour,$c_mday,$c_mon,$c_year,$c_wday,$c_yday,$c_isdst)=localtime(time + (86400*$i)); $c_mon = $c_mon + 1; $c_year = $c_year + 1900; print ""; } print ""; #有効なキャストを検索してスケジュールを取得 $strSql = "SELECT * FROM sl_employee WHERE se_status=1"; $strSql = "$strSql ORDER BY se_yomi"; $sth = $db->prepare($strSql); $sth ->execute; $mod = 0; while ($row = $sth->fetchrow_hashref()){ $se_id = $row->{se_id}; $se_name = $row->{se_name}; $se_yomi = $row->{se_yomi}; $se_status = $row->{se_status}; $se_new = $row->{se_new}; if ($col eq "col2"){ $col = "col1"; } else { $col = "col2"; } #15行毎にタイトル列を挿入 $mod++; if ($mod % 15 ==0) { print ""; print ""; #-- 今日から7日分 --# #日付 for ($i=0; $i<7; $i++){ ($c_sec,$c_min,$c_hour,$c_mday,$c_mon,$c_year,$c_wday,$c_yday,$c_isdst)=localtime(time + (86400*$i)); $c_mon = $c_mon + 1; $c_year = $c_year + 1900; print ""; } print ""; } print "\n"; print ""; for ($i=0; $i<7; $i++){ ($c_sec,$c_min,$c_hour,$c_mday,$c_mon,$c_year,$c_wday,$c_yday,$c_isdst)=localtime(time + (86400*$i)); $c_mon = $c_mon + 1; $c_year = $c_year + 1900; if ($c_mon<10) { $c_mon = "0$c_mon"; } if ($c_mday<10) { $c_mday = "0$c_mday"; } #店休日を取得 $strSql2 = "SELECT * FROM sl_tenkyu WHERE st_status=1 AND st_date='$c_year-$c_mon-$c_mday'"; #print "
", $strSql, ""; $row2 = $db->selectrow_hashref($strSql2); if ($row2 eq ''){ $tenkyu = "no"; } else { $tenkyu = "yes"; } if ($c_wday==0 || $tenkyu eq "yes") { print ""; } else { $strSql2 = "SELECT * FROM sl_schedule WHERE ss_status=1 AND ss_seid=$se_id AND ss_date='$c_year-$c_mon-$c_mday'"; $row2 = $db->selectrow_hashref($strSql2); if ($row2 eq ''){ print ""; } else { $ss_shift = $row2->{ss_shift}; print ""; } } } print ""; } $sth->finish; print < EOM
名前"; print "$c_mon/$c_mday"; print "($youbi[$c_wday])"; print "
名前"; print "$c_mon/$c_mday"; print "($youbi[$c_wday])"; print "
$se_name$ss_shift