$Title

The following pages link to this file:

" . implode("",$backlinks) . ""; + } + if(!isset($backlinks)) $backlinks = "

This file hasn't been linked to from any pages.

"; + $detailFormFields->addFieldToTab("BottomRoot.Links", new LiteralField("Backlinks", $backlinks)); + } + + // the ID field confuses the Controller-logic in finding the right view for ReferencedField + $detailFormFields->removeByName('ID'); + // add a namespaced ID instead thats "converted" by saveComplexTableField() + $detailFormFields->push(new HiddenField("ctf[childID]","",$childID)); + $detailFormFields->push(new HiddenField("ctf[ClassName]","",$this->sourceClass)); + + $readonly = ($this->methodName == "show"); + $form = new ComplexTableField_Popup($this, "DetailForm", $detailFormFields, $this->sourceClass, $readonly); + + if (is_numeric($childID)) { + if ($methodName == "show" || $methodName == "edit") { + $form->loadDataFrom($childData); + } + } + + if( !$folder->userCanEdit() || $methodName == "show") { + $form->makeReadonly(); + } + + return $form; + } + +} +?> \ No newline at end of file diff --git a/code/BulkLoader.php b/code/BulkLoader.php new file mode 100755 index 00000000..f90e359c --- /dev/null +++ b/code/BulkLoader.php @@ -0,0 +1,67 @@ +stat('title')) return $title; + else return $this->class; + } + + /** + * Process every record in the file + * @param filename The name of the CSV file to process + * @param preview If true, we'll just output a summary of changes but not actually do anything + * + * @returns A DataObjectSet containing a list of all the reuslst + */ + function processAll($filename, $preview = false) { + // TODO + // Get the first record out of the CSV and store it as headers + // Get each record out of the CSV + // Remap the record so that it's keyed by headers + // Pass it to $this->processRecord, and get the results + // Put the results inside an ArrayData and push that onto a DataObjectSet for returning + } + + + /*---------------------------------------------------------------------------------------- + * Next, we have some abstract functions that let subclasses say what kind of batch operation they're + * going to do + *---------------------------------------------------------------------------------------- + */ + + + /** + * Return a FieldSet containing all the options for this form; this + * doesn't include the actual upload field itself + */ + abstract function getOptionFields(); + + /** + * Process a single record from the CSV file. + * @param record An map of the CSV data, keyed by the header field + * @param preview + * + * @returns A 2 value array. + * - The first element should be "add", "edit" or "", depending on the operation performed in response to this record + * - The second element is a free-text string that can optionally provide some more information about what changes have + * been made + */ + abstract function processRecord($record, $preview = false); + + /*---------------------------------------------------------------------------------------- + * Next, we have a library of helper functions (Brian to build as necessary) + *---------------------------------------------------------------------------------------- + */ + +} + +?> \ No newline at end of file diff --git a/code/BulkLoaderAdmin.php b/code/BulkLoaderAdmin.php new file mode 100755 index 00000000..ba668a94 --- /dev/null +++ b/code/BulkLoaderAdmin.php @@ -0,0 +1,123 @@ +getOptionFields(); + if(!$fields) $fields = new FieldSet(); + + $fields->push(new FileField("File", "CSV File")); + $fields->push(new HiddenField('LoaderClass', '', $loader->class)); + + return new Form($this, "EditForm", + $fields, + new FieldSet( + new FormAction('preview', "Preview") + ) + ); + + } + } + + public function preview() { + $className = $_REQUEST['LoaderClass']; + if(is_subclass_of($className, 'BulkLoader')) { + $loader = new $className(); + + $results = $loader->processAll($_FILES['File']['tmp_name'], false); + + return $this->customise(array( + "Message" => "Press continue to load this data in", + "Results" => $results, + "ConfirmForm" => $this->getConfirmFormFor($loader, $file), + ))->renderWith("BulkLoaderAdmin_preview"); + } + } + + /** + * Generate a confirmation form for the given file/class + * Will copy the file to a suitable temporary location + * @param loader A BulkLoader object + * @param file The name of the temp file + */ + public function getConfirmFormFor($loader, $file) { + $tmpFile = tempnam(TEMP_FOLDER,'batch-upload-'); + copy($file,$tmpFile); + + return new Form($this, "ConfirmForm", new FieldSet( + new HiddenField("File", "", $tmpFile), + new HiddenField("LoaderClass", "", $loader->class) + ), new FieldSet( + new FormAction('process', 'Confirm bulk load') + )); + } + /** + * Stub to return the form back after pressing the button. + */ + public function ConfirmForm() { + $className = $_REQUEST['LoaderClass']; + return $this->getConfirmFormFor(new $className(), $_REQUEST['File']); + } + + /** + * Process the data and display the final "finished" message + */ + public function process() { + $className = $_REQUEST['LoaderClass']; + if(is_subclass_of($className, 'BulkLoader')) { + $loader = new $className(); + + $results = $loader->processAll($_REQUEST['Filename'], true); + + return $this->customise(array( + "Message" => "This data has been loaded in", + "Results" => $results, + "ConfirmForm" => " ", + ))->renderWith("BulkLoaderAdmin_preview"); + } + } + +} + +?> diff --git a/code/CMSActionOptionsForm.php b/code/CMSActionOptionsForm.php new file mode 100755 index 00000000..90e369bc --- /dev/null +++ b/code/CMSActionOptionsForm.php @@ -0,0 +1,17 @@ +actions->First()->Name(); + return "{$action}_options"; + } +} + +?> \ No newline at end of file diff --git a/code/CMSHelp.php b/code/CMSHelp.php new file mode 100755 index 00000000..3de78abb --- /dev/null +++ b/code/CMSHelp.php @@ -0,0 +1,8 @@ + \ No newline at end of file diff --git a/code/CMSMain.php b/code/CMSMain.php new file mode 100644 index 00000000..9e15d722 --- /dev/null +++ b/code/CMSMain.php @@ -0,0 +1,1132 @@ + project() . "/css/editor.css", + "BaseURL" => Director::absoluteBaseURL(), + )); + } + } + + //------------------------------------------------------------------------------------------// + // Main controllers + + //------------------------------------------------------------------------------------------// + // Main UI components + + /** + * Return the entire site tree as a nested set of ULs + */ + public function SiteTreeAsUL() { + $this->generateDataTreeHints(); + $this->generateTreeStylingJS(); + + return $this->getSiteTreeFor("SiteTree"); + } + + public function generateDataTreeHints() { + $classes = ClassInfo::subclassesFor( $this->stat('tree_class') ); + + $def['Root'] = array(); + + foreach($classes as $class) { + $obj = singleton($class); + if($obj instanceof HiddenClass) continue; + + $allowedChildren = $obj->allowedChildren(); + if($allowedChildren != "none") $def[$class]['allowedChildren'] = $allowedChildren; + $def[$class]['defaultChild'] = $obj->defaultChild(); + $def[$class]['defaultParent'] = isset(DataObject::get_by_url($obj->defaultParent())->ID) ? DataObject::get_by_url($obj->defaultParent())->ID : null; + + if(is_array($allowedChildren)) foreach($allowedChildren as $allowedChild) { + $def[$allowedChild]['allowedParents'][] = $class; + } + + if($obj->stat('can_be_root')) { + $def['Root']['allowedChildren'][] = $class; + } + } + + // Put data hints into a script tag at the top + Requirements::customScript("siteTreeHints = " . $this->jsDeclaration($def) . ";"); + } + + public function generateTreeStylingJS() { + $classes = ClassInfo::subclassesFor('SiteTree'); + foreach($classes as $class) { + $obj = singleton($class); + if($obj instanceof HiddenClass) continue; + if($icon = $obj->stat('icon')) $iconInfo[$class] = $icon; + } + $iconInfo['BrokenLink'] = 'cms/images/treeicons/brokenlink'; + + + $js = "var _TREE_ICONS = [];\n"; + + + foreach($iconInfo as $class => $icon) { + // SiteTree::$icon can be set to array($icon, $option) + // $option can be "file" or "folder" to force the icon to always be the file or the folder form + $option = null; + if(is_array($icon)) list($icon, $option) = $icon; + + $fileImage = ($option == "folder") ? $icon . '-openfolder.gif' : $icon . '-file.gif'; + $openFolderImage = $icon . '-openfolder.gif'; + if(!Director::fileExists($openFolderImage) || $option = "file") $openFolderImage = $fileImage; + $closedFolderImage = $icon . '-closedfolder.gif'; + if(!Director::fileExists($closedFolderImage) || $option = "file") $closedFolderImage = $fileImage; + + $js .= << $v) { + $parts[] = "$k : " . $this->jsDeclaration($v); + } + return " {\n " . implode(", \n", $parts) . " }\n"; + } else { + foreach($array as $part) $parts[] = $this->jsDeclaration($part); + return " [ " . implode(", ", $parts) . " ]\n"; + } + } else { + return "'" . addslashes($array) . "'"; + } + } + + /** + * Populates an array of classes in the CMS which allows the + * user to change the page type. + */ + public function PageTypes() { + $classes = ClassInfo::getValidSubClasses(); + array_shift($classes); + $result = new DataObjectSet(); + $kill_ancestors[] = null; + + // figure out if there are any classes we don't want to appear + foreach($classes as $class) { + $instance = singleton($class); + + // do any of the progeny want to hide an ancestor? + if ($ancestor_to_hide = $instance->stat('hide_ancestor')){ + // note for killing later + $kill_ancestors[] = $ancestor_to_hide; + } + } + + // If any of the descendents don't want any of the elders to show up, cruelly render the elders surplus to requirements. + if ($kill_ancestors) { + foreach ($kill_ancestors as $mark) { + // unset from $classes + unset($classes[$mark]); + } + } + + foreach($classes as $class) { + $instance = singleton($class); + if($instance instanceof HiddenClass) continue; + + if( !$instance->canCreate() ) continue; + + // skip this type if it is restricted + if($instance->stat('need_permission') && !$this->can( singleton($class)->stat('need_permission') ) ) continue; + + $addAction = $instance->uninherited('add_action', true); + if(!$addAction) $addAction = "a $class"; + + $result->push(new ArrayData(array( + "ClassName" => $class, + "AddAction" => "Create $addAction", + ))); + } + return $result; + } + + /** + * Get a databsae record to be managed by the CMS + */ + public function getRecord($id) { + + $treeClass = $this->stat('tree_class'); + + if($id && is_numeric($id)) { + $record = DataObject::get_one( $treeClass, "`$treeClass`.ID = $id"); + + if(!$record) { + // $record = Versioned::get_one_by_stage($treeClass, "Live", "`$treeClass`.ID = $id"); + Versioned::reading_stage('Live'); + singleton($treeClass)->flushCache(); + $record = DataObject::get_one( $treeClass, "`$treeClass`.ID = $id"); + if($record) { + $record->DeletedFromStage = true; + } else { + Versioned::reading_stage(null); + } + } + return $record; + + } else if(substr($id,0,3) == 'new') { + return $this->getNewItem($id); + } + } + + public function getEditForm($id) { + $record = $this->getRecord($id); + + if($record) { + if($record->DeletedFromStage) $record->Status = "Removed from the draft site"; + + $fields = $record->getCMSFields($this); + $fields->push($idField = new HiddenField("ID")); + $fields->push($liveURLField = new HiddenField("LiveURLSegment")); + $fields->push($stageURLField = new HiddenField("StageURLSegment")); + + /*if( substr($record->ID, 0, 3 ) == 'new' )*/ + $fields->push(new HiddenField('Sort','', $record->Sort )); + + $idField->setValue($id); + + if($record->ID && is_numeric( $record->ID ) ) $liveURLField->setValue(DB::query("SELECT URLSegment FROM SiteTree_Live WHERE ID = $id")->value()); + if(!$record->DeletedFromStage) $stageURLField->setValue($record->URLSegment); + + // getAllCMSActions can be used to completely redefine the action list + if($record->hasMethod('getAllCMSActions')) { + $actions = $record->getAllCMSActions(); + } else { + $actions = new FieldSet(); + + if($record->DeletedFromStage) { + if($record->can('CMSEdit')) { + $actions->push(new FormAction('revert','Restore')); + $actions->push(new FormAction('deletefromlive','Delete from the published site')); + } + } else { + if($record->hasMethod('getCMSActions')) { + $extraActions = $record->getCMSActions(); + if($extraActions) foreach($extraActions as $action) $actions->push($action); + } + + if($record->canEdit()) { + $actions->push(new FormAction('save','Save draft')); + } + } + } + + $form = new Form($this, "EditForm", $fields, $actions); + $form->loadDataFrom($record); + $form->disableDefaultAction(); + + if(!$record->canEdit() || $record->DeletedFromStage) $form->makeReadonly(); + + return $form; + } else if($id) { + return new Form($this, "EditForm", new FieldSet( + new LabelField("This page doesn't exist")), new FieldSet()); + + } + } + + + + //------------------------------------------------------------------------------------------// + // Data saving handlers + + + public function addpage() { + $className = $_REQUEST['PageType'] ? $_REQUEST['PageType'] : "Page"; + $parent = $_REQUEST['ParentID'] ? $_REQUEST['ParentID'] : 0; + $suffix = $_REQUEST['Suffix'] ? "-" . $_REQUEST['Suffix'] : null; + + + if(is_numeric($parent)) $parentObj = DataObject::get_by_id("SiteTree", $parent); + if(!$parentObj || !$parentObj->ID) $parent = 0; + + $p = $this->getNewItem("new-$className-$parent".$suffix ); + // $p->write(); + + $p->CheckedPublicationDifferences = $p->AddedToStage = true; + return $this->returnItemToUser($p); + } + + public function getNewItem($id, $setID = true) { + list($dummy, $className, $parentID, $suffix) = explode('-',$id); + $newItem = new $className(); + + if( !$suffix ) { + $sessionTag = "NewItems." . $parentID . "." . $className; + if(Session::get($sessionTag)) { + $suffix = '-' . Session::get($sessionTag); + Session::set($sessionTag, Session::get($sessionTag) + 1); + } + else + Session::set($sessionTag, 1); + + $id = $id . $suffix; + } + + $newItem->Title = "New $className"; + $newItem->URLSegment = "new-" . strtolower($className); + $newItem->ClassName = $className; + $newItem->ParentID = $parentID; + + if($newItem->fieldExists('Sort')) { + $newItem->Sort = DB::query("SELECT MAX(Sort) FROM SiteTree WHERE ParentID = '" . Convert::raw2sql($parentID) . "'")->value() + 1; + } + + if( Member::currentUser() ) + $newItem->OwnerID = Member::currentUser()->ID; + + if($setID) $newItem->ID = $id; + + return $newItem; + } + + public function Link($action = null) { + return "admin/$action"; + } + + public function publish($urlParams, $form) { + $id = $_REQUEST['ID']; + $record = DataObject::get_by_id("SiteTree", $id); + $form->saveInto($record); + $this->performPublish($record); + + return $this->tellBrowserAboutPublicationChange($record, "Published '$record->Title' successfully"); + } + + public function deletefromlive($urlParams, $form) { + $id = $_REQUEST['ID']; + Versioned::reading_stage('Live'); + $record = DataObject::get_by_id("SiteTree", $id); + + // before deleting the records, get the descendants of this tree + if($record) { + $descendantIDs = $record->getDescendantIDList('SiteTree'); + + // then delete them from the live site too + foreach( $descendantIDs as $descID ) + if( $descendant = DataObject::get_by_id('SiteTree', $descID) ) { + $descendant->delete(); + $descendantsRemoved++; + } + + // delete the record + $record->delete(); + } + + Versioned::reading_stage('Stage'); + + if($descendantsRemoved) { + $descRemoved = " and $descendantsRemoved descendants"; + } + + $title = Convert::raw2js($record->Title); + FormResponse::add($this->deleteTreeNodeJS($record)); + FormResponse::status_message("Deleted '$title'$descRemoved from live site", 'good'); + + return FormResponse::respond(); + } + + /** + * Actually perform the publication step + */ + public function performPublish($record) { + $record->AssignedToID = 0; + $record->RequestedByID = 0; + $record->Status = "Published"; + //$record->PublishedByID = Member::currentUser()->ID; + $record->write(); + $record->publish("Stage", "Live"); + + // Fix the sort order for this page's siblings + DB::query("UPDATE SiteTree_Live + INNER JOIN SiteTree ON SiteTree_Live.ID = SiteTree.ID + SET SiteTree_Live.Sort = SiteTree.Sort + WHERE SiteTree_Live.ParentID = " . sprintf('%d', $record->ParentID)); + } + + public function revert($urlParams, $form) { + $id = $_REQUEST['ID']; + + Versioned::reading_stage('Live'); + $obj = DataObject::get_by_id("SiteTree", $id); + Versioned::reading_stage('Stage'); + $obj->publish("Live", "Stage"); + + $title = Convert::raw2js($obj->Title); + FormResponse::get_page($id); + FormResponse::add("$('sitetree').setNodeTitle($id, '$title');"); + FormResponse::status_message("Restored '$title' successfully",'good'); + + return FormResponse::respond(); + } + + public function delete($urlParams, $form) { + $id = $_REQUEST['ID']; + $record = DataObject::get_one("SiteTree", "SiteTree.ID = $id"); + $record->delete(); + Director::redirectBack(); + } + + //------------------------------------------------------------------------------------------// + // Workflow handlers + + /** + * Send this page on to another user for review + */ + function submit() { + + $page = DataObject::get_by_id("SiteTree", $_REQUEST['ID']); + $recipient = DataObject::get_by_id("Member", $_REQUEST['RecipientID']); + if(!$recipient) user_error("CMSMain::submit() Can't find recipient #$_REQUEST[RecipientID]", E_USER_ERROR); + + $comment = new WorkflowPageComment(); + $comment->Comment = $_REQUEST['Message']; + $comment->PageID = $page->ID; + $comment->AuthorID = Member::currentUserID(); + $comment->Recipient = $recipient; + $comment->Action = $_REQUEST['Status']; + $comment->write(); + + $emailData = $page->customise(array( + "Message" => $_REQUEST['Message'], + "Recipient" => $recipient, + "Sender" => Member::currentUser(), + "ApproveLink" => "admin/approve/$page->ID", + "EditLink" => "admin/show/$page->ID", + "StageLink" => "$page->URLSegment/?stage=Stage", + )); + + $email = new Page_WorkflowSubmitEmail(); + $email->populateTemplate($emailData); + $email->send(); + + $page->AssignedToID = $recipient->ID; + $page->RequestedByID = Member::currentUserID(); + $page->Status = $_REQUEST['Status']; + $page->writeWithoutVersion(); + + FormResponse::status_message("Sent to $recipient->FirstName $recipient->Surname for approval.","good"); + + return FormResponse::respond(); + } + + function getpagemembers() { + $relationName = $_REQUEST['SecurityLevel']; + $pageID = $this->urlParams['ID']; + $page = DataObject::get_by_id('SiteTree',$pageID); + if($page) { + foreach($page->$relationName() as $editorGroup) $groupIDs[] = $editorGroup->ID; + if($groupIDs) { + $groupList = implode(", ", $groupIDs); + $members = DataObject::get("Member","","", + "INNER JOIN `Group_Members` ON `Group_Members`.MemberID = `Member`.ID AND `Group_Members`.GroupID IN ($groupList)"); + } + + if($members) { + + if( $page->RequestedByID ) + $members->shift( $page->RequestedBy() ); + + foreach($members as $editor) { + $options .= ""; + } + } else { + $options = ""; + } + + return <<Send to + +HTML; + } else { + user_error("CMSMain::getpagemembers() Cannot find page #$pageID", E_USER_ERROR); + } + } + + function getMembersByGroup() { + + $group = DataObject::get_by_id("Group", $this->urlParams['ID']); + if($group){ + $memberList = new MemberList('Users', $group); + $memberList->setController($this); + return $memberList->renderWith('MemberList'); + }else{ + return user_error("CMSMain::getpagemembers() Cannot find Group #$group->ID", E_USER_ERROR); + } + + } + + function addmember() { + SecurityAdmin::addmember($this->stat('subitem_class')); + } + + function tasklist() { + $tasks = DataObject::get("Page", "AssignedToID = " . Member::currentUserID(), "Created DESC"); + if($tasks) { + $data = new ArrayData(array( + "Tasks" => $tasks, + "Message" => "You have work to do on these " . $tasks->Count() . " pages.", + )); + } else { + $data = new ArrayData(array( + "Message" => "You have nothing assigned to you.", + )); + } + return $data->renderWith("TaskList"); + } + + function waitingon() { + $tasks = DataObject::get("Page", "RequestedByID = " . Member::currentUserID(), "Created DESC"); + if($tasks) { + $data = new ArrayData(array( + "Tasks" => $tasks, + "Message" => "You are waiting on other people to work on these " . $tasks->Count() . " pages.", + )); + } else { + $data = new ArrayData(array( + "Message" => "You aren't waiting on anybody.", + )); + } + return $data->renderWith("WaitingOn"); + } + + function comments() { + if($this->urlParams['ID']) { + $comments = DataObject::get("WorkflowPageComment", "PageID = " . $this->urlParams['ID'], "Created DESC"); + $data = new ArrayData(array( + "Comments" => $comments, + )); + return $data->renderWith("CommentList"); + } + } + + /** + * Return a dropdown for selecting reports + */ + function ReportSelector() { + $reports = ClassInfo::subclassesFor("SideReport"); + + $options[""] = "(Choose a report)"; + foreach($reports as $report) { + if($report != 'SideReport') $options[$report] = singleton($report)->title(); + } + return new DropdownField("ReportSelector","Report",$options); + } + /** + * Get the content for a side report + */ + function sidereport() { + $reportClass = $this->urlParams['ID']; + $report = new $reportClass(); + return $report->getHTML(); + } + /** + * Get the versions of the current page + */ + function versions() { + $pageID = $this->urlParams['ID']; + $page = $this->getRecord($pageID); + if($page) { + $versions = $page->allVersions($_REQUEST['unpublished'] ? "" : "`SiteTree_versions`.WasPublished = 1"); + return array( + 'Versions' => $versions, + ); + } else { + return "Can't find page #$pageID"; + } + } + + /** + * Roll a page back to a previous version + */ + function rollback() { + if($_REQUEST['Version']) { + $record = $this->performRollback($_REQUEST['ID'], $_REQUEST['Version']); + echo "Rolled back to version #$_REQUEST[Version]. New version number is #$record->Version"; + } else { + $record = $this->performRollback($_REQUEST['ID'], "Live"); + echo "Rolled back to published version. New version number is #$record->Version"; + } + } + + function unpublish() { + $SQL_id = Convert::raw2sql($_REQUEST['ID']); + + $page = DataObject::get_by_id("SiteTree", $SQL_id); + $page->deleteFromStage('Live'); + $page->flushCache(); + + $page = DataObject::get_by_id("SiteTree", $SQL_id); + $page->Status = "Unpublished"; + $page->write(); + + return $this->tellBrowserAboutPublicationChange($page, "Removed '$page->Title' from the published site"); + } + + + /** + * Return a few pieces of information about a change to a page + * - Send the new status message + * - Update the action buttons + * - Update the treenote + * - Send a status message + */ + function tellBrowserAboutPublicationChange($page, $statusMessage) { + + $JS_title = Convert::raw2js($page->TreeTitle()); + + $JS_stageURL = Convert::raw2js(DB::query("SELECT URLSegment FROM SiteTree WHERE ID = $page->ID")->value()); + $JS_liveURL = Convert::raw2js(DB::query("SELECT URLSegment FROM SiteTree_Live WHERE ID = $page->ID")->value()); + FormResponse::add($this->getActionUpdateJS($page)); + FormResponse::update_status($page->Status); + FormResponse::add("\$('sitetree').setNodeTitle($page->ID, '$JS_title')"); + FormResponse::status_message($statusMessage, 'good'); + FormResponse::add("$('Form_EditForm').elements.StageURLSegment.value = '$JS_stageURL'"); + FormResponse::add("$('Form_EditForm').elements.LiveURLSegment.value = '$JS_liveURL'"); + FormResponse::add("$('Form_EditForm').notify('PagePublished', $('Form_EditForm').elements.ID.value);"); + + return FormResponse::respond(); + } + + function performRollback($id, $version) { + $record = DataObject::get_by_id($this->stat('tree_class'), $id); + $record->publish($version, "Stage", true); + $record->AssignedToID = 0; + $record->RequestedByID = 0; + $record->Status = "Saved (update)"; + $record->writeWithoutVersion(); + return $record; + } + + function getversion() { + $id = $this->urlParams['ID']; + $version = $this->urlParams['OtherID']; + $record = Versioned::get_version("SiteTree", $id, $version); + + if($record) { + $fields = $record->getCMSFields($this); + $fields->removeByName("Status"); + + $fields->push(new HiddenField("ID")); + $fields->push(new HiddenField("Version")); + $fields->insertBefore(new HeaderField("You are viewing version #$version, created " . $record->obj('LastEdited')->Ago()), "Root"); + + $actions = new FieldSet( + new FormAction("email", "Email"), + new FormAction("print", "Print"), + new FormAction("rollback", "Roll back to this version") + ); + + // encode the message to appear in the body of the email + $archiveURL = Director::absoluteBaseURL() . $record->URLSegment . '?archiveDate=' . $record->obj('LastEdited')->URLDate(); + $archiveEmailMessage = urlencode( $this->customise( array( 'ArchiveDate' => $record->obj('LastEdited'), 'ArchiveURL' => $archiveURL ) )->renderWith( 'ViewArchivedEmail' ) ); + + $archiveEmailMessage = preg_replace( '/\+/', '%20', $archiveEmailMessage ); + + $fields->push( new HiddenField( 'ArchiveEmailMessage', '', $archiveEmailMessage ) ); + $fields->push( new HiddenField( 'ArchiveEmailSubject', '', preg_replace( '/\+/', '%20', urlencode( 'Archived version of ' . $record->Title ) ) ) ); + $fields->push( new HiddenField( 'ArchiveURL', '', $archiveURL ) ); + + $form = new Form($this, "EditForm", $fields, $actions); + $form->loadDataFrom($record); + $form->loadDataFrom(array( + "ID" => $id, + "Version" => $version, + )); + $form->makeReadonly(); + + $templateData = $this->customise(array( + "EditForm" => $form + )); + + SSViewer::setOption('rewriteHashlinks', false); + $result = $templateData->renderWith($this->class . '_right'); + $parts = split(']*>', $result); + return $parts[sizeof($parts)-2]; + } + } + + function compareversions() { + $id = $this->urlParams['ID']; + $version1 = $_REQUEST['From']; + $version2 = $_REQUEST['To']; + + if( $version1 > $version2 ) { + $toVersion = $version1; + $fromVersion = $version2; + } else { + $toVersion = $version2; + $fromVersion = $version1; + } + + $page = DataObject::get_by_id("SiteTree", $id); + $record = $page->compareVersions($fromVersion, $toVersion); + if($record) { + $fields = $record->getCMSFields($this); + $fields->push(new HiddenField("ID")); + $fields->push(new HiddenField("Version")); + $fields->insertBefore(new HeaderField("You are comparing versions #$fromVersion and #$toVersion"), "Root"); + + $actions = new FieldSet(); + + $form = new Form($this, "EditForm", $fields, $actions); + $form->loadDataFrom($record); + $form->loadDataFrom(array( + "ID" => $id, + "Version" => $version, + )); + $form->makeReadonly(); + foreach($form->Fields()->dataFields() as $field) { + $field->dontEscape = true; + } + + return $this->sendFormToBrowser(array( + "EditForm" => $form + )); + } + } + + function sendFormToBrowser($templateData) { + if(Director::is_ajax()) { + SSViewer::setOption('rewriteHashlinks', false); + $result = $this->customise($templateData)->renderWith($this->class . '_right'); + $parts = split(']*>', $result); + return $parts[sizeof($parts)-2]; + } else { + return array( + "Right" => $this->customise($templateData)->renderWith($this->class . '_right'), + ); + } + } + + function dialog() { + Requirements::clear(); + + $buttons = new DataObjectSet; + if($_REQUEST['Buttons']) foreach($_REQUEST['Buttons'] as $button) { + list($name, $title) = explode(',',$button,2); + $buttons->push(new ArrayData(array( + "Name" => $name, + "Title" => $title, + ))); + } + + return array( + "Message" => htmlentities($_REQUEST['Message']), + "Buttons" => $buttons, + "Modal" => $_REQUEST['Modal'] ? true : false, + ); + } + + function savedialog() { + Requirements::clear(); + Requirements::css('cms/css/dialog.css'); + Requirements::javascript('jsparty/prototype.js'); + Requirements::javascript('jsparty/behaviour.js'); + Requirements::javascript('jsparty/prototype_improvements.js'); + Requirements::javascript('cms/javascript/dialog.js'); + + $message = "You have unsaved changes. Would you like to save them?"; + $buttons = ""; + + return $this->customise( array( + 'Message' => $message, + 'Buttons' => $buttons, + 'DialogType' => 'alert' + ))->renderWith( 'Dialog' ); + } + + function canceldraftchangesdialog() { + Requirements::clear(); + Requirements::css('cms/css/dialog.css'); + Requirements::javascript('jsparty/prototype.js'); + Requirements::javascript('jsparty/behaviour.js'); + Requirements::javascript('jsparty/prototype_improvements.js'); + Requirements::javascript('cms/javascript/dialog.js'); + + $message = "Do you really want to copy the published content to the stage site?"; + $buttons = ""; + + return $this->customise( array( + 'Message' => $message, + 'Buttons' => $buttons, + 'DialogType' => 'alert' + ))->renderWith('Dialog'); + } + + /** + * Delete a number of items. + * This code supports notification + */ + public function deleteitems() { + // This method can't be called without ajax. + if(!Director::is_ajax()) { + Director::redirectBack(); + return; + } + + $ids = split(' *, *', $_REQUEST['csvIDs']); + + $notifications = array(); + + $idList = array(); + + // make sure all the ids are numeric. + // Add all the children to the list of IDs if they are missing + foreach($ids as $id) { + $brokenPageList = ''; + if(is_numeric($id)) { + $record = DataObject::get_by_id($this->stat('tree_class'), $id); + + // if(!$record) Debug::message( "Can't find record #$id" ); + + if($record) { + + // add all the children for this record if they are not already in the list + // this check is a little slower but will prevent circular dependencies + // (should they exist, which they probably shouldn't) from causing + // the function to not terminate + $children = $record->AllChildren(); + + if( $children ) + foreach( $children as $child ) + if( array_search( $child->ID, $ids ) !== FALSE ) + $ids[] = $child->ID; + + if($record->hasMethod('BackLinkTracking')) { + $brokenPages = $record->BackLinkTracking(); + foreach($brokenPages as $brokenPage) { + $brokenPageList .= "

