egroupware/calendar/inc/hook_home.inc.php
2001-07-28 18:32:15 +00:00

41 lines
2.2 KiB
PHP
Executable File

<?php
/**************************************************************************\
* phpGroupWare - Calendar *
* http://www.phpgroupware.org *
* Based on Webcalendar by Craig Knudsen <cknudsen@radix.net> *
* http://www.radix.net/~cknudsen *
* Written by Mark Peters <skeeter@phpgroupware.org> *
* -------------------------------------------- *
* This program is free software; you can redistribute it and/or modify it *
* under the terms of the GNU General Public License as published by the *
* Free Software Foundation; either version 2 of the License, or (at your *
* option) any later version. *
\**************************************************************************/
/* $Id$ */
$d1 = strtolower(substr(PHPGW_APP_INC,0,3));
if($d1 == 'htt' || $d1 == 'ftp' )
{
echo 'Failed attempt to break in via an old Security Hole!<br>'."\n";
$phpgw->common->phpgw_exit();
}
unset($d1);
global $date;
if ($phpgw_info['user']['preferences']['calendar']['mainscreen_showevents'])
{
$date = $phpgw->common->show_date(time()-((60*60)*intval($phpgw_info['user']['preferences']['common']['tz_offset'])),'Ymd');
$cal = CreateObject('calendar.uicalendar');
echo "\n".'<tr valign="top"><td><table border="0" cols="3"><tr><td align="center" width="35%" valign="top"><!-- BEGIN Calendar info -->'."\n"
. $cal->mini_calendar($cal->bo->day,$cal->bo->month,$cal->bo->year,'day').'</td><td align="center">'
. '<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr><td align="center">'
. lang($phpgw->common->show_date(time()-((60*60)*intval($phpgw_info['user']['preferences']['common']['tz_offset'])),'F')).' '.$cal->bo->day.', '.$cal->bo->year.'</tr></td>'
. '<tr><td bgcolor="'.$phpgw_info['theme']['bg_text'].'" valign="top">'
. $cal->print_day($cal->bo->year,$cal->bo->month,$cal->bo->day).'</td></tr></table>'."\n"
. "\n".'<!-- END Calendar info --></table></td></tr>'."\n";
unset($cal);
}
?>