Mambo > Projects > Mambo CMS > SVN

Diff of /mambo/branches/4.6/administrator/components/com_installer/admin.installer.php

-revision 270, Mon Feb 13 15:31:12 2006 UTC
+revision 271, Mon Feb 13 15:37:07 2006 UTC
 Line 9
  */
  /** ensure this file is being included by a parent file */
- defined( '_VALID_MOS' ) or die( 'Direct Access to this location is not allowed.' );
+ defined( '_VALID_MOS' ) or die( T_('Direct Access to this location is not allowed.') );
  require_once( $mainframe->getPath( 'admin_html' ) );
  require_once( $mainframe->getPath( 'class' ) );
 Line 50
                      installFromUrl ($classMap[$element], $option, $element, $client);
                      break;
+                 case 'thesource':
+                     HTML_installer::theSourceForm($option, $element, $client);
+                     break;
                  case 'remove':
                      $uninstaller = $element.'_uninstall';
                      if (is_callable($uninstaller)) {
                                  $cid = mosGetParam($_REQUEST, 'cid', array(0));
                                  if (is_array($cid) AND isset($cid[0])) {
-                                     $result = $uninstaller ($cid[0], $option, $client);
+                                     $uninstaller ($cid[0], $option, $client);
-                                     $msg = '';
+                                     exit ();
                                  }
-                                 mosRedirect(returnTo($option, $element, $client), $result ? 'Success ' . $msg : 'Failed ' . $msg );
+                                 mosRedirect(returnTo($option, $element, $client), T_('There was nothing selected to be uninstalled') );
                          }
-                     else echo "Uninstaller not found for element [$element]";
+                     else mosRedirect(returnTo($option, $element, $client), T_('Uninstaller not found for element [%s]') );
                          break;
                  default:
-Line 69
+Line 73
                          if (file_exists( $path )) {
                                  require $path;
                          } else {
-                                 echo "Installer not found for element [$element]";
+                                 echo sprintf(T_('Installer not found for element [%s]'), $element);
                          }
                      break;
          }
  }
  else {
-         echo "Installer not available for element [$element]";
+         echo sprintf(T_('Installer not available for element [%s]'), $element);
  }