" . $brokenPage->Breadcrumbs(3, true) . "

"; + $brokenPage->HasBrokenLink = true; + $notifications[$brokenPage->OwnerID][] = $brokenPage; + $brokenPage->writeWithoutVersion(); + } + } + + $record->delete(); + $record->destroy(); + + // DataObject::delete_by_id($this->stat('tree_class'), $id); + $record->CheckedPublicationDifferences = $record->DeletedFromStage = true; + + // check to see if the record exists on the live site, if it doesn't remove the tree node + // $_REQUEST['showqueries'] = 1 ; + $liveRecord = Versioned::get_one_by_stage( $this->stat('tree_class'), 'Live', "`{$this->stat('tree_class')}`.`ID`={$id}"); + + if($liveRecord) { + $title = Convert::raw2js($record->TreeTitle()); + FormResponse::add("$('sitetree').setNodeTitle($record->OldID, '$title');"); + FormResponse::add("$('Form_EditForm').reloadIfSetTo($record->OldID);"); + } else { + FormResponse::add("var node = $('sitetree').getTreeNodeByIdx('$id');"); + FormResponse::add("if(node.parentTreeNode) node.parentTreeNode.removeTreeNode(node);"); + FormResponse::add("$('Form_EditForm').reloadIfSetTo($record->OldID);"); + } + } + } + } + + if($notifications) foreach($notifications as $memberID => $pages) { + if(class_exists('Page_BrokenLinkEmail')) { + $email = new Page_BrokenLinkEmail(); + $email->populateTemplate(new ArrayData(array( + "Recipient" => DataObject::get_by_id("Member", $memberID), + "BrokenPages" => new DataObjectSet($pages), + ))); + $email->debug(); + $email->send(); + } + } + + $s = sizeof($ids) > 1 ? "s" : ""; + $message = sizeof($ids) . " page$s deleted."; + if($brokenPageList != '') { + $message .= " The following pages now have broken links:

