2007-07-19 12:40:05 +02:00
< ? php
/**
* AssetAdmin is the 'file store' section of the CMS .
* It provides an interface for maniupating the File and Folder objects in the system .
2008-04-06 10:20:13 +02:00
*
2008-02-25 03:10:37 +01:00
* @ package cms
* @ subpackage assets
2007-07-19 12:40:05 +02:00
*/
class AssetAdmin extends LeftAndMain {
2008-04-06 10:20:13 +02:00
2008-11-02 22:27:55 +01:00
static $url_segment = 'assets' ;
static $url_rule = '/$Action/$ID' ;
static $menu_title = 'Files & Images' ;
2008-04-06 10:20:13 +02:00
public static $tree_class = " File " ;
/**
2008-10-02 02:34:41 +02:00
* @ see Upload -> allowedMaxFileSize
2008-04-06 10:20:13 +02:00
* @ var int
*/
public static $allowed_max_file_size ;
/**
2008-10-02 02:34:41 +02:00
* @ see Upload -> allowedExtensions
2008-04-06 10:20:13 +02:00
* @ var array
*/
public static $allowed_extensions = array ();
2008-02-25 03:10:37 +01:00
static $allowed_actions = array (
'addfolder' ,
'deletefolder' ,
'deletemarked' ,
'deleteUnusedThumbnails' ,
'doUpload' ,
'getfile' ,
'getsubtree' ,
'movemarked' ,
'removefile' ,
'save' ,
'savefile' ,
'uploadiframe' ,
2008-08-09 07:57:44 +02:00
'UploadForm' ,
2008-05-24 07:19:42 +02:00
'deleteUnusedThumbnails' => 'ADMIN'
2008-02-25 03:10:37 +01:00
);
2007-07-19 12:40:05 +02:00
2008-11-02 22:27:55 +01:00
public function getMenuTitle () {
return _t ( 'LeftAndMain.ASSETS' , 'Files & Images' , PR_HIGH , 'Menu title' );
2007-07-19 12:40:05 +02:00
}
/**
* Return fake - ID " root " if no ID is found ( needed to upload files into the root - folder )
*/
public function currentPageID () {
if ( isset ( $_REQUEST [ 'ID' ]) && is_numeric ( $_REQUEST [ 'ID' ])) {
return $_REQUEST [ 'ID' ];
} elseif ( is_numeric ( $this -> urlParams [ 'ID' ])) {
return $this -> urlParams [ 'ID' ];
} elseif ( is_numeric ( Session :: get ( " { $this -> class } .currentPage " ))) {
return Session :: get ( " { $this -> class } .currentPage " );
} else {
return " root " ;
}
}
/**
* Set up the controller , in particular , re - sync the File database with the assets folder ./
*/
function init () {
parent :: init ();
2007-10-29 03:10:59 +01:00
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
if ( ! file_exists ( ASSETS_PATH )) {
mkdir ( ASSETS_PATH );
2007-10-29 03:10:59 +01:00
}
2007-07-19 12:40:05 +02:00
// needed for MemberTableField (Requirements not determined before Ajax-Call)
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
Requirements :: javascript ( SAPPHIRE_DIR . " /javascript/ComplexTableField.js " );
Requirements :: css ( THIRDPARTY_DIR . " /greybox/greybox.css " );
Requirements :: css ( SAPPHIRE_DIR . " /css/ComplexTableField.css " );
Requirements :: javascript ( CMS_DIR . " /javascript/AssetAdmin.js " );
Requirements :: javascript ( CMS_DIR . " /javascript/AssetAdmin_left.js " );
Requirements :: javascript ( CMS_DIR . " /javascript/AssetAdmin_right.js " );
Requirements :: javascript ( CMS_DIR . " /javascript/CMSMain_upload.js " );
Requirements :: javascript ( CMS_DIR . " /javascript/Upload.js " );
Requirements :: javascript ( SAPPHIRE_DIR . " /javascript/Security_login.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /SWFUpload/SWFUpload.js " );
2007-07-19 12:40:05 +02:00
// Include the right JS]
// Hayden: This didn't appear to be used at all
/* $fileList = new FileList ( " Form_EditForm_Files " , null );
$fileList -> setClick_AjaxLoad ( 'admin/assets/getfile/' , 'Form_SubForm' );
$fileList -> FieldHolder (); */
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
Requirements :: javascript ( THIRDPARTY_DIR . " /greybox/AmiJS.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /greybox/greybox.js " );
Requirements :: css ( THIRDPARTY_DIR . " /greybox/greybox.css " );
2007-09-27 22:56:55 +02:00
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
Requirements :: css ( CMS_DIR . " /css/AssetAdmin.css " );
2007-07-19 12:40:05 +02:00
}
function index () {
2008-04-06 10:20:13 +02:00
Filesystem :: sync ();
2007-07-19 12:40:05 +02:00
return array ();
}
/**
* Show the content of the upload iframe . The form is specified by a template .
*/
function uploadiframe () {
Requirements :: clear ();
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
Requirements :: javascript ( THIRDPARTY_DIR . " /prototype.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /loader.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /behaviour.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /prototype_improvements.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /layout_helpers.js " );
Requirements :: javascript ( CMS_DIR . " /javascript/LeftAndMain.js " );
Requirements :: javascript ( THIRDPARTY_DIR . " /multifile/multifile.js " );
Requirements :: css ( THIRDPARTY_DIR . " /multifile/multifile.css " );
Requirements :: css ( CMS_DIR . " /css/typography.css " );
Requirements :: css ( CMS_DIR . " /css/layout.css " );
Requirements :: css ( CMS_DIR . " /css/cms_left.css " );
Requirements :: css ( CMS_DIR . " /css/cms_right.css " );
2007-07-19 12:40:05 +02:00
if ( isset ( $data [ 'ID' ]) && $data [ 'ID' ] != 'root' ) $folder = DataObject :: get_by_id ( " Folder " , $data [ 'ID' ]);
else $folder = singleton ( 'Folder' );
$canUpload = $folder -> userCanEdit ();
return array ( 'CanUpload' => $canUpload );
}
/**
* Return the form object shown in the uploadiframe .
*/
function UploadForm () {
2008-04-26 08:39:23 +02:00
$form = new Form ( $this , 'UploadForm' , new FieldSet (
2007-07-19 12:40:05 +02:00
new HiddenField ( " ID " , " " , $this -> currentPageID ()),
// needed because the button-action is triggered outside the iframe
new HiddenField ( " action_doUpload " , " " , " 1 " ),
2007-09-16 18:33:05 +02:00
new FileField ( " Files[0] " , _t ( 'AssetAdmin.CHOOSEFILE' , 'Choose file ' )),
2007-07-19 12:40:05 +02:00
new LiteralField ( 'UploadButton' , "
2007-09-16 18:33:05 +02:00
< input type = 'submit' value = '". _t(' AssetAdmin . UPLOAD ', ' Upload Files Listed Below '). "' name = 'action_upload' id = 'Form_UploadForm_action_upload' class = 'action' />
2007-07-19 12:40:05 +02:00
" ),
new LiteralField ( 'MultifileCode' , "
2007-09-16 18:33:05 +02:00
< p > " . _t('AssetAdmin.FILESREADY','Files ready to upload:') . " </ p >
2007-07-19 12:40:05 +02:00
< div id = 'Form_UploadForm_FilesList' ></ div >
< script >
var multi_selector = new MultiSelector ( $ ( 'Form_UploadForm_FilesList' ), null , $ ( 'Form_UploadForm_action_upload' ));
multi_selector . addElement ( $ ( 'Form_UploadForm_Files-0' ));
2007-09-16 04:36:16 +02:00
new window . top . document . CMSMain_upload ();
2007-07-19 12:40:05 +02:00
</ script >
" )
), new FieldSet (
));
2008-04-26 08:39:23 +02:00
// Makes ajax easier
$form -> disableSecurityToken ();
return $form ;
2007-07-19 12:40:05 +02:00
}
/**
* This method processes the results of the UploadForm .
* It will save the uploaded files to / assets / and create new File objects as required .
*/
function doUpload ( $data , $form ) {
foreach ( $data [ 'Files' ] as $param => $files ) {
2007-09-16 03:40:26 +02:00
if ( ! is_array ( $files )) $files = array ( $files );
2007-07-19 12:40:05 +02:00
foreach ( $files as $key => $value ) {
$processedFiles [ $key ][ $param ] = $value ;
}
}
if ( $data [ 'ID' ] && $data [ 'ID' ] != 'root' ) $folder = DataObject :: get_by_id ( " Folder " , $data [ 'ID' ]);
else $folder = singleton ( 'Folder' );
2007-08-21 04:32:20 +02:00
$newFiles = array ();
2007-07-19 12:40:05 +02:00
$fileSizeWarnings = '' ;
2007-08-21 04:32:20 +02:00
$uploadErrors = '' ;
2008-09-01 06:54:48 +02:00
$jsErrors = '' ;
2007-08-21 04:32:20 +02:00
2008-04-06 10:20:13 +02:00
foreach ( $processedFiles as $tmpFile ) {
if ( $tmpFile [ 'error' ] == UPLOAD_ERR_NO_TMP_DIR ) {
2007-08-21 04:32:20 +02:00
$status = 'bad' ;
2008-02-25 03:10:37 +01:00
$statusMessage = _t ( 'AssetAdmin.NOTEMP' , 'There is no temporary folder for uploads. Please set upload_tmp_dir in php.ini.' );
2007-08-21 04:32:20 +02:00
break ;
}
2008-04-06 10:20:13 +02:00
if ( $tmpFile [ 'tmp_name' ]) {
2007-08-21 04:32:20 +02:00
// Workaround open_basedir problems
if ( ini_get ( " open_basedir " )) {
2008-04-06 10:20:13 +02:00
$newtmp = TEMP_FOLDER . '/' . $tmpFile [ 'name' ];
move_uploaded_file ( $tmpFile [ 'tmp_name' ], $newtmp );
$tmpFile [ 'tmp_name' ] = $newtmp ;
2007-08-21 04:32:20 +02:00
}
2007-07-19 12:40:05 +02:00
2008-04-06 10:20:13 +02:00
// validate files (only if not logged in as admin)
if ( Permission :: check ( 'ADMIN' )) {
$valid = true ;
2007-07-19 12:40:05 +02:00
} else {
2008-04-06 10:20:13 +02:00
$upload = new Upload ();
$upload -> setAllowedExtensions ( self :: $allowed_extensions );
$upload -> setAllowedMaxFileSize ( self :: $allowed_max_file_size );
$valid = $upload -> validate ( $tmpFile );
if ( ! $valid ) {
$errors = $upload -> getErrors ();
if ( $errors ) foreach ( $errors as $error ) {
$jsErrors .= " alert(' " . Convert :: raw2js ( $error ) . " '); " ;
}
}
2007-07-19 12:40:05 +02:00
}
2008-04-06 10:20:13 +02:00
// move file to given folder
if ( $valid ) $newFiles [] = $folder -> addUploadToFolder ( $tmpFile );
2007-07-19 12:40:05 +02:00
}
}
if ( $newFiles ) {
$numFiles = sizeof ( $newFiles );
2007-09-16 18:33:05 +02:00
$statusMessage = sprintf ( _t ( 'AssetAdmin.UPLOADEDX' , " Uploaded %s files " ), $numFiles ) ;
2007-07-19 12:40:05 +02:00
$status = " good " ;
2007-08-21 04:32:20 +02:00
} else if ( $status != 'bad' ) {
2007-09-16 18:33:05 +02:00
$statusMessage = _t ( 'AssetAdmin.NOTHINGTOUPLOAD' , 'There was nothing to upload' );
2007-07-19 12:40:05 +02:00
$status = " " ;
}
2008-02-25 03:10:37 +01:00
$fileIDs = array ();
$fileNames = array ();
foreach ( $newFiles as $newFile ) {
$fileIDs [] = $newFile ;
$fileObj = DataObject :: get_one ( 'File' , " `File`.ID= $newFile " );
$fileNames [] = $fileObj -> Name ;
}
$sFileIDs = implode ( ',' , $fileIDs );
$sFileNames = implode ( ',' , $fileNames );
2008-04-26 08:39:23 +02:00
2007-07-19 12:40:05 +02:00
echo <<< HTML
< script type = " text/javascript " >
2008-02-25 03:10:37 +01:00
/* IDs: $sFileIDs */
/* Names: $sFileNames */
2007-07-19 12:40:05 +02:00
var form = parent . document . getElementById ( 'Form_EditForm' );
form . getPageFromServer ( form . elements . ID . value );
parent . statusMessage ( " { $statusMessage } " , " { $status } " );
2008-04-06 10:20:13 +02:00
$jsErrors
2007-07-19 12:40:05 +02:00
parent . document . getElementById ( 'sitetree' ) . getTreeNodeByIdx ( " { $folder -> ID } " ) . getElementsByTagName ( 'a' )[ 0 ] . className += ' contents' ;
</ script >
HTML ;
}
/**
* Needs to be overridden to make sure an ID with value " 0 " is still valid ( rootfolder )
*/
/**
* Return the form that displays the details of a folder , including a file list and fields for editing the folder name .
*/
function getEditForm ( $id ) {
if ( $id && $id != " root " ) {
$record = DataObject :: get_by_id ( " File " , $id );
} else {
$record = singleton ( " Folder " );
}
2008-02-25 03:10:37 +01:00
if ( $record ) {
$fields = $record -> getCMSFields ();
2007-07-19 12:40:05 +02:00
$actions = new FieldSet ();
2007-09-15 22:47:35 +02:00
// Only show save button if not 'assets' folder
if ( $record -> userCanEdit () && $id != " root " ) {
2007-07-19 12:40:05 +02:00
$actions = new FieldSet (
2007-09-16 18:33:05 +02:00
new FormAction ( 'save' , _t ( 'AssetAdmin.SAVEFOLDERNAME' , 'Save folder name' ))
2007-07-19 12:40:05 +02:00
);
}
$form = new Form ( $this , " EditForm " , $fields , $actions );
if ( $record -> ID ) {
$form -> loadDataFrom ( $record );
} else {
$form -> loadDataFrom ( array (
" ID " => " root " ,
" URL " => Director :: absoluteBaseURL () . 'assets/' ,
));
}
// @todo: These workflow features aren't really appropriate for all projects
2008-08-12 04:59:27 +02:00
if ( Member :: currentUser () -> isAdmin () && project () == 'mot' ) {
2007-09-16 18:33:05 +02:00
$fields -> addFieldsToTab ( 'Root.Workflow' , new DropdownField ( " Owner " , _t ( 'AssetAdmin.OWNER' , 'Owner' ), Member :: map () ) );
$fields -> addFieldsToTab ( 'Root.Workflow' , new TreeMultiselectField ( " CanUse " , _t ( 'AssetAdmin.CONTENTUSABLEBY' , 'Content usable by' )) );
$fields -> addFieldsToTab ( 'Root.Workflow' , new TreeMultiselectField ( " CanEdit " , _t ( 'AssetAdmin.CONTENTMODBY' , 'Content modifiable by' )) );
2007-07-19 12:40:05 +02:00
}
if ( ! $record -> userCanEdit () )
$form -> makeReadonly ();
return $form ;
}
}
/**
* Perform the " move marked " action .
2007-09-15 22:47:35 +02:00
* Called and returns in same way as 'save' function
2007-07-19 12:40:05 +02:00
*/
2007-09-15 22:47:35 +02:00
public function movemarked ( $urlParams , $form ) {
2007-07-19 12:40:05 +02:00
if ( $_REQUEST [ 'DestFolderID' ] && is_numeric ( $_REQUEST [ 'DestFolderID' ])) {
$destFolderID = $_REQUEST [ 'DestFolderID' ];
$fileList = " ' " . ereg_replace ( ' *, *' , " ',' " , trim ( addslashes ( $_REQUEST [ 'FileIDs' ]))) . " ' " ;
$numFiles = 0 ;
if ( $fileList != " '' " ) {
$files = DataObject :: get ( " File " , " `File`.ID IN ( $fileList ) " );
if ( $files ) {
foreach ( $files as $file ) {
2007-09-15 22:30:54 +02:00
if ( $file instanceof Image ) {
$file -> deleteFormattedImages ();
}
2007-07-19 12:40:05 +02:00
$file -> ParentID = $destFolderID ;
$file -> write ();
$numFiles ++ ;
}
} else {
user_error ( " No files in $fileList could be found! " , E_USER_ERROR );
}
}
2007-09-15 22:47:35 +02:00
2007-09-16 18:33:05 +02:00
$message = sprintf ( _t ( 'AssetAdmin.MOVEDX' , 'Moved %s files' ), $numFiles );
2007-09-15 22:47:35 +02:00
FormResponse :: status_message ( $message , " good " );
FormResponse :: add ( " $ ('Form_EditForm').getPageFromServer( $ ('Form_EditForm_ID').value) " );
return FormResponse :: respond ();
2007-07-19 12:40:05 +02:00
} else {
user_error ( " Bad data: $_REQUEST[DestFolderID] " , E_USER_ERROR );
}
}
/**
* Perform the " delete marked " action .
2007-09-15 22:47:35 +02:00
* Called and returns in same way as 'save' function
2007-07-19 12:40:05 +02:00
*/
2007-09-15 22:47:35 +02:00
public function deletemarked ( $urlParams , $form ) {
2007-07-19 12:40:05 +02:00
$fileList = " ' " . ereg_replace ( ' *, *' , " ',' " , trim ( addslashes ( $_REQUEST [ 'FileIDs' ]))) . " ' " ;
$numFiles = 0 ;
$folderID = 0 ;
$deleteList = '' ;
$brokenPageList = '' ;
if ( $fileList != " '' " ) {
2008-02-25 03:10:37 +01:00
$files = DataObject :: get ( " File " , " `File`.ID IN ( $fileList ) " );
2007-07-19 12:40:05 +02:00
if ( $files ) {
foreach ( $files as $file ) {
2007-09-15 03:29:38 +02:00
if ( $file instanceof Image ) {
$file -> deleteFormattedImages ();
}
2007-07-19 12:40:05 +02:00
if ( ! $folderID )
$folderID = $file -> ParentID ;
// $deleteList .= "\$('Form_EditForm_Files').removeById($file->ID);\n";
$file -> delete ();
$numFiles ++ ;
}
if ( $brokenPages = Notifications :: getItems ( " BrokenLink " )) {
2007-09-16 18:33:05 +02:00
$brokenPageList = " " . _t ( 'AssetAdmin.NOWBROKEN' , " These pages now have broken links: " ) . " </ul> " ;
2007-07-19 12:40:05 +02:00
foreach ( $brokenPages as $brokenPage ) {
$brokenPageList .= " <li style="font-size: 65%"> " . $brokenPage -> Breadcrumbs ( 3 , true ) . " </li> " ;
}
$brokenPageList .= " </ul> " ;
Notifications :: notifyByEmail ( " BrokenLink " , " Page_BrokenLinkEmail " );
2007-09-14 20:12:00 +02:00
} else {
$brokenPageList = '' ;
2007-07-19 12:40:05 +02:00
}
2007-09-14 20:12:00 +02:00
$deleteList = '' ;
2007-07-19 12:40:05 +02:00
if ( $folderID ) {
$remaining = DB :: query ( " SELECT COUNT(*) FROM `File` WHERE `ParentID`= $folderID " ) -> value ();
if ( ! $remaining )
2007-09-16 18:33:05 +02:00
$deleteList .= " Element.removeClassName( \$ ('sitetree').getTreeNodeByIdx( ' $folderID ' ).getElementsByTagName('a')[0],'contents'); " ;
2007-07-19 12:40:05 +02:00
}
} else {
user_error ( " No files in $fileList could be found! " , E_USER_ERROR );
}
}
2007-09-16 18:33:05 +02:00
$message = sprintf ( _t ( 'AssetAdmin.DELETEDX' , " Deleted %s files.%s " ), $numFiles , $brokenPageList ) ;
2007-09-15 22:47:35 +02:00
FormResponse :: add ( $deleteList );
FormResponse :: status_message ( $message , " good " );
FormResponse :: add ( " $ ('Form_EditForm').getPageFromServer( $ ('Form_EditForm_ID').value) " );
return FormResponse :: respond ();
2007-07-19 12:40:05 +02:00
}
/**
* Returns the content to be placed in Form_SubForm when editing a file .
* Called using ajax .
*/
public function getfile () {
SSViewer :: setOption ( 'rewriteHashlinks' , false );
// bdc: only try to return something if user clicked on an object
if ( is_object ( $this -> getSubForm ( $this -> urlParams [ 'ID' ]))) {
return $this -> getSubForm ( $this -> urlParams [ 'ID' ]) -> formHtmlContent ();
}
else return null ;
}
/**
* Action handler for the save button on the file subform .
* Saves the file
*/
public function savefile ( $data , $form ) {
$record = DataObject :: get_by_id ( " File " , $data [ 'ID' ]);
$form -> saveInto ( $record );
$record -> write ();
$title = Convert :: raw2js ( $record -> Title );
$name = Convert :: raw2js ( $record -> Name );
2007-09-16 18:33:05 +02:00
$saved = sprintf ( _t ( 'AssetAdmin.SAVEDFILE' , 'Saved file %s' ), " # $data[ID] " );
2007-07-19 12:40:05 +02:00
echo <<< JS
2007-09-16 18:33:05 +02:00
statusMessage ( '$saved' );
2007-07-19 12:40:05 +02:00
$ ( 'record-$data[ID]' ) . getElementsByTagName ( 'td' )[ 1 ] . innerHTML = " $title " ;
$ ( 'record-$data[ID]' ) . getElementsByTagName ( 'td' )[ 2 ] . innerHTML = " $name " ;
JS ;
}
/**
* Return the entire site tree as a nested set of ULs
2008-02-25 03:10:37 +01:00
*/
2007-07-19 12:40:05 +02:00
public function SiteTreeAsUL () {
$obj = singleton ( 'Folder' );
$obj -> setMarkingFilter ( " ClassName " , " Folder " );
$obj -> markPartialTree ();
if ( $p = $this -> currentPage ()) $obj -> markToExpose ( $p );
// getChildrenAsUL is a flexible and complex way of traversing the tree
$siteTree = $obj -> getChildrenAsUL ( " " ,
' "<li id=\"record-$child->ID\" class=\"$child->class" . $child->markingClasses() . ($extraArg->isCurrentPage($child) ? " current" : "") . "\">" . ' .
2008-02-25 03:10:37 +01:00
' "<a href=\"" . Director::link(substr($extraArg->Link(),0,-1), "show", $child->ID) . "\" class=\"" . ($child->hasChildren() ? " contents" : "") . "\" >" . $child->TreeTitle() . "</a>" ' ,
2007-07-19 12:40:05 +02:00
$this , true );
// Wrap the root if needs be.
$rootLink = $this -> Link () . 'show/root' ;
2007-11-06 04:57:40 +01:00
if ( ! isset ( $rootID )) $siteTree = " <ul id= \" sitetree \" class= \" tree unformatted \" ><li id= \" record-root \" class= \" Root \" ><a href= \" $rootLink\ " >< strong > http :// www . yoursite . com / assets </ strong ></ a > "
2007-07-19 12:40:05 +02:00
. $siteTree . " </li></ul> " ;
return $siteTree ;
}
/**
* Returns a subtree of items underneat the given folder .
*/
public function getsubtree () {
$obj = DataObject :: get_by_id ( " Folder " , $_REQUEST [ 'ID' ]);
$obj -> setMarkingFilter ( " ClassName " , " Folder " );
$obj -> markPartialTree ();
$results = $obj -> getChildrenAsUL ( " " ,
' "<li id=\"record-$child->ID\" class=\"$child->class" . $child->markingClasses() . ($extraArg->isCurrentPage($child) ? " current" : "") . "\">" . ' .
2008-02-25 03:10:37 +01:00
' "<a href=\"" . Director::link(substr($extraArg->Link(),0,-1), "show", $child->ID) . "\" >" . $child->TreeTitle() . "</a>" ' ,
2007-07-19 12:40:05 +02:00
$this , true );
return substr ( trim ( $results ), 4 , - 5 );
}
//------------------------------------------------------------------------------------------//
// Data saving handlers
/**
* Add a new folder and return its details suitable for ajax .
*/
public function addfolder () {
$parent = ( $_REQUEST [ 'ParentID' ] && is_numeric ( $_REQUEST [ 'ParentID' ])) ? $_REQUEST [ 'ParentID' ] : 0 ;
if ( $parent ) {
2008-10-24 03:23:52 +02:00
$parentObj = DataObject :: get_by_id ( 'File' , $parent );
2007-07-19 12:40:05 +02:00
if ( ! $parentObj || ! $parentObj -> ID ) $parent = 0 ;
}
$p = new Folder ();
$p -> ParentID = $parent ;
2007-09-16 18:33:05 +02:00
$p -> Title = _t ( 'AssetAdmin.NEWFOLDER' , " NewFolder " );
2008-02-25 03:10:37 +01:00
$p -> Name = _t ( 'AssetAdmin.NEWFOLDER' , 'NewFolder' );
2007-07-19 12:40:05 +02:00
// Get the folder to be created
if ( isset ( $parentObj -> ID )) $filename = $parentObj -> FullPath . $p -> Name ;
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
else $filename = ASSETS_PATH . '/' . $p -> Name ;
2007-07-19 12:40:05 +02:00
// Ensure uniqueness
$i = 2 ;
$baseFilename = $filename . '-' ;
while ( file_exists ( $filename )) {
$filename = $baseFilename . $i ;
$p -> Name = $p -> Title = basename ( $filename );
$i ++ ;
}
// Actually create
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
if ( ! file_exists ( ASSETS_PATH )) {
mkdir ( ASSETS_PATH );
2007-10-29 03:10:59 +01:00
}
2007-07-19 12:40:05 +02:00
mkdir ( $filename );
2007-10-26 01:07:24 +02:00
chmod ( $filename , Filesystem :: $file_create_mask );
2007-07-19 12:40:05 +02:00
$p -> write ();
2007-11-12 22:47:45 +01:00
if ( isset ( $_REQUEST [ 'returnID' ])) {
return $p -> ID ;
} else {
return $this -> returnItemToUser ( $p );
}
2007-07-19 12:40:05 +02:00
}
/**
* Return the given tree item to the client .
* If called by ajax , this will be some javascript commands .
* Otherwise , it will redirect back .
*/
public function returnItemToUser ( $p ) {
if ( $_REQUEST [ 'ajax' ]) {
$parentID = ( int ) $p -> ParentID ;
return <<< JS
tree = $ ( 'sitetree' );
var newNode = tree . createTreeNode ( $p -> ID , " $p->Title " , " $p->class " );
tree . getTreeNodeByIdx ( $parentID ) . appendTreeNode ( newNode );
newNode . selectTreeNode ();
JS ;
} else {
Director :: redirectBack ();
}
}
/**
* Delete a folder
*/
public function deletefolder () {
$script = '' ;
$ids = split ( ' *, *' , $_REQUEST [ 'csvIDs' ]);
2007-09-15 03:01:49 +02:00
$script = '' ;
2007-07-19 12:40:05 +02:00
foreach ( $ids as $id ) {
if ( is_numeric ( $id )) {
$record = DataObject :: get_by_id ( $this -> stat ( 'tree_class' ), $id );
if ( ! $record )
Debug :: message ( " Record appears to be null " );
/* if ( $record -> hasMethod ( 'BackLinkTracking' )) {
$brokenPages = $record -> BackLinkTracking ();
foreach ( $brokenPages as $brokenPage ) {
$brokenPageList .= " <li style= \" font-size: 65% \" > " . $brokenPage -> Breadcrumbs ( 3 , true ) . " </li> " ;
$brokenPage -> HasBrokenLink = true ;
$notifications [ $brokenPage -> OwnerID ][] = $brokenPage ;
$brokenPage -> write ();
}
} */
$record -> delete ();
$record -> destroy ();
// DataObject::delete_by_id($this->stat('tree_class'), $id);
$script .= $this -> deleteTreeNodeJS ( $record );
}
}
/* if ( $notifications ) foreach ( $notifications as $memberID => $pages ) {
$email = new Page_BrokenLinkEmail ();
$email -> populateTemplate ( new ArrayData ( array (
" Recipient " => DataObject :: get_by_id ( " Member " , $memberID ),
" BrokenPages " => new DataObjectSet ( $pages ),
)));
$email -> debug ();
$email -> send ();
} */
2008-02-25 03:10:37 +01:00
/*
2007-07-19 12:40:05 +02:00
$s = ( sizeof ( $ids ) > 1 ) ? " s " : " " ;
$message = sizeof ( $ids ) . " folder $s deleted. " ;
//
if ( isset ( $brokenPageList )) $message .= " The following pages now have broken links:<ul> " . addslashes ( $brokenPageList ) . " </ul>Their owners have been emailed and they will fix up those pages. " ;
2008-02-25 03:10:37 +01:00
*/
$size = sizeof ( $ids );
if ( $size > 1 )
$message = $size . ' ' . _t ( 'AssetAdmin.FOLDERSDELETED' , 'folders deleted.' );
else
$message = $size . ' ' . _t ( 'AssetAdmin.FOLDERDELETED' , 'folder deleted.' );
if ( isset ( $brokenPageList ))
$message .= ' ' . _t ( 'AssetAdmin.NOWBROKEN' , 'The following pages now have broken links:' ) . '<ul>' . addslashes ( $brokenPageList ) . '</ul>' .
_t ( 'AssetAdmin.NOWBROKEN2' , 'Their owners have been emailed and they will fix up those pages.' );
2007-07-19 12:40:05 +02:00
$script .= " statusMessage(' $message '); " ;
echo $script ;
}
public function removefile (){
if ( $fileID = $this -> urlParams [ 'ID' ]){
$file = DataObject :: get_by_id ( 'File' , $fileID );
2007-09-15 23:57:11 +02:00
// Delete the temp verions of this file in assets/_resampled
if ( $file instanceof Image ) {
$file -> deleteFormattedImages ();
}
2007-07-19 12:40:05 +02:00
$file -> delete ();
$file -> destroy ();
if ( Director :: is_ajax ()) {
echo <<< JS
$ ( 'Form_EditForm_Files' ) . removeFile ( $fileID );
statusMessage ( 'removed file' , 'good' );
JS ;
} else {
Director :: redirectBack ();
}
} else {
user_error ( " AssetAdmin::removefile: Bad parameters: File= $fileID " , E_USER_ERROR );
}
}
public function save ( $urlParams , $form ) {
// Don't save the root folder - there's no database record
if ( $_REQUEST [ 'ID' ] == 'root' ) {
FormResponse :: status_message ( " Saved " , " good " );
return FormResponse :: respond ();
}
$form -> dataFieldByName ( 'Title' ) -> value = $form -> dataFieldByName ( 'Name' ) -> value ;
return parent :: save ( $urlParams , $form );
}
2007-10-02 23:34:57 +02:00
/**
* #################################
* Garbage collection .
* #################################
*/
/**
* Removes all unused thumbnails , and echos status message to user .
*
* @ returns null
*/
public function deleteUnusedThumbnails () {
foreach ( $this -> getUnusedThumbnailsArray () as $file ) {
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
unlink ( ASSETS_PATH . " / " . $file );
2007-10-02 23:34:57 +02:00
}
2008-02-25 03:10:37 +01:00
echo " statusMessage(' " . _t ( 'AssetAdmin.THUMBSDELETED' , 'All unused thumbnails have been deleted' ) . " ','good') " ;
2007-10-02 23:34:57 +02:00
}
/**
* Creates array containg all unused thumbnails .
* Array is created in three steps :
* 1. Scan assets folder and retrieve all thumbnails
* 2. Scan all HTMLField in system and retrieve thumbnails from them .
* 3. Count difference between two sets ( array_diff )
*
* @ returns Array
*/
private function getUnusedThumbnailsArray () {
$allThumbnails = array ();
ENHANCEMENT Introduced constants for system paths like /sapphire in preparation for a more flexible directory reorganisation. Instead of hardcoding your path, please use the following constants: BASE_PATH, BASE_URL, SAPPHIRE_DIR, SAPPHIRE_PATH, CMS_DIR, CMS_PATH, THIRDPARTY_DIR, THIRDPARTY_PATH, ASSETS_DIR, ASSETS_PATH, THEMES_DIR, THEMES_PATH
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/cms/trunk@63154 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-09-27 18:02:38 +02:00
$dirIterator = new RecursiveIteratorIterator ( new RecursiveDirectoryIterator ( ASSETS_PATH ));
2007-10-02 23:34:57 +02:00
foreach ( $dirIterator as $file ) {
if ( $file -> isFile ()) {
if ( strpos ( $file -> getPathname (), " _resampled " ) !== false ) {
$pathInfo = pathinfo ( $file -> getPathname ());
if ( in_array ( strtolower ( $pathInfo [ 'extension' ]), array ( 'jpeg' , 'jpg' , 'jpe' , 'png' , 'gif' ))) {
$path = str_replace ( '\\' , '/' , $file -> getPathname ());
$allThumbnails [] = substr ( $path , strpos ( $path , '/assets/' ) + 8 );
}
}
}
}
$classes = ClassInfo :: subclassesFor ( 'SiteTree' );
$usedThumbnails = array ();
foreach ( $classes as $className ) {
$sng = singleton ( $className );
$objects = DataObject :: get ( $className );
if ( $objects !== NULL ) {
foreach ( $objects as $object ) {
foreach ( $sng -> db () as $fieldName => $fieldType ) {
if ( $fieldType == 'HTMLText' ) {
$url1 = HTTP :: findByTagAndAttribute ( $object -> $fieldName , array ( " img " => " src " ));
if ( $url1 != NULL ) $usedThumbnails [] = substr ( $url1 [ 0 ], strpos ( $url1 [ 0 ], '/assets/' ) + 8 );
if ( $object -> latestPublished > 0 ) {
$object = Versioned :: get_latest_version ( $className , $object -> ID );
$url2 = HTTP :: findByTagAndAttribute ( $object -> $fieldName , array ( " img " => " src " ));
if ( $url2 != NULL ) $usedThumbnails [] = substr ( $url2 [ 0 ], strpos ( $url2 [ 0 ], '/assets/' ) + 8 );
}
}
}
}
}
}
return array_diff ( $allThumbnails , $usedThumbnails );
}
2007-11-01 21:58:28 +01:00
}