2001-01-01 19:49:28 +01:00
< ? php
2001-01-17 13:35:43 +01:00
/************************************************************************** \
* 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 . *
\ **************************************************************************/
2001-02-07 13:05:15 +01:00
/* $Id$ */
2001-06-29 02:45:45 +02:00
$d1 = strtolower ( substr ( PHPGW_APP_INC , 0 , 3 ));
2001-04-21 03:51:18 +02:00
if ( $d1 == 'htt' || $d1 == 'ftp' )
{
echo 'Failed attempt to break in via an old Security Hole!<br>' . " \n " ;
2002-09-28 22:01:44 +02:00
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'nodisplay' ] = True ;
exit ;
2001-04-21 03:51:18 +02:00
}
unset ( $d1 );
2001-01-01 19:49:28 +01:00
2001-09-02 09:24:58 +02:00
if ( $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'calendar' ][ 'mainscreen_showevents' ])
2001-04-21 03:51:18 +02:00
{
2001-11-30 02:22:32 +01:00
$GLOBALS [ 'phpgw' ] -> translation -> add_app ( 'calendar' );
2002-08-17 03:44:23 +02:00
if ( ! is_object ( $GLOBALS [ 'phpgw' ] -> datetime ))
{
$GLOBALS [ 'phpgw' ] -> datetime = CreateObject ( 'phpgwapi.datetime' );
}
$GLOBALS [ 'date' ] = date ( 'Ymd' , $GLOBALS [ 'phpgw' ] -> datetime -> users_localtime );
2001-11-05 04:48:14 +01:00
$GLOBALS [ 'g_year' ] = substr ( $GLOBALS [ 'date' ], 0 , 4 );
$GLOBALS [ 'g_month' ] = substr ( $GLOBALS [ 'date' ], 4 , 2 );
$GLOBALS [ 'g_day' ] = substr ( $GLOBALS [ 'date' ], 6 , 2 );
2001-10-23 12:39:03 +02:00
$GLOBALS [ 'owner' ] = $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'account_id' ];
2001-11-05 04:48:14 +01:00
$GLOBALS [ 'css' ] = " \n " . '<STYLE type="text/css">' . " \n " . '<!--' . " \n "
. ExecMethod ( 'calendar.uicalendar.css' ) . '-->' . " \n " . '</style>' ;
$page_ = explode ( '.' , $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'calendar' ][ 'defaultcalendar' ]);
$_page = $page_ [ 0 ];
if ( $_page == 'index' || ( $_page != 'day' && $_page != 'week' && $_page != 'month' && $_page != 'year' ))
{
$_page = 'month' ;
// $GLOBALS['phpgw']->preferences->add('calendar','defaultcalendar','month');
// $GLOBALS['phpgw']->preferences->save_repository();
}
if ( !@ file_exists ( PHPGW_INCLUDE_ROOT . '/calendar/inc/hook_home_' . $_page . '.inc.php' ))
{
$_page = 'day' ;
}
include ( PHPGW_INCLUDE_ROOT . '/calendar/inc/hook_home_' . $_page . '.inc.php' );
2001-10-16 03:31:47 +02:00
$title = '<font color="#FFFFFF">' . lang ( 'Calendar' ) . '</font>' ;
$portalbox = CreateObject ( 'phpgwapi.listbox' ,
Array (
'title' => $title ,
2001-10-21 12:49:29 +02:00
'width' => '100%' ,
2001-10-16 03:31:47 +02:00
'outerborderwidth' => '0' ,
2002-10-03 02:23:46 +02:00
'header_background_image' => $GLOBALS [ 'phpgw' ] -> common -> image ( 'phpgwapi/templates/default' , 'bg_filler' )
2001-10-16 03:31:47 +02:00
)
);
2001-10-19 04:07:48 +02:00
$app_id = $GLOBALS [ 'phpgw' ] -> applications -> name2id ( 'calendar' );
2001-10-21 12:49:29 +02:00
$GLOBALS [ 'portal_order' ][] = $app_id ;
2001-10-16 03:31:47 +02:00
$var = Array (
2001-10-21 12:49:29 +02:00
'up' => Array ( 'url' => '/set_box.php' , 'app' => $app_id ),
'down' => Array ( 'url' => '/set_box.php' , 'app' => $app_id ),
'close' => Array ( 'url' => '/set_box.php' , 'app' => $app_id ),
'question' => Array ( 'url' => '/set_box.php' , 'app' => $app_id ),
'edit' => Array ( 'url' => '/set_box.php' , 'app' => $app_id )
2001-10-16 03:31:47 +02:00
);
while ( list ( $key , $value ) = each ( $var ))
{
$portalbox -> set_controls ( $key , $value );
}
2001-10-19 04:07:48 +02:00
$portalbox -> data = Array ();
2002-08-19 14:42:06 +02:00
$GLOBALS [ 'phpgw' ] -> template -> set_var ( 'phpgw_body' , " \n " . '<!-- BEGIN Calendar info -->' . " \n " . $portalbox -> draw ( $GLOBALS [ 'extra_data' ]) . " \n " . '<!-- END Calendar info -->' . " \n " , True );
2001-07-28 20:32:15 +02:00
unset ( $cal );
2001-04-21 03:51:18 +02:00
}
2001-08-14 03:49:31 +02:00
flush ();
2001-01-01 19:49:28 +01:00
?>