" . addslashes($brokenPageList) . "Their owners have been emailed and they will fix up those pages."; + } + + FormResponse::status_message($message); + + return FormResponse::respond(); + } + + function buildbrokenlinks() { + if($this->urlParams['ID']) { + $newPageSet[] = DataObject::get_by_id("Page", $this->urlParams['ID']); + } else { + $pages = DataObject::get("Page"); + foreach($pages as $page) $newPageSet[] = $page; + $pages = null; + } + + $content = new HtmlEditorField('Content'); + $download = new HtmlEditorField('Download'); + + foreach($newPageSet as $i => $page) { + $page->HasBrokenLink = 0; + $page->HasBrokenFile = 0; + + $lastUsage = (memory_get_usage() - $lastPoint); + $lastPoint = memory_get_usage(); + $content->setValue($page->Content); + $content->saveInto($page); + + $download->setValue($page->Download); + $download->saveInto($page); + + echo "

$page->Title (link:$page->HasBrokenLink, file:$page->HasBrokenFile)"; + + $page->writeWithoutVersion(); + $page->destroy(); + $newPageSet[$i] = null; + } + } + + function AddPageOptionsForm() { + $pageTypes = array(); + + foreach( $this->PageTypes() as $arrayData ) { + $pageTypes[$arrayData->getField('ClassName')] = $arrayData->getField('AddAction'); + } + + return new Form($this, "AddPageOptionsForm", new FieldSet( + new HiddenField("ParentID"), + new DropdownField("PageType", "", $pageTypes) + // "Page to copy" => new TreeDropdownField("DuplicateSection", "", "SiteTree"), + ), + new FieldSet( + new FormAction("addpage", "Go") + )); + } + + /** + * Helper function to get page count + */ + function getpagecount() { + ini_set('max_execution_time',300); + $excludePages = split(" *, *", $_GET['exclude']); + + $pages = DataObject::get("SiteTree", "ParentID = 0"); + foreach($pages as $page) $pageArr[] = $page; + + while(list($i,$page) = each($pageArr)) { + if(!in_array($page->URLSegment, $excludePages)) { + if($children = $page->AllChildren()) { + foreach($children as $child) $pageArr[] = $child; + } + + + if(!$_GET['onlywithcontent'] || strlen(Convert::xml2raw($page->Content)) > 100) { + echo "

