mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-12-16 11:41:19 +01:00
51 lines
2.2 KiB
PHP
Executable File
51 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);
|
|
|
|
if ($phpgw_info['user']['preferences']['calendar']['mainscreen_showevents'])
|
|
{
|
|
$time = time() - ((60*60) * intval($phpgw_info['user']['preferences']['common']['tz_offset']));
|
|
$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(
|
|
Array(
|
|
'day' => $cal->bo->day,
|
|
'month' => $cal->bo->month,
|
|
'year' => $cal->bo->year,
|
|
'link' => 'day'
|
|
)
|
|
).'</td><td align="center"><table border="0" width="100%" cellspacing="0" cellpadding="0">'
|
|
. '<tr><td align="center">'.lang($phpgw->common->show_date($time,'F')).' '.$cal->bo->day.', '
|
|
.$cal->bo->year.'</tr></td><tr><td bgcolor="'.$phpgw_info['theme']['bg_text']
|
|
.'" valign="top">'.$cal->print_day(
|
|
Array(
|
|
'year' => $cal->bo->year,
|
|
'month' => $cal->bo->month,
|
|
'day' => $cal->bo->day
|
|
)
|
|
).'</td></tr></table>'."\n\n".'<!-- END Calendar info --></table></td></tr>'."\n";
|
|
unset($cal);
|
|
}
|
|
flush();
|
|
?>
|