2003-07-21 20:21:30 +02:00
< ? php
2009-04-03 09:02:08 +02:00
/**
2014-10-17 15:51:28 +02:00
* EGgroupware admin - Timed Asynchron Services
2009-04-03 09:02:08 +02:00
*
* @ link http :// www . egroupware . org
* @ author Ralf Becker < RalfBecker - AT - outdoor - training . de >
* @ package admin
* @ license http :// opensource . org / licenses / gpl - license . php GPL - GNU General Public License
* @ version $Id $
*/
/**
* Class to admin cron - job like timed calls of eGroupWare methods
*/
class uiasyncservice
{
var $public_functions = array (
'index' => True ,
);
function index ()
2003-07-21 20:21:30 +02:00
{
2015-08-04 11:55:29 +02:00
if ( $GLOBALS [ 'egw' ] -> acl -> check ( 'asyncservice_acc' , 1 , 'admin' ))
2003-07-21 20:21:30 +02:00
{
2014-01-28 10:56:12 +01:00
egw :: redirect_link ( '/index.php' );
2009-04-03 09:02:08 +02:00
}
$GLOBALS [ 'egw_info' ][ 'flags' ][ 'app_header' ] = lang ( 'Admin' ) . ' - ' . lang ( 'Asynchronous timed services' );
2008-03-25 17:37:37 +01:00
2014-01-28 10:56:12 +01:00
common :: egw_header ();
2009-04-03 09:02:08 +02:00
echo parse_navbar ();
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
$async = $GLOBALS [ 'egw' ] -> asyncservice ; // use an own instance, as we might set debug=True
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
$async -> debug = !! $_POST [ 'debug' ];
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
$units = array (
'year' => lang ( 'Year' ),
'month' => lang ( 'Month' ),
'day' => lang ( 'Day' ),
'dow' => lang ( 'Day of week<br>(0-6, 0=Sun)' ),
'hour' => lang ( 'Hour<br>(0-23)' ),
'min' => lang ( 'Minute' )
);
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
if ( $_POST [ 'send' ] || $_POST [ 'test' ] || $_POST [ 'cancel' ] || $_POST [ 'install' ] || $_POST [ 'deinstall' ] || $_POST [ 'update' ] || isset ( $_POST [ 'asyncservice' ]))
{
$times = array ();
foreach ( $units as $u => $ulabel )
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
if ( $_POST [ $u ] !== '' )
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
$times [ $u ] = $_POST [ $u ];
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
}
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
if ( $_POST [ 'test' ])
{
2013-07-04 15:29:22 +02:00
if ( strpos ( $GLOBALS [ 'egw_info' ][ 'user' ][ 'account_email' ], '@' ) === false )
2010-02-03 04:40:32 +01:00
{
echo '<p><b>' . lang ( " You have no email address for your user set !!! " ) . " </b></p> \n " ;
}
2014-10-17 15:51:28 +02:00
elseif ( ! $async -> set_timer ( $times , 'test' , 'admin.uiasyncservice.test' , $GLOBALS [ 'egw_info' ][ 'user' ][ 'account_email' ]))
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
echo '<p><b>' . lang ( " Error setting timer, wrong syntax or maybe there's one already running !!! " ) . " </b></p> \n " ;
2003-07-21 20:21:30 +02:00
}
}
2009-04-03 09:02:08 +02:00
if ( $_POST [ 'cancel' ])
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
if ( ! $async -> cancel_timer ( 'test' ))
{
echo '<p><b>' . lang ( " Error canceling timer, maybe there's none set !!! " ) . " </b></p> \n " ;
}
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
if ( $_POST [ 'install' ] || $_POST [ 'deinstall' ])
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
if ( ! ( $install = $async -> install ( $_POST [ 'install' ] ? $times : False )))
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
echo '<p><b>' . lang ( 'Error: %1 not found or other error !!!' , $async -> crontab ) . " </b></p> \n " ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
$_POST [ 'asyncservice' ] = $_POST [ 'deinstall' ] ? 'fallback' : 'crontab' ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
}
else
{
$times = array ( 'min' => '*/5' ); // set some default
}
echo '<form action="' . $GLOBALS [ 'egw' ] -> link ( '/index.php' , array ( 'menuaction' => 'admin.uiasyncservice.index' )) . '" method="POST">' . " \n <p> " ;
echo '<div style="text-align: left; margin: 10px;">' . " \n " ;
$last_run = $async -> last_check_run ();
2014-01-28 10:56:12 +01:00
$lr_date = $last_run [ 'end' ] ? common :: show_date ( $last_run [ 'end' ]) : lang ( 'never' );
2009-04-03 09:02:08 +02:00
echo '<p><b>' . lang ( 'Async services last executed' ) . '</b>: ' . $lr_date . ' (' . $last_run [ 'run_by' ] . " )</p> \n <hr> \n " ;
if ( isset ( $_POST [ 'asyncservice' ]) && $_POST [ 'asyncservice' ] != $GLOBALS [ 'egw_info' ][ 'server' ][ 'asyncservice' ])
{
2014-10-17 15:51:28 +02:00
config :: save_value ( 'asyncservice' , $GLOBALS [ 'egw_info' ][ 'server' ][ 'asyncservice' ] = $_POST [ 'asyncservice' ], 'phpgwapi' );
2009-04-03 09:02:08 +02:00
}
if ( ! $async -> only_fallback )
{
$installed = $async -> installed ();
if ( is_array ( $installed ) && isset ( $installed [ 'cronline' ]))
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
$async_use [ 'cron' ] = lang ( 'crontab only (recomended)' );
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
}
$async_use [ '' ] = lang ( 'fallback (after each pageview)' );
$async_use [ 'off' ] = lang ( 'disabled (not recomended)' );
echo '<p><b>' . lang ( 'Run Asynchronous services' ) . '</b>' .
' <select name="asyncservice" onChange="this.form.submit();">' ;
foreach ( $async_use as $key => $label )
{
$selected = $key == $GLOBALS [ 'egw_info' ][ 'server' ][ 'asyncservice' ] ? ' selected' : '' ;
echo " <option value= \" $key\ " $selected > $label </ option > \n " ;
}
echo " </select> \n " ;
if ( is_array ( $installed ) && isset ( $installed [ 'cronline' ]))
{
echo ' <input type="submit" name="deinstall" value="' . lang ( 'Deinstall crontab' ) . " \" > \n " ;
}
echo " </p> \n " ;
if ( $async -> only_fallback )
{
echo '<p>' . lang ( 'Under windows you need to install the asyncservice %1manually%2 or use the fallback mode. Fallback means the jobs get only checked after each page-view !!!' , '<a href="http://www.egroupware.org/wiki/TimedAsyncServicesWindows" target="_blank">' , '</a>' ) . " </p> \n " ;
}
else
{
echo '<p>' . lang ( 'Installed crontab' ) . " : \n " ;
2003-09-13 16:39:30 +02:00
if ( is_array ( $installed ) && isset ( $installed [ 'cronline' ]))
{
2009-04-03 09:02:08 +02:00
echo " $installed[cronline] </p> " ;
2003-09-13 16:39:30 +02:00
}
2009-04-03 09:02:08 +02:00
elseif ( $installed === 0 )
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
echo '<b>' . lang ( '%1 not found or not executable !!!' , $async -> crontab ) . " </b></p> \n " ;
2003-07-21 20:21:30 +02:00
}
else
{
2009-04-03 09:02:08 +02:00
echo '<b>' . lang ( 'asyncservices not yet installed or other error (%1) !!!' , $installed [ 'error' ]) . " </b></p> \n " ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
echo '<p><input type="submit" name="install" value="' . lang ( 'Install crontab' ) . " \" > \n " .
lang ( " for the times below (empty values count as '*', all empty = every minute) " ) . " </p> \n " ;
}
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
echo " <hr><table border=0><tr> \n " ;
foreach ( $units as $u => $ulabel )
{
echo " <td> $ulabel </td><td><input name= \" $u\ " value = \ " $times[$u] \" size=5> </td> \n " ;
}
echo " </tr><tr> \n <td colspan=4> \n " ;
echo ' <input type="submit" name="send" value="' . lang ( 'Calculate next run' ) . '"></td>' . " \n " ;
echo ' <td colspan="8"><input type="checkbox" name="debug" value="1"' . ( $_POST [ 'debug' ] ? ' checked' : '' ) . " > \n " .
lang ( 'Enable debug-messages' ) . " </td> \n </tr></table> \n " ;
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
if ( $_POST [ 'send' ])
{
$next = $async -> next_run ( $times , True );
2003-07-21 20:21:30 +02:00
2014-01-28 10:56:12 +01:00
echo " <p>asyncservice::next_run( " ; print_r ( $times ); echo " )= " . ( $next === False ? 'False' : " ' $next '= " . common :: show_date ( $next )) . " </p> \n " ;
2009-04-03 09:02:08 +02:00
}
echo '<hr><p><input type="submit" name="cancel" value="' . lang ( 'Cancel TestJob!' ) . " \" > \n " ;
echo '<input type="submit" name="test" value="' . lang ( 'Start TestJob!' ) . " \" > \n " ;
echo lang ( 'for the times above' ) . " </p> \n " ;
echo '<p>' . lang ( 'The TestJob sends you a mail everytime it is called.' ) . " </p> \n " ;
2003-07-21 20:21:30 +02:00
2009-04-03 09:02:08 +02:00
echo '<hr><p><b>' . lang ( 'Jobs' ) . " :</b> \n " ;
2014-01-28 10:56:12 +01:00
if (( $jobs = $async -> read ( '%' )))
2009-04-03 09:02:08 +02:00
{
echo " <table border=1> \n <tr> \n <th>Id</th><th> " . lang ( 'Next run' ) . '</th><th>' . lang ( 'Times' ) . '</th><th>' . lang ( 'Method' ) . '</th><th>' . lang ( 'Data' ) . " </th><th> " . lang ( 'LoginID' ) . " </th></tr> \n " ;
foreach ( $jobs as $job )
2003-07-21 20:21:30 +02:00
{
2014-01-28 10:56:12 +01:00
echo " <tr> \n <td> $job[id] </td><td> " . common :: show_date ( $job [ 'next' ]) . " </td><td> " ;
2009-04-03 09:02:08 +02:00
print_r ( $job [ 'times' ]);
echo " </td><td> $job[method] </td><td> " ;
print_r ( $job [ 'data' ]);
echo " </td><td align= \" center \" > " . $GLOBALS [ 'egw' ] -> accounts -> id2name ( $job [ account_id ]) . " </td></tr> \n " ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
echo " </table> \n " ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
else
2003-07-21 20:21:30 +02:00
{
2009-04-03 09:02:08 +02:00
echo lang ( 'No jobs in the database !!!' ) . " </p> \n " ;
}
echo '<p><input type="submit" name="update" value="' . lang ( 'Update' ) . '"></p>' . " \n " ;
echo " </form> \n " ;
}
function test ( $to )
{
$returncode = $GLOBALS [ 'egw' ] -> send -> msg ( 'email' , $to , $subject = 'Asynchronous timed services' , 'Greetings from cron ;-)' );
if ( ! $returncode ) // not nice, but better than failing silently
{
echo " <p>bocalendar::send_update: sending message to ' $to ' subject=' $subject ' failed !!!<br> \n " ;
echo $GLOBALS [ 'egw' ] -> send -> err [ 'desc' ] . " </p> \n " ;
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
//print_r($GLOBALS['egw_info']['user']);
2003-07-21 20:21:30 +02:00
}
2009-04-03 09:02:08 +02:00
}