" . $page->Breadcrumbs(null, true) . "

"; + $count++; + } else { + echo "

" . $page->Breadcrumbs(null, true) . " - no content

"; + } + + } + } + + echo "

Total pages: $count

"; + } + + function publishall() { + ini_set("memory_limit","100M"); + ini_set('max_execution_time', 300); + + if(isset($_POST['confirm'])) { + $pages = DataObject::get("SiteTree"); + $count = 0; + foreach($pages as $page) { + $this->performPublish($page); + $page->destroy(); + unset($page); + $count++; + echo "

$count"; + } + + echo "Done: Published $count pages"; + + } else { + echo <<"Publish All" functionality +

Pressing this button will do the equivalent of going to every page and pressing "publish". It's + intended to be used after there have been massive edits of the content, such as when the site was + first built.

+ +HTML; + } + } + + function restorepage() { + if($id = $this->urlParams['ID']) { + $restoredPage = Versioned::get_latest_version("SiteTree", $id); + $restoredPage->ID = $restoredPage->RecordID; + if(!DB::query("SELECT ID FROM SiteTree WHERE ID = $restoredPage->ID")->value()) { + DB::query("INSERT INTO SiteTree SET ID = $restoredPage->ID"); + } + $restoredPage->forceChange(); + $restoredPage->writeWithoutVersion(); + Debug::show($restoredPage); + } else { + echo "visit restorepage/(ID)"; + } + } + + function duplicate() { + if(($id = $this->urlParams['ID']) && is_numeric($id)) { + $page = DataObject::get_by_id("SiteTree", $id); + + $newPage = $page->duplicate(); + + return $this->returnItemToUser($newPage); + } else { + user_error("CMSMain::duplicate() Bad ID: '$id'", E_USER_WARNING); + } + } + + // HACK HACK HACK - Dont remove without telling simon ;-) + + /** + * This is only used by parents inc. + * TODO Work out a better way of handling control to the individual page objects. + */ + function sethottip($data,$form) { + $page = DataObject::get_by_id("SiteTree", $_REQUEST['ID']); + return $page->sethottip($data,$form); + } + /** + * This is only used by parents inc. + * TODO Work out a better way of handling control to the individual page objects. + */ + function notifyInvitation($data,$form) { + $page = DataObject::get_by_id("SiteTree", $_REQUEST['ID']); + return $page->notifyInvitation($data,$form); + } + function testInvitation($data,$form) { + $page = DataObject::get_by_id("SiteTree", $_REQUEST['ID']); + return $page->testInvitation($data,$form); + } + + /** + * Use this as an action handler for custom CMS buttons. + */ + function callPageMethod($data, $form) { + $methodName = $form->buttonClicked()->extraData(); + $record = $this->CurrentPage(); + return $record->$methodName($data, $form); + } + + /** + * Provide the permission codes used by LeftAndMain. + * Can't put it on LeftAndMain since that's an abstract base class. + */ + function providePermissions() { + $classes = ClassInfo::subclassesFor('LeftAndMain'); + + foreach($classes as $class) { + $perms["CMS_ACCESS_" . $class] = "Access to $class in CMS"; + } + return $perms; + } +} + +?> \ No newline at end of file diff --git a/code/Diff.php b/code/Diff.php new file mode 100755 index 00000000..d935db33 --- /dev/null +++ b/code/Diff.php @@ -0,0 +1,795 @@ + +// You may copy this code freely under the conditions of the GPL. +// + +// FIXME: possibly remove assert()'s for production version? + +// PHP3 does not have assert() +define('USE_ASSERTS', function_exists('assert')); + +class _DiffOp { + var $type; + var $orig; + var $final; + + function reverse() { + trigger_error("pure virtual", E_USER_ERROR); + } + + function norig() { + return $this->orig ? sizeof($this->orig) : 0; + } + + function nfinal() { + return $this->final ? sizeof($this->final) : 0; + } +} + +class _DiffOp_Copy extends _DiffOp { + var $type = 'copy'; + + function _DiffOp_Copy ($orig, $final = false) { + if (!is_array($final)) + $final = $orig; + $this->orig = $orig; + $this->final = $final; + } + + function reverse() { + return new _DiffOp_Copy($this->final, $this->orig); + } +} + +class _DiffOp_Delete extends _DiffOp { + var $type = 'delete'; + + function _DiffOp_Delete ($lines) { + $this->orig = $lines; + $this->final = false; + } + + function reverse() { + return new _DiffOp_Add($this->orig); + } +} + +class _DiffOp_Add extends _DiffOp { + var $type = 'add'; + + function _DiffOp_Add ($lines) { + $this->final = $lines; + $this->orig = false; + } + + function reverse() { + return new _DiffOp_Delete($this->final); + } +} + +class _DiffOp_Change extends _DiffOp { + var $type = 'change'; + + function _DiffOp_Change ($orig, $final) { + $this->orig = $orig; + $this->final = $final; + } + + function reverse() { + return new _DiffOp_Change($this->final, $this->orig); + } +} + + +/** + * Class used internally by Diff to actually compute the diffs. + * + * The algorithm used here is mostly lifted from the perl module + * Algorithm::Diff (version 1.06) by Ned Konz, which is available at: + * http://www.perl.com/CPAN/authors/id/N/NE/NEDKONZ/Algorithm-Diff-1.06.zip + * + * More ideas are taken from: + * http://www.ics.uci.edu/~eppstein/161/960229.html + * + * Some ideas are (and a bit of code) are from from analyze.c, from GNU + * diffutils-2.7, which can be found at: + * ftp://gnudist.gnu.org/pub/gnu/diffutils/diffutils-2.7.tar.gz + * + * Finally, some ideas (subdivision by NCHUNKS > 2, and some optimizations) + * are my own. + * + * @author Geoffrey T. Dairiki + * @access private + */ +class _DiffEngine +{ + function diff ($from_lines, $to_lines) { + $n_from = sizeof($from_lines); + $n_to = sizeof($to_lines); + + $this->xchanged = $this->ychanged = array(); + $this->xv = $this->yv = array(); + $this->xind = $this->yind = array(); + unset($this->seq); + unset($this->in_seq); + unset($this->lcs); + + // Skip leading common lines. + for ($skip = 0; $skip < $n_from && $skip < $n_to; $skip++) { + if ($from_lines[$skip] != $to_lines[$skip]) + break; + $this->xchanged[$skip] = $this->ychanged[$skip] = false; + } + // Skip trailing common lines. + $xi = $n_from; $yi = $n_to; + for ($endskip = 0; --$xi > $skip && --$yi > $skip; $endskip++) { + if ($from_lines[$xi] != $to_lines[$yi]) + break; + $this->xchanged[$xi] = $this->ychanged[$yi] = false; + } + + // Ignore lines which do not exist in both files. + for ($xi = $skip; $xi < $n_from - $endskip; $xi++) + $xhash[$from_lines[$xi]] = 1; + for ($yi = $skip; $yi < $n_to - $endskip; $yi++) { + $line = $to_lines[$yi]; + if ( ($this->ychanged[$yi] = empty($xhash[$line])) ) + continue; + $yhash[$line] = 1; + $this->yv[] = $line; + $this->yind[] = $yi; + } + for ($xi = $skip; $xi < $n_from - $endskip; $xi++) { + $line = $from_lines[$xi]; + if ( ($this->xchanged[$xi] = empty($yhash[$line])) ) + continue; + $this->xv[] = $line; + $this->xind[] = $xi; + } + + // Find the LCS. + $this->_compareseq(0, sizeof($this->xv), 0, sizeof($this->yv)); + + // Merge edits when possible + $this->_shift_boundaries($from_lines, $this->xchanged, $this->ychanged); + $this->_shift_boundaries($to_lines, $this->ychanged, $this->xchanged); + + // Compute the edit operations. + $edits = array(); + $xi = $yi = 0; + while ($xi < $n_from || $yi < $n_to) { + USE_ASSERTS && assert($yi < $n_to || $this->xchanged[$xi]); + USE_ASSERTS && assert($xi < $n_from || $this->ychanged[$yi]); + + // Skip matching "snake". + $copy = array(); + while ( $xi < $n_from && $yi < $n_to + && !$this->xchanged[$xi] && !$this->ychanged[$yi]) { + $copy[] = $from_lines[$xi++]; + ++$yi; + } + if ($copy) + $edits[] = new _DiffOp_Copy($copy); + + // Find deletes & adds. + $delete = array(); + while ($xi < $n_from && $this->xchanged[$xi]) + $delete[] = $from_lines[$xi++]; + + $add = array(); + while ($yi < $n_to && $this->ychanged[$yi]) + $add[] = $to_lines[$yi++]; + + if ($delete && $add) + $edits[] = new _DiffOp_Change($delete, $add); + elseif ($delete) + $edits[] = new _DiffOp_Delete($delete); + elseif ($add) + $edits[] = new _DiffOp_Add($add); + } + return $edits; + } + + + /* Divide the Largest Common Subsequence (LCS) of the sequences + * [XOFF, XLIM) and [YOFF, YLIM) into NCHUNKS approximately equally + * sized segments. + * + * Returns (LCS, PTS). LCS is the length of the LCS. PTS is an + * array of NCHUNKS+1 (X, Y) indexes giving the diving points between + * sub sequences. The first sub-sequence is contained in [X0, X1), + * [Y0, Y1), the second in [X1, X2), [Y1, Y2) and so on. Note + * that (X0, Y0) == (XOFF, YOFF) and + * (X[NCHUNKS], Y[NCHUNKS]) == (XLIM, YLIM). + * + * This function assumes that the first lines of the specified portions + * of the two files do not match, and likewise that the last lines do not + * match. The caller must trim matching lines from the beginning and end + * of the portions it is going to specify. + */ + function _diag ($xoff, $xlim, $yoff, $ylim, $nchunks) { + $flip = false; + + if ($xlim - $xoff > $ylim - $yoff) { + // Things seems faster (I'm not sure I understand why) + // when the shortest sequence in X. + $flip = true; + list ($xoff, $xlim, $yoff, $ylim) + = array( $yoff, $ylim, $xoff, $xlim); + } + + if ($flip) + for ($i = $ylim - 1; $i >= $yoff; $i--) + $ymatches[$this->xv[$i]][] = $i; + else + for ($i = $ylim - 1; $i >= $yoff; $i--) + $ymatches[$this->yv[$i]][] = $i; + + $this->lcs = 0; + $this->seq[0]= $yoff - 1; + $this->in_seq = array(); + $ymids[0] = array(); + + $numer = $xlim - $xoff + $nchunks - 1; + $x = $xoff; + for ($chunk = 0; $chunk < $nchunks; $chunk++) { + if ($chunk > 0) + for ($i = 0; $i <= $this->lcs; $i++) + $ymids[$i][$chunk-1] = $this->seq[$i]; + + $x1 = $xoff + (int)(($numer + ($xlim-$xoff)*$chunk) / $nchunks); + for ( ; $x < $x1; $x++) { + $line = $flip ? $this->yv[$x] : $this->xv[$x]; + if (empty($ymatches[$line])) + continue; + $matches = $ymatches[$line]; + reset($matches); + while (list ($junk, $y) = each($matches)) + if (empty($this->in_seq[$y])) { + $k = $this->_lcs_pos($y); + USE_ASSERTS && assert($k > 0); + $ymids[$k] = $ymids[$k-1]; + break; + } + while (list ($junk, $y) = each($matches)) { + if ($y > $this->seq[$k-1]) { + USE_ASSERTS && assert($y < $this->seq[$k]); + // Optimization: this is a common case: + // next match is just replacing previous match. + $this->in_seq[$this->seq[$k]] = false; + $this->seq[$k] = $y; + $this->in_seq[$y] = 1; + } + else if (empty($this->in_seq[$y])) { + $k = $this->_lcs_pos($y); + USE_ASSERTS && assert($k > 0); + $ymids[$k] = $ymids[$k-1]; + } + } + } + } + + $seps[] = $flip ? array($yoff, $xoff) : array($xoff, $yoff); + $ymid = $ymids[$this->lcs]; + for ($n = 0; $n < $nchunks - 1; $n++) { + $x1 = $xoff + (int)(($numer + ($xlim - $xoff) * $n) / $nchunks); + $y1 = $ymid[$n] + 1; + $seps[] = $flip ? array($y1, $x1) : array($x1, $y1); + } + $seps[] = $flip ? array($ylim, $xlim) : array($xlim, $ylim); + + return array($this->lcs, $seps); + } + + function _lcs_pos ($ypos) { + $end = $this->lcs; + if ($end == 0 || $ypos > $this->seq[$end]) { + $this->seq[++$this->lcs] = $ypos; + $this->in_seq[$ypos] = 1; + return $this->lcs; + } + + $beg = 1; + while ($beg < $end) { + $mid = (int)(($beg + $end) / 2); + if ( $ypos > $this->seq[$mid] ) + $beg = $mid + 1; + else + $end = $mid; + } + + USE_ASSERTS && assert($ypos != $this->seq[$end]); + + $this->in_seq[$this->seq[$end]] = false; + $this->seq[$end] = $ypos; + $this->in_seq[$ypos] = 1; + return $end; + } + + /* Find LCS of two sequences. + * + * The results are recorded in the vectors $this->{x,y}changed[], by + * storing a 1 in the element for each line that is an insertion + * or deletion (ie. is not in the LCS). + * + * The subsequence of file 0 is [XOFF, XLIM) and likewise for file 1. + * + * Note that XLIM, YLIM are exclusive bounds. + * All line numbers are origin-0 and discarded lines are not counted. + */ + function _compareseq ($xoff, $xlim, $yoff, $ylim) { + // Slide down the bottom initial diagonal. + while ($xoff < $xlim && $yoff < $ylim + && $this->xv[$xoff] == $this->yv[$yoff]) { + ++$xoff; + ++$yoff; + } + + // Slide up the top initial diagonal. + while ($xlim > $xoff && $ylim > $yoff + && $this->xv[$xlim - 1] == $this->yv[$ylim - 1]) { + --$xlim; + --$ylim; + } + + if ($xoff == $xlim || $yoff == $ylim) + $lcs = 0; + else { + // This is ad hoc but seems to work well. + //$nchunks = sqrt(min($xlim - $xoff, $ylim - $yoff) / 2.5); + //$nchunks = max(2,min(8,(int)$nchunks)); + $nchunks = min(7, $xlim - $xoff, $ylim - $yoff) + 1; + list ($lcs, $seps) + = $this->_diag($xoff,$xlim,$yoff, $ylim,$nchunks); + } + + if ($lcs == 0) { + // X and Y sequences have no common subsequence: + // mark all changed. + while ($yoff < $ylim) + $this->ychanged[$this->yind[$yoff++]] = 1; + while ($xoff < $xlim) + $this->xchanged[$this->xind[$xoff++]] = 1; + } + else { + // Use the partitions to split this problem into subproblems. + reset($seps); + $pt1 = $seps[0]; + while ($pt2 = next($seps)) { + $this->_compareseq ($pt1[0], $pt2[0], $pt1[1], $pt2[1]); + $pt1 = $pt2; + } + } + } + + /* Adjust inserts/deletes of identical lines to join changes + * as much as possible. + * + * We do something when a run of changed lines include a + * line at one end and has an excluded, identical line at the other. + * We are free to choose which identical line is included. + * `compareseq' usually chooses the one at the beginning, + * but usually it is cleaner to consider the following identical line + * to be the "change". + * + * This is extracted verbatim from analyze.c (GNU diffutils-2.7). + */ + function _shift_boundaries ($lines, &$changed, $other_changed) { + $i = 0; + $j = 0; + + USE_ASSERTS && assert('sizeof($lines) == sizeof($changed)'); + $len = sizeof($lines); + $other_len = sizeof($other_changed); + + while (1) { + /* + * Scan forwards to find beginning of another run of changes. + * Also keep track of the corresponding point in the other file. + * + * Throughout this code, $i and $j are adjusted together so that + * the first $i elements of $changed and the first $j elements + * of $other_changed both contain the same number of zeros + * (unchanged lines). + * Furthermore, $j is always kept so that $j == $other_len or + * $other_changed[$j] == false. + */ + while ($j < $other_len && $other_changed[$j]) + $j++; + + while ($i < $len && ! $changed[$i]) { + USE_ASSERTS && assert('$j < $other_len && ! $other_changed[$j]'); + $i++; $j++; + while ($j < $other_len && $other_changed[$j]) + $j++; + } + + if ($i == $len) + break; + + $start = $i; + + // Find the end of this run of changes. + while (++$i < $len && $changed[$i]) + continue; + + do { + /* + * Record the length of this run of changes, so that + * we can later determine whether the run has grown. + */ + $runlength = $i - $start; + + /* + * Move the changed region back, so long as the + * previous unchanged line matches the last changed one. + * This merges with previous changed regions. + */ + while ($start > 0 && $lines[$start - 1] == $lines[$i - 1]) { + $changed[--$start] = 1; + $changed[--$i] = false; + while ($start > 0 && $changed[$start - 1]) + $start--; + USE_ASSERTS && assert('$j > 0'); + while ($other_changed[--$j]) + continue; + USE_ASSERTS && assert('$j >= 0 && !$other_changed[$j]'); + } + + /* + * Set CORRESPONDING to the end of the changed run, at the last + * point where it corresponds to a changed run in the other file. + * CORRESPONDING == LEN means no such point has been found. + */ + $corresponding = $j < $other_len ? $i : $len; + + /* + * Move the changed region forward, so long as the + * first changed line matches the following unchanged one. + * This merges with following changed regions. + * Do this second, so that if there are no merges, + * the changed region is moved forward as far as possible. + */ + while ($i < $len && $lines[$start] == $lines[$i]) { + $changed[$start++] = false; + $changed[$i++] = 1; + while ($i < $len && $changed[$i]) + $i++; + + USE_ASSERTS && assert('$j < $other_len && ! $other_changed[$j]'); + $j++; + if ($j < $other_len && $other_changed[$j]) { + $corresponding = $i; + while ($j < $other_len && $other_changed[$j]) + $j++; + } + } + } while ($runlength != $i - $start); + + /* + * If possible, move the fully-merged run of changes + * back to a corresponding run in the other file. + */ + while ($corresponding < $i) { + $changed[--$start] = 1; + $changed[--$i] = 0; + USE_ASSERTS && assert('$j > 0'); + while ($other_changed[--$j]) + continue; + USE_ASSERTS && assert('$j >= 0 && !$other_changed[$j]'); + } + } + } +} + +/** + * Class representing a 'diff' between two sequences of strings. + */ +class Diff +{ + var $edits; + + /** + * Constructor. + * Computes diff between sequences of strings. + * + * @param $from_lines array An array of strings. + * (Typically these are lines from a file.) + * @param $to_lines array An array of strings. + */ + function Diff($from_lines, $to_lines) { + $eng = new _DiffEngine; + $this->edits = $eng->diff($from_lines, $to_lines); + //$this->_check($from_lines, $to_lines); + } + + /** + * Compute reversed Diff. + * + * SYNOPSIS: + * + * $diff = new Diff($lines1, $lines2); + * $rev = $diff->reverse(); + * @return object A Diff object representing the inverse of the + * original diff. + */ + function reverse () { + $rev = $this; + $rev->edits = array(); + foreach ($this->edits as $edit) { + $rev->edits[] = $edit->reverse(); + } + return $rev; + } + + /** + * Check for empty diff. + * + * @return bool True iff two sequences were identical. + */ + function isEmpty () { + foreach ($this->edits as $edit) { + if ($edit->type != 'copy') + return false; + } + return true; + } + + /** + * Compute the length of the Longest Common Subsequence (LCS). + * + * This is mostly for diagnostic purposed. + * + * @return int The length of the LCS. + */ + function lcs () { + $lcs = 0; + foreach ($this->edits as $edit) { + if ($edit->type == 'copy') + $lcs += sizeof($edit->orig); + } + return $lcs; + } + + /** + * Get the original set of lines. + * + * This reconstructs the $from_lines parameter passed to the + * constructor. + * + * @return array The original sequence of strings. + */ + function orig() { + $lines = array(); + + foreach ($this->edits as $edit) { + if ($edit->orig) + array_splice($lines, sizeof($lines), 0, $edit->orig); + } + return $lines; + } + + /** + * Get the final set of lines. + * + * This reconstructs the $to_lines parameter passed to the + * constructor. + * + * @return array The sequence of strings. + */ + function finaltext() { + $lines = array(); + + foreach ($this->edits as $edit) { + if ($edit->final) + array_splice($lines, sizeof($lines), 0, $edit->final); + } + return $lines; + } + + /** + * Check a Diff for validity. + * + * This is here only for debugging purposes. + */ + function _check ($from_lines, $to_lines) { + if (serialize($from_lines) != serialize($this->orig())) + trigger_error("Reconstructed original doesn't match", E_USER_ERROR); + if (serialize($to_lines) != serialize($this->finaltext())) + trigger_error("Reconstructed final doesn't match", E_USER_ERROR); + + $rev = $this->reverse(); + if (serialize($to_lines) != serialize($rev->orig())) + trigger_error("Reversed original doesn't match", E_USER_ERROR); + if (serialize($from_lines) != serialize($rev->finaltext())) + trigger_error("Reversed final doesn't match", E_USER_ERROR); + + + $prevtype = 'none'; + foreach ($this->edits as $edit) { + if ( $prevtype == $edit->type ) + trigger_error("Edit sequence is non-optimal", E_USER_ERROR); + $prevtype = $edit->type; + } + + $lcs = $this->lcs(); + trigger_error("Diff okay: LCS = $lcs", E_USER_NOTICE); + } + + + + static function compareHTML($from, $to) { + // First split up the content into words and tags + $set1 = self::getHTMLChunks($from); + $set2 = self::getHTMLChunks($to); + + // Diff that + $diff = new Diff($set1, $set2); + + // Go through everything, converting edited tags (and their content) into single chunks. Otherwise + // the generated HTML gets crusty + foreach($diff->edits as $edit) { + //echo "

