 All Automation Service | Ferdi Verlaan September 28 2015 11:55:41 AMFollowing up a feature request from one of our customers in the Newletter Made Simple (NMS) module for CMS Made Simple.
Our customer wanted to export the status of the newletter users, but by default, only the email and username fields are exported.
We've found a similar request on http://dev.cmsmadesimple.org/feature_request/view/2990.
Since we don't have the time to create another sponsorship for CMS MS and wait until calguy1000 has time to change the code, since he is very busy with CMS MS 2.0. Please look at the following:
Change the following file:
modules/NMS/action.export_user.php
around line 56 add the green fields for the headers:
$cols = array('email','username','disabled','confirmed');
around line 131 add the green fields for the export:
// export everything
while( !$u_dbr->EOF ) {
$row = $u_dbr->fields;
$uid = $row['userid'];
$fields = array();
$fields[] = $row['email'];
$fields[] = $row['username'];
$fields[] = $row['disabled'];
$fields[] = $row['confirmed']; 
Ferdi Verlaan October 27 2014 12:09:26 PMWe are working on a PHP / Domino hybrid mobile web application. We will post some more information about it in the near future. We need PHP since we are sending out POST commands via the HTML5 file API. A Notes Agent is not capable of understanding these requests (via the normal session.request_content for example), and therefor we need PHP. It would also be possible by xPages and JAVA I assume, but PHP easier for us.
The PHP script is called asynchronous and uploads resized images to c:\php\files\<UniqueID>. A webQuerySave agent processes the newly saved NotesDocument and fetches all documents from this subfolder and attachs them to the RichTextItem.
The cleanup of these files is done by a cleanup Agent, not in the WQS agent, to have some fallback in case of errors. We run this agent every weekend to remove all uploaded files.
Cleanup Agent code:
Option Public
Option Declare
Dim globalPath As string
Sub Initialize
globalPath = "C:\php\files\"
Call ScanDirs( globalPath )
End Sub
' ==========================================================
' @FUNCTION: ScanDirs
' @AUTHOR: f.verlaan@aashq.nl
' @DATE: 27-10-2014
'
' Loops through the given path and removes all files
' and subfolders.
' based upon: http://www-01.ibm.com/support/docview.wss?uid=swg21317698
' ==========================================================
Sub ScanDirs(path As String)
On Error GoTo catch
On Error 5 Resume next
Dim sess As New NotesSession
Dim DirList As Variant
Dim filename As String
Dim filepath As String
Dim sep As String
If path <> "" Then
If InStr(sess.Platform, "Windows") > 0 Then
sep = "\"
Else
sep = "/"
End If
ReDim DirList(0)
If InStr(path, sep) > 0 Then
filepath = StrLeftBack(path, sep)
End If
filename = Dir(path & "*", 16)
While filename <> ""
If filename <> "." And filename <> ".." Then
If (GetFileAttr(filepath & sep & filename)= 16) Then
DirList = ArrayAppend(DirList,filepath & sep & filename & sep)
Else
' remove file
Kill filepath & sep & filename
End If
End If
filename = Dir ' if filename is empty and filepath is not the starting folder, delete subfolder
If filename = "" Then
If filepath <> StrLeftBack(globalPath, sep) Then
RmDir filepath
End If
End If
Wend
DirList = FullTrim(DirList)
ForAll dirpath In DirList
ScanDirs(dirpath)
End ForAll
End If
Exit sub
catch:
Print "Error " & Err & " in " & GetThreadInfo(1) & " on line " & Erl & " - " & Error
Exit sub
End Sub
Make sure that the security setting for the agent is set to 3 to allow restricted operations.
Ferdi Verlaan August 27 2014 06:15:38 PMWe have a customer who sends out newsletters as an PDF attachment. NMS is capable of sending these attachments within the module itselve, but only from the root. In this case we would like to use the /uploads/pdf folder.
My workaround for the attachment dir bug;
Open /modules/CGExtensions/CGExtensions.module.php:
locate the function 'CreateFileDropdown' and change the code to:
/*
* A convenience function to create a file dropdown
*/
function CreateFileDropdown($id,$name,$selectedfile='',$dir = '',$extensions =
'',$allownone = '',$allowmultiple = false,$size = 3)
{
$config = cmsms()->GetConfig();
if( startswith( $dir, '.' ) ) $dir = '';
if( $dir == '' ) $dir = $config['image_uploads_path'];
if( !is_dir($dir) ) $dir = cms_join_path($config['uploads_path'],$dir);
if( $extensions == '' ) $extensions =
$this->GetPreference('fileextensions','');
$tmp = cge_dir::get_file_list($dir,$extensions);
$tmp2 = array();
if( !empty($allownone) ) $tmp2[$this->Lang('none')] = '';
$filelist = array_merge($tmp2,$tmp);
if( $allowmultiple ) {
if( !endswith($name,'[]') ) $name .= '[]';
return $this->CreateInputSelectList($id,$name,$filelist,array(),$size);
}
return $this->CreateInputDropdown($id,$name,$filelist,-1,$selectedfile);
}
In /modules/NMS/action.compose.message.php; locate the string 'case:
'attachment'' and replace complete section with:
case 'attachment':
// a file selector dropdown?
$content = '';
if( isset($blockvalues[$safe_name]) ) {
$content = $blockvalues[$safe_name];
}
if( isset($params[$obj->name]) ) {
$content = trim($params[$obj->name]);
}
//$cgextensions = $this->GetModuleInstance('CGExtensions');
//$obj->control =
$cgextensions->CreateFileDropdown($id,$obj->name,$content,'','',1);
$dir = '';
if( isset($keyval['dir']) ) {
$dir = $keyval['dir'];
$obj->dir = $dir;
}
$cgextensions = $this->GetModuleInstance('CGExtensions');
$obj->control =
$cgextensions->CreateFileDropdown($id,$obj->name,$content,$dir,'',1);
break;
Now the dir function works, only relative to the /uploads folder, but works
nevertheless. Make sure in the CGExtensions module that the extension is allowed
to be uploaded/used.
And to make it work with sending the newsletter don't forget the following in /modules/NMS/NMS.modules.php locate the code:
foreach( $this->attached_files as $onefile ) {
echo $onefile;
$fn = cms_join_path($config['uploads_path'],$onefile);
$mailer->AddAttachment($fn,$onefile);
}
I've just manually changed the path to the path i need, for example:
foreach( $this->attached_files as $onefile ) {
echo $onefile;
$fn = cms_join_path($config['uploads_path'].'/PDF',$onefile);
$mailer->AddAttachment($fn,$onefile);
}
Ferdi Verlaan August 8 2014 12:40:18 PMIf you are working with web/mobile frameworks like jQuery and jQuery Mobile, it would be great if you could just import the whole tree of files into the Domino Designer for your web application. Otherwise you will have to change the .css filepaths to images or fonts for example. There is a neat little trick in the Domino Designer for that:
In your Domino go to Window > Show Eclipse Views > Package Explorer
You can see a tree-like overview of your database, goto the folder 'WebContent' and then right-click on the WebContent folder and select 'Import'
In the dialog select 'File System' and press 'Next'
Select the folder which you want to import, select 'Create selected folders only' and 'Press Finish'
You will now have a nice folder structure available for your Domino webapplication.
 Ferdi Verlaan April 16 2014 12:02:24 PMBesides Domino work, we do a lot of other programming languages. One of them is creating websites with PHP, with CMS Made Simple. A very completed, yet easy to use, Content Management System. In this post we will explain how to display search results with the body of the page.
We use the embedded 'Search' module of CMS Made Simple.
'Extensions > Search -> Result template'
We change the code to:
<h3>Search results for "{$phrase}"</h3>
{if $itemcount > 0}
{foreach from=$results item=entry}
<p><b>{$entry->title} ({$entry->weight}%)</b>
<br/>{getSearchBody url=$entry->url length=50}
<br/><a href="{$entry->url}">{$entry->urltxt}</a>
{/foreach}
</ul>
<p>{$timetaken}: {$timetook}</p>
{else}
<p><strong>{$noresultsfound}</strong></p>
{/if}
the 'getSearchBody' is a UDT, a user defined tag. We create this at 'Extensions > User Defined Tags'.
Create a new one with the name 'getSearchBody' and put the following code in:
/** Get page ID from Page URL -Create Search Body
* @params string $params['url']
* @params string $params['length']
*/
$gCms = cmsms();
$contentops =& $gCms->GetContentOperations();
$db = $gCms->GetDb();
foreach ($contentops->GetAllContent() as $page) {
if ($page->GetURL() == $params['url']) {
$cid = $contentops->GetPageIDFromAlias( $page->Alias() );
$rid = $db->GetOne('select content from '.cms_db_prefix().'content_props where content_id='.$cid.' and prop_name = "page"');
if ($rid == "") {
$string = $db->GetOne('select content from '.cms_db_prefix().'content_props where content_id='.$cid.' and prop_name = "content_en"');
} else {
$string = $db->GetOne('select content from '.cms_db_prefix().'content_props where content_id='.$rid.' and prop_name = "content_en"');
}
if($string == "<p><br /><!-- Add code here that should appear in the content block of all new pages --></p>
<p> </p>") {
$string = $db->GetOne('select content from '.cms_db_prefix().'content_props where content_id='.$cid.' and prop_name = "content_en"');
}
$string = strip_tags($string);
$words = explode(' ', $string);
if ($length ="") {
$length = 45;
}
if (count($words) > $length) {
return implode(' ', array_slice($words, 0, $length))."...";
} else {
return $string;
};
}
}
The end result is something similar like:
| |