[geeklog-cvs] geeklog-1.3/public_html/admin plugins.php,1.33,1.34

[geeklog-cvs-admin at lists.geeklog.net]

Update of /usr/cvs/geeklog/geeklog-1.3/public_html/admin
In directory internal.geeklog.net:/tmp/cvs-serv29211

Modified Files:
	plugins.php 
Log Message:
Try to figure out the path to the admin directory before checking for uninstalled plugins to prevent "illegal access" entries in error.log.


Index: plugins.php
===================================================================
RCS file: /usr/cvs/geeklog/geeklog-1.3/public_html/admin/plugins.php,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** plugins.php	20 Jun 2003 15:15:40 -0000	1.33
--- plugins.php	5 Jul 2003 16:37:58 -0000	1.34
***************
*** 246,250 ****
                      // and finally, since we're going to link to it, check if
                      // an install script exists
!                     $fh = @fopen ($_CONF['site_admin_url'] . '/plugins/' . $dir
                          . '/install.php', 'r');
                      if ($fh) {
--- 246,262 ----
                      // and finally, since we're going to link to it, check if
                      // an install script exists
!                     $adminurl = $_CONF['site_admin_url'];
!                     if (strrpos ($adminurl, '/') == strlen ($adminurl)) {
!                         $adminurl = substr ($adminurl, 0, -1);
!                     }
!                     $pos = strrpos ($adminurl, '/');
!                     if ($pos === false) {
!                         // didn't work out - use the URL
!                         $admindir = $_CONF['site_admin_url'];
!                     } else {
!                         $admindir = $_CONF['path_html']
!                                   . substr ($adminurl, $pos + 1);
!                     }
!                     $fh = @fopen ($admindir . '/plugins/' . $dir
                          . '/install.php', 'r');
                      if ($fh) {