$edit->type: " . htmlentities(implode(" " ,$edit->orig)); + //if($edit->final) echo ' / ' . htmlentities(implode(" " ,$edit->final)); + + switch($edit->type) { + case 'copy': + $lookForTag = false; + $stuffFor[1] = $edit->orig; + $stuffFor[2] = $edit->orig; + break; + + case 'change': + $lookForTag = true; + $stuffFor[1] = $edit->orig; + $stuffFor[2] = $edit->final; + break; + + case 'add': + $lookForTag = true; + $stuffFor[1] = null; + $stuffFor[2] = $edit->final; + break; + + case 'delete': + $lookForTag = true; + $stuffFor[1] = $edit->orig; + $stuffFor[2] = null; + break; + } + + foreach($stuffFor as $listName => $chunks) { + if($chunks) { + foreach($chunks as $item) { + // $tagStack > 0 indicates that we should be tag-building + if($tagStack[$listName]) $rechunked[$listName][sizeof($rechunked[$listName])-1] .= ' ' . $item; + else $rechunked[$listName][] = $item; + + if($lookForTag && $item[0] == "<" && substr($item,0,2) != "" . htmlentities($item) . " -> " .$tagStack[$listName]; + } + } + } + } + + + // Diff the re-chunked data, turning it into maked up HTML + $diff = new Diff($rechunked[1], $rechunked[2]); + foreach($diff->edits as $edit) { + // echo "