-Line 98
+Line 102
  function uploadPackage( $installerClass, $option, $element, $client ) {
          global $mainframe;
-         $installer =& new $installerClass();
          // Check if file uploads are enabled
          if (!(bool)ini_get('file_uploads')) {
-                 HTML_installer::showInstallMessage( "The installer can't continue before file uploads are enabled. Please use the install from directory method.",
+                 HTML_installer::showInstallMessage(T_('The installer can\'t continue before file uploads are enabled. Please use the install from directory method.'),
-                         'Installer - Error', returnTo( $option, $element, $client ) );
+                         T_('Installer - Error'), returnTo( $option, $element, $client ) );
                  exit();
          }
          // Check that the zlib is available
          if(!extension_loaded('zlib')) {
-                 HTML_installer::showInstallMessage( "The installer can't continue before zlib is installed",
+                 HTML_installer::showInstallMessage(T_('The installer can\'t continue before zlib is installed'),
-                         'Installer - Error', returnTo( $option, $element, $client ) );
+                         T_('Installer - Error'), returnTo( $option, $element, $client ) );
                  exit();
          }
          $userfile = mosGetParam( $_FILES, 'userfile', null );
          if (!$userfile) {
-                 HTML_installer::showInstallMessage( 'No file selected', 'Upload new module - error',
+                 HTML_installer::showInstallMessage( T_('No file selected'), T_('Upload new module - error'),
                          returnTo( $option, $element, $client ));
                  exit();
          }
-Line 125
+Line 127
          $userfile_name = $userfile['name'];
          $msg = '';
-         $resultdir = uploadFile( $userfile['tmp_name'], $userfile['name'], $msg );
-         if ($resultdir !== false) {
+         if (uploadFile( $userfile['tmp_name'], $userfile['name'], $msg )) {
+                 $installer =& new $installerClass();
                  if (!$installer->extractArchive( $userfile['name'] )) {
-                         HTML_installer::showInstallMessage( $installer->getErrors(), 'Upload '.$element.' - Upload Failed',
+                         $installer->cleanUpInstall();
+                         HTML_installer::showInstallMessage( $installer->getErrors(), sprintf(T_('Upload %s - Upload Failed'), $element),
                                  returnTo( $option, $element, $client ) );
                  }
                  $ret = $installer->install();
-                 HTML_installer::showInstallMessage( $installer->getErrors(), 'Upload '.$element.' - '.($ret ? 'Success' : 'Failed'),
-                         returnTo( $option, $element, $client ) );
                  $installer->cleanUpInstall();
-         } else {
+                 HTML_installer::showInstallMessage( $installer->getErrors(), T_('Upload ').$element.' - '.($ret ? T_('Success') : T_('Failed')),
-                 HTML_installer::showInstallMessage( $msg, 'Upload '.$element.' -  Upload Error',
                          returnTo( $option, $element, $client ) );
          }
+         else HTML_installer::showInstallMessage( $msg, sprintf(T_('Upload %s -  Upload Error'), $element),
+                         returnTo( $option, $element, $client ) );
  }
  /**
-Line 149
+Line 150
  */
  function installFromDirectory( $installerClass, $option, $element, $client ) {
          $userfile = mosGetParam( $_REQUEST, 'userfile', '' );
          if (!$userfile) {
                  mosRedirect( "index2.php?option=$option&element=module", T_('Please select a directory') );
          }
-         $installer =& new $installerClass();
          $path = mosPathName( $userfile );
          if (!is_dir( $path )) {
                  $path = dirname( $path );
          }
+         $installer =& new $installerClass();
          $ret = $installer->install( $path );
+         $installer->cleanUpInstall();
          HTML_installer::showInstallMessage( $installer->getErrors(), T_('Install new ').$element.' - '.($ret ? T_('Success') : T_('Error')),
                  returnTo( $option, $element, $client ) );
  }
-Line 170
+Line 168
  * @param string The URL option
  */
  function installFromUrl( $installerClass, $option, $element, $client ) {
-         $userfile = mosGetParam( $_REQUEST, 'userurl', '' );
+         // Check that the zlib is available
+         if(!extension_loaded('zlib')) {
-         if (!$userfile) {
+                 HTML_installer::showInstallMessage( T_('The installer can\'t continue before zlib is installed'),
-                 mosRedirect( "index2.php?option=$option&element=module", T_('Please select an HTTP URL') );
+                         'Installer - Error', returnTo( $option, $element, $client ) );
+                 exit();
          }
+         $userurl = mosGetParam( $_REQUEST, 'userurl', '' );
-         $installer =& new $installerClass();
+         if (!$userurl) {
+                 HTML_installer::showInstallMessage(T_('Please select an HTTP URL'),
+                         T_('Installer - Error'), returnTo( $option, $element, $client ) );
+         }
+         $url_data = parse_url($userurl);
+         if (isset($url_data['path'])) $userfilename = basename($url_data['path']);
+         else $userfilename = '';
+         if (!$userfilename) HTML_installer::showInstallMessage(T_('The URL did not define a file name'),
+                         T_('Installer - Error'), returnTo( $option, $element, $client ) );
          $msg = '';
-         $resultdir = uploadUrl( $userfile, $msg );
+         if (uploadUrl($userurl, $userfilename, $msg )) {
+                 $installer = new $installerClass();
-         if ($resultdir !== false) {
+                 if (!$installer->extractArchive($userfilename)) {
-                 if (!$installer->extractArchive( $userfile['name'] )) {
+                         $installer->cleanUpInstall();
-                         HTML_installer::showInstallMessage( $installer->getErrors(), 'Upload '.$element.' - Upload Failed',
+                         HTML_installer::showInstallMessage( $installer->getErrors(), T_('Upload ').$element.' - '.T_('Failed'),
                                  returnTo( $option, $element, $client ) );
                  }
                  $ret = $installer->install();
-                 HTML_installer::showInstallMessage( $installer->getErrors(), 'Upload '.$element.' - '.($ret ? 'Success' : 'Failed'),
-                         returnTo( $option, $element, $client ) );
                  $installer->cleanUpInstall();
+                 HTML_installer::showInstallMessage( $installer->getErrors(), T_('Upload ').$element.' - '.($ret ? T_('Success') : T_('Failed')),
+                         returnTo( $option, $element, $client ) );
          } else {
-                 HTML_installer::showInstallMessage( $msg, 'Upload '.$element.' -  Upload Error',
+                 HTML_installer::showInstallMessage( $msg, T_('Upload ').$element.' - '.T_('Error'),
                          returnTo( $option, $element, $client ) );
          }
  }
  /**
- *
- * @param
- */
- function removeElement( $installerClass, $option, $element, $client ) {
-         $cid = mosGetParam( $_REQUEST, 'cid', array(0) );
-         if (!is_array( $cid )) {
-             $cid = array(0);
-         }
-         $installer =& new $installerClass();
-         $result = false;
-         if ($cid[0]) {
-             $ret = $installer->uninstall( $cid[0], $option, $client );
-         }
-         else $ret = 1;
-         HTML_installer::showInstallMessage( $installer->getErrors(), T_('Uninstall ').$element.' - '.($ret ? T_('Success') : T_('Error')),
-                 returnTo( $option, $element, $client ) );
- }
- /**
  * @param string The name of the php (temporary) uploaded file
  * @param string The name of the file to put in the temp directory
  * @param string The message to return
-Line 249
+Line 234
  * @param string The name of the file to put in the temp directory
  * @param string The message to return
  */
- function uploadUrl( $filename, &$msg ) {
+ function uploadUrl( $userurl, $userfilename, &$msg ) {
          global $mosConfig_absolute_path;
          $baseDir = mosPathName( $mosConfig_absolute_path . '/media' );
          if (file_exists( $baseDir )) {
                  if (is_writable( $baseDir )) {
-                         if (move_uploaded_file( $filename, $baseDir . $userfile_name )) {
+                         if ($fpin = fopen($userurl, 'rb') AND is_resource($fpin)) {
-                             if (mosChmod( $baseDir . $userfile_name )) {
+                             if ($fpout = fopen($baseDir.$userfilename, 'wb') AND is_resource($fpout)) {
-                                 return true;
+                                 while (!feof($fpin)) {
-                                 } else {
+                                     $data = fgets($fpin, 1024);
-                                         $msg = T_('Failed to change the permissions of the uploaded file.');
+                                     fwrite($fpout, $data);
                                  }
-                         } else {
+                                         fclose($fpout);
-                                 $msg = T_('Failed to move uploaded file to <code>/media</code> directory.');
+                                         fclose($fpin);
+                                     if (mosChmod( $baseDir.$userfilename )) return true;
+                                         else $msg = T_('Failed to change the permissions of the uploaded file.');
                          }
-                 } else {
+                                 else $msg = T_('Failed to open the local file from the URL.');
-                     $msg = T_('Upload failed as <code>/media</code> directory is not writable.');
                  }
-         } else {
+                         else $msg = T_('Failed to open the specified URL.');
-             $msg = T_('Upload failed as <code>/media</code> directory does not exist.');
+                 }
+                 else $msg = T_('Upload failed as <code>/media</code> directory is not writable.');
          }
+         else $msg = T_('Upload failed as <code>/media</code> directory does not exist.');
          return false;
  }
-Line 289
+Line 276
                          exit();
                  }
                  if ($row->iscore) {
-                         die(T_('Is core component - may not be deleted'));
                          HTML_installer::showInstallMessage(sprintf(T_('Component %s is a core component, and can not be uninstalled.<br />You need to unpublish it if you don\'t want to use it'), $row->name), 'Uninstall -  error',
                                  "index2.php?option=$option&element=component");
                          exit();
-Line 298
+Line 284
                  $here = mosPathName( mamboCore::get('mosConfig_absolute_path').'/administrator/components/'.$row->option );
                  $filesindir = mosReadDirectory($here, '.xml$');
                  if (count($filesindir) > 0) {
+                         $allerrors = new mosErrorSet();
                          foreach ($filesindir as $file) {
                                  $parser =& new mosUninstallXML ($here.$file);
                                  $parser->uninstall();
-                                 if ($parser->errors->getMaxLevel() >= _MOS_ERROR_FATAL) return false;
+                                 $allerrors->mergeAnother($parser->getErrors());
                          }
+                         $ret = ($allerrors->getMaxLevel() < _MOS_ERROR_FATAL);
+                         HTML_installer::showInstallMessage( $allerrors->getErrors(), T_('Uninstall component - ').($ret ? T_('Success') : T_('Error')),
+                                 returnTo( $option, 'component', $client ) );
                  }
                  else {
-                         // no XML file
+                     $com_name = $row->option;
-                         return false;
+                         $dir = new mosDirectory(mosPathName(mamboCore::get('mosConfig_absolute_path').'/components/'.$com_name));
-                     /*
+                         $dir->deleteAll();
-                         HTML_installer::showInstallMessage( 'Could not find XML Setup file in '.$mosConfig_absolute_path.'/administrator/components/'.$row->option,
+                         $dir = new mosDirectory(mosPathName(mamboCore::get('mosConfig_absolute_path').'/administrator/components/'.$com_name));
-                                 'Uninstall -  error', $option, 'component' );
+                         $dir->deleteAll();
-                         exit();
+                         $sql = "DELETE FROM #__components WHERE `option`='$com_name'";
-                         */
+                         $database->setQuery($sql);
+                         $database->query();
+                         HTML_installer::showInstallMessage( T_('Uninstaller could not find XML file, but cleaned database'), T_('Uninstall ').T_('component - ').T_('Success'),
+                                 returnTo( $option, 'component', $client ) );
                  }
-                 return true;
+                 exit();
          }
          /**
-Line 343
+Line 336
                  $xmlfile = $basepath . $row->module . '.xml';
                  $parser =& new mosUninstallXML ($xmlfile);
                  $parser->uninstall();
-                 if ($parser->errors->getMaxLevel() < _MOS_ERROR_FATAL) return true;
+                 $ret = ($parser->errors->getMaxLevel() < _MOS_ERROR_FATAL);
-                 return false;
+                 HTML_installer::showInstallMessage( $parser->errors->getErrors(), T_('Uninstall module - ').($ret ? T_('Success') : T_('Error')),
+                         returnTo( $option, 'module', $client ) );
+                 exit ();
          }
          /**
-Line 356
+Line 351
          function mambot_uninstall( $id, $option, $client=0 ) {
                  $database =& mamboDatabase::getInstance();
                  $mosConfig_absolute_path = mamboCore::get('mosConfig_absolute_path');
-                 $database->setQuery( "SELECT name, folder, element, iscore FROM #__mambots WHERE id = '$id'" );
+                 $database->setQuery( "SELECT name, folder, element, iscore FROM #__mambots WHERE id = $id" );
                  $database->loadObject( $row );
                  if ($database->getErrorNum()) {
                          HTML_installer::showInstallMessage( $database->stderr(), T_('Uninstall -  error'),
-Line 374
+Line 369
                          exit();
                  }
                  $xmlfile = $mosConfig_absolute_path.'/mambots/'.$row->folder.'/'.$row->element.'.xml';
+                 if (file_exists($xmlfile)) {
                  $parser =& new mosUninstallXML ($xmlfile);
-                 $parser->uninstall();
+                         $ret = $parser->uninstall();
-                 if ($parser->errors->getMaxLevel() < _MOS_ERROR_FATAL) return true;
+                         $showerrors = $parser->getErrors();
-                 return false;
+                 }
+                 else {
+                         $database->setQuery("DELETE FROM #__mambots WHERE id = $id");
+                         $ret = $database->query();
+                         $showerrors = T_('Uninstaller did its best with no XML file present');
+                 }
+                 HTML_installer::showInstallMessage( $showerrors, T_('Uninstall mambot - ').($ret ? T_('Success') : T_('Error')),
+                         returnTo( $option, 'mambot', $client ) );
+                 exit ();
          }
          /**
-Line 405
+Line 409
                          $tdir = new mosDirectory($path);
                          $tdir->deleteAll();
                  }
-                 return true;
+                 HTML_installer::showInstallMessage( T_('Uninstall template - ').T_('Success'),
+                         returnTo( $option, 'template', $client ) );
+             exit ();
          }
          /**
-Line 422
+Line 428
                  if (file_exists( $xmlfile )) {
                          $parser =& new mosUninstallXML ($xmlfile);
                          $parser->uninstall();
-                         if ($parser->errors->getMaxLevel() < _MOS_ERROR_FATAL) return true;
+                         $ret = ($parser->errors->getMaxLevel() < _MOS_ERROR_FATAL);
-                         return false;
+                         HTML_installer::showInstallMessage( $parser->errors->getErrors(), T_('Uninstall language - ').($ret ? T_('Success') : T_('Error')),
+                                 returnTo( $option, 'language', $client ) );
                  }
-                 else {
+                 else HTML_installer::showInstallMessage( T_('Language id empty, cannot remove files'), T_('Uninstall -  error'), "index2.php?option=com_languages");
-                         HTML_installer::showInstallMessage( T_('Language id empty, cannot remove files'), T_('Uninstall -  error'), "index2.php?option=com_languages");
                          exit();
                  }
-         }
  ?>

 Legend:



Removed from v.270
 


changed lines


 
Added in v.271
 Legend:



Removed from v.270
 


changed lines


 
Added in v.271
-Removed from v.270
+Added in v.271

	ViewVC Help
Powered by ViewVC 1.0.0

Web Hosting provided by Network Redux.

MyGforge Home

Mambo CMS

Diff of /mambo/branches/4.6/administrator/components/com_installer/admin.installer.php