$edit->type: " . htmlentities(implode(" " ,$edit->orig)); + // if($edit->final) echo ' / ' . htmlentities(implode(" " ,$edit->final)); + + switch($edit->type) { + case 'copy': + $content .= " " . implode(" ", $edit->orig) . " "; + break; + + case 'change': + $content .= " " . implode(" ", $edit->final) . " "; + $content .= " ~~" . implode(" ", $edit->orig) . "~~ "; + break; + + case 'add': + $content .= " " . implode(" ", $edit->final) . " "; + break; + + case 'delete': + $content .= " ~~" . implode(" ", $edit->orig) . "~~ "; + break; + } + } + // echo "

" . htmlentities($content) . "

"; + return $content; + } + static function getHTMLChunks($content) { + $content = str_replace(array(" ","<", ">"),array(" "," <", "> "),$content); + $candidateChunks = split("[\t\r\n ]+", $content); + while(list($i,$item) = each($candidateChunks)) { + if($item[0] == "<") { + $newChunk = $item; + while($item[strlen($item)-1] != ">") { + list($i,$item) = each($candidateChunks); + $newChunk .= ' ' . $item; + } + $chunks[] = $newChunk; + } else { + $chunks[] = $item; + } + } + return $chunks; + } + +} + + + + +/** + * FIXME: bad name. + */ +class MappedDiff +extends Diff +{ + /** + * Constructor. + * + * Computes diff between sequences of strings. + * + * This can be used to compute things like + * case-insensitve diffs, or diffs which ignore + * changes in white-space. + * + * @param $from_lines array An array of strings. + * (Typically these are lines from a file.) + * + * @param $to_lines array An array of strings. + * + * @param $mapped_from_lines array This array should + * have the same size number of elements as $from_lines. + * The elements in $mapped_from_lines and + * $mapped_to_lines are what is actually compared + * when computing the diff. + * + * @param $mapped_to_lines array This array should + * have the same number of elements as $to_lines. + */ + function MappedDiff($from_lines, $to_lines, + $mapped_from_lines, $mapped_to_lines) { + + assert(sizeof($from_lines) == sizeof($mapped_from_lines)); + assert(sizeof($to_lines) == sizeof($mapped_to_lines)); + + $this->Diff($mapped_from_lines, $mapped_to_lines); + + $xi = $yi = 0; + // Optimizing loop invariants: + // http://phplens.com/lens/php-book/optimizing-debugging-php.php + for ($i = 0, $max = sizeof($this->edits); $i < $max; $i++) { + $orig = &$this->edits[$i]->orig; + if (is_array($orig)) { + $orig = array_slice($from_lines, $xi, sizeof($orig)); + $xi += sizeof($orig); + } + + $final = &$this->edits[$i]->final; + if (is_array($final)) { + $final = array_slice($to_lines, $yi, sizeof($final)); + $yi += sizeof($final); + } + } + } +} + + +?> \ No newline at end of file diff --git a/code/FileList.php b/code/FileList.php new file mode 100755 index 00000000..dbfc1c1d --- /dev/null +++ b/code/FileList.php @@ -0,0 +1,17 @@ +folder = $folder; + parent::__construct($name, "File", array("Title" => "Title", "LinkedURL" => "URL"), "", "Title"); + $this->Markable = true; + } + + function sourceItems() { + return DataObject::get("File", "ParentID = '" . $this->folder->ID . "' AND ClassName <> 'Folder'", "Title"); + } +} + +?> \ No newline at end of file diff --git a/code/GenericDataAdmin.php b/code/GenericDataAdmin.php new file mode 100755 index 00000000..08cc8035 --- /dev/null +++ b/code/GenericDataAdmin.php @@ -0,0 +1,650 @@ + 'AccountName' + * ) + * + * Format "list": + * see {@DataObject->buildNestedUL} + */ + static $result_columns; + + /** + * @var string + * Either "table" or "list". List-format also supports second level results. + */ + static $result_format = "table"; + + static $csv_columns; + + private $results; + + function __construct() { + $this->result_actions = new FieldSet( + new FormAction("export","Export as CSV") + ); + + parent::__construct(); + } + + /** + * Sets Requirements and checks for Permissions. + * Subclass this function to add custom Requirements. + */ + function init() { + parent::init(); + + Requirements::javascript(MCE_ROOT . "tiny_mce_src.js"); + Requirements::javascript("jsparty/tiny_mce_improvements.js"); + + Requirements::javascript("jsparty/hover.js"); + Requirements::javascript("jsparty/scriptaculous/controls.js"); + + Requirements::javascript("cms/javascript/SecurityAdmin.js"); + Requirements::javascript("cms/javascript/CMSMain_left.js"); + + Requirements::javascript("cms/javascript/GenericDataAdmin_left.js"); + Requirements::javascript("cms/javascript/GenericDataAdmin_right.js"); + Requirements::javascript("cms/javascript/SideTabs.js"); + + // We don't want this showing up in every ajax-response, it should always be present in a CMS-environment + if(!Director::is_ajax()) { + Requirements::javascriptTemplate("cms/javascript/tinymce.template.js", array( + "ContentCSS" => project() . "/css/editor.css", + "BaseURL" => Director::absoluteBaseURL(), + )); + } + + Requirements::css("cms/css/GenericDataAdmin.css"); + + //For wrightgroup workshop + Requirements::css("writework/css/WorkshopCMSLayout.css"); + } + + function Link() { + $args = func_get_args(); + return call_user_func_array( array( &$this, 'getLink' ), $args ); + } + + /** + * @return String + */ + function DataTypeSingular() { + return singleton($this->stat('data_type'))->singular_name(); + } + + /** + * @return String + */ + function DataTypePlural() { + return singleton($this->stat('data_type'))->plural_name(); + } + + /** + * @return Form + */ + function CreationForm() { + $plural_name = singleton($this->stat('data_type'))->plural_name(); + $singular_name = singleton($this->stat('data_type'))->singular_name(); + return new Form($this, 'CreationForm', new FieldSet(), new FieldSet(new FormAction("createRecord", "Create {$singular_name}"))); + } + + /** + * @return Form + */ + function EditForm() { + $id = isset($_REQUEST['ID']) ? $_REQUEST['ID'] : Session::get('currentPage'); + if($id && DataObject::get_by_id($this->stat('data_type'), $id)) { + return $this->getEditForm($id); + } + } + + // legacy + function ExportForm() { + return $this->EditForm(); + } + + /** + * @return Form + */ + function SearchForm() { + + $fields = $this->getSearchFields(); + $actions = new FieldSet($action = new FormAction("getResults", "Go")); + + $searchForm = new Form($this, "SearchForm", $fields, $actions); + $searchForm->loadDataFrom($_REQUEST); + return $searchForm; + } + + /** + * Determines fields and actions for the given {$data_type}, and populates + * these fields with values from {$data_type} and any connected {$data_type_extra}. + * Adds default actions ("save" and "delete") if no custom actions are found. + * Returns an empty form if no fields or actions are found (on first load). + * + * @param $id Number + * @return Form + */ + function getEditForm($id) { + if($_GET['debug_profile']) Profiler::mark('getEditForm'); + + $genericData = DataObject::get_by_id($this->stat('data_type'), $id); + + $fields = (method_exists($genericData, getCMSFields)) ? $genericData->getCMSFields() : new FieldSet(); + + if(!$fields->dataFieldByName('ID')) { + + $fields->push($idField = new HiddenField("ID","ID",$id)); + $idField->setValue($id); + } + + if(method_exists($genericData, getGenericStatus)){ + $genericDataStatus = $genericData->getGenericStatus(); + if($genericDataStatus){ + $fields->push($dataStatusField = new ReadonlyField("GenericDataStatus", "", $genericDataStatus)); + $dataStatusField -> dontEscape = true; + } + } + + + $actions = (method_exists($genericData, getCMSActions)) ? $genericData->getCMSActions() : new FieldSet(); + if(!$actions->fieldByName('action_save')) { + $actions->push(new FormAction('save', 'Save','ajaxAction-save')); + } + if(!$actions->fieldByName('action_delete')) { + $actions->push(new FormAction('delete', 'Delete','ajaxAction-delete')); + } + $form = new Form($this, "EditForm", $fields, $actions); + + if($this->stat('data_type_extra')) { + foreach ($this->stat('data_type_extra') as $oneRelated) { + $oneExtra = $genericData-> $oneRelated(); + if($oneExtra) { + $allFields = $oneExtra->getAllFields(); + foreach ($allFields as $k => $v) { + $fieldname = $oneRelated . "[" . $k . "]"; + $allFields[$fieldname] = $v; + unset ($allFields[$k]); + } + + $form->loadDataFrom($allFields); + } + } + } + + $form->loadDataFrom($genericData); + $form->disableDefaultAction(); + + if($_GET['debug_profile']) Profiler::unmark('getEditForm'); + return $form; + } + + /** + * Display the results of the search. + * @return String + */ + function Results() { + $ret = ""; + + $singular_name = singleton($this->stat('data_type'))->singular_name(); + $plural_name = singleton($this->stat('data_type'))->plural_name(); + $this->filter = array( + "ClassName" => $this->stat('data_type') + ); + + $results = $this->performSearch(); + if($results) { + $name = ($results->Count() > 1) ? $plural_name : $singular_name; + $ret .= "

{$results->Count()} {$name} found:

"; + + switch($this->stat('result_format')) { + case 'table': + $ret .= $this->getResultTable($results); + break; + case 'list': + $ret .= $this->getResultList($results); + break; + } + $ret .= $this->getResultActionsForm($results); + } else { + if($this->hasMethod('isEmptySearch') && $this->isEmptySearch()) { + $ret .="

Please choose some search criteria and press 'Go'.

"; + } else { + $ret .="

Sorry, no {$plural_name} found by this search.

"; + } + } + return $ret; + } + + function getResults() { + if(Director::is_ajax()) { + echo $this->Results(); + } else { + return $this->Results(); + } + } + + function getResultList($results, $link = true) { + $listBody = $results->buildNestedUL($this->stat('result_columns')); + + return << + $listBody +

#	When	Author	Publisher
$Version	$LastEdited.Nice	$Author.FirstName $Author.Surname.Initial	+ <% if Published %> + <% if Publisher %> + $Publisher.FirstName $Publisher.Surname.Initial + <% else %> + Unknown + <% end_if %> + <% else %> + Not published + <% end_if %> +

	$Title
$MarkingCheckbox	$Value	+ +

First Name	Surname	Email Address	Password
$FirstName	$Surname	$Email
$FirstName	$Surname	$Email	$Password

	$Title
<% end_if %> + $AddRecordForm.CellFields +	$AddRecordForm.CellActions
	+ Add new $Title +
$MarkingCheckbox	$Value	+ +	+ +	+ +
	No $NamePlural found

User name	Email address	Reason:	Last bounce at
$Member.FirstName $Member.Surname	$Member.Email	$Record.BounceMessage	$Record.Created.Long

Subject	Content
$Subject	$Content

+ $Field +
$Value

+ <% if Comments %> +

+ <% include PageCommentInterface_singlecomment %> +

+ + <% if Comments.MoreThanOnePage %> +

+ <% if Comments.PrevLink %> + « previous + <% end_if %> + + <% if Comments.Pages %> + <% control Comments.Pages %> + <% if CurrentBool %> + $PageNum + <% else %> + $PageNum + <% end_if %> + <% end_control %> + <% end_if %> + + <% if Comments.NextLink %> + next » + <% end_if %> +

+ <% end_if %> + <% else %> +

No one has commented on this page yet.

+ <% end_if %> +

{$results->Count()} {$name} found:

Please choose some search criteria and press 'Go'.

Sorry, no {$plural_name} found by this search.

Static exporter

No images found in ". $folder->Title. "

$ApplicationName

Site Content

Tasklist

Waiting on

History

Comments

Reports

$ApplicationName

Edit Content

$ApplicationName

Add Listing

Search Listings

Search Results

$ApplicationName

Contents of $FileName

Post your comment

Comments

$Subject

User name	Unsubscribed on
$Member.FirstName $Member.Surname	$Record.Created.Long