dojo 1.6.1 dijit.form.Button example
Sep 8th
I’ve been upgrading an RIA from dojo 1.1.1 to dojo 1.6.1, and spent a lot of time trying to find the cause of this error message:
t.apply is not a function
After many hours, I found it was related to the way the data-dojo-props event handlers were coded.
In the example below, onClick is specified as a function which calls another function.
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<link rel="stylesheet" type="text/css" href="http://ajax.googleapis.com/ajax/libs/dojo/1.6/dijit/themes/claro/claro.css" />
<script src="http://ajax.googleapis.com/ajax/libs/dojo/1.6.1/dojo/dojo.xd.js" type="text/javascript"
data-dojo-config="isDebug:true, parseOnLoad: true"></script>
<script type="text/javascript">
function go(s)
{
alert('go('+s+')');
}
</script>
<script type="text/javascript">
dojo.require('dojo.parser');
dojo.require("dijit.form.Form");
dojo.require("dijit.form.Button");
</script>
</head>
<body class="claro">
<h1>dojo dijit Button test</h1>
<button data-dojo-type="dijit.form.Button"
data-dojo-props="label:'Button',onClick:function(){go('4')}"></button>
</body>
</html>
PHP <-> Perl Bridge using cURL
Jul 18th
Using cURL to submit requests from PHP into Perl allows graceful reuse of code with a system with a robust core of Perl code and a PHP web interface.
The Perl code accepts a module name, sub/function name, and a set of parameters.
It includes the module, then tests for the sub. Then assembles the parameters into a request and calls the Perl code. The code returned may be name value pairs, or PHP, for more complex responses.
This code has been edited for brevity, it is an example, not a ready to use solution.
#!/usr/bin/perl
use strict;
use CGI qw(-compile :cgi);
my $q=CGI->new;
print $q->header('text/plain');
my $m=$q->param('module');
my $s=$q->param('sub');
$m=~s/\W//g;
my $path="$ENV{'APPHOME'}/bin/".$m.".pm";
require $path;
my $ms=$m.'::'.$s;
if (Test($ms))
{
my $x='bridge_'.$m.'("'.$s.'",\%{$q->Vars})';
eval $x;
exit 0;
}
else
{
exit 101;
}
sub Test
{
my $sub_name=$_[0];
return ( defined &{ $sub_name } );
}
sub bridge_PERL_CODE
{
my $r=0;
my $sub=$_[0];
my (%parms)=%{$_[1]};
delete $parms{'module'};
delete $parms{'sub'};
SWITCH: for ($sub)
{
/^getSystemServices$/ && do
{
my %services;
my $status=PERL_CODE::getSystemServices(\%services);
# Sample code to generate PHP
my ($id,$k,$kk,$s,$t);
print '<?php',"\n";
$s='$services=array('."\n";
for my $k ( keys %services )
{
$id=$services{$k}{'id'};
delete $services{$k}{'id'};
$s.='\''.$id.'\'=>array('."\n";
for $kk ( keys %{$services{$k}} )
{
$t=$services{$k}{$kk};
$t =~ s/(['"])/\\$1/g;
$s.="\t".'\''.$kk.'\'=>\''.$t.'\',';
}
$s=substr $s,0,-1;
$s.='),'."\n";
}
$s=substr $s,0,-2;
$s.=');';
print $s,"\n";
print '?>';
$r=$status;
last SWITCH;
};
/^getServiceParms$/ && do
{
my $serviceId=$parms{'serviceId'};
my %parmValues;
my ($status,$msg)=PERL_CODE::getServiceParms($serviceId, \%paramValues);
# Sample code to generate name/value pairs
my ($k,$v);
while (($k, $v) = each(%parmValues))
{
print $k.'='.$v,"\n";
}
print 'status='.$status,"\n";
print 'msg='.$msg,"\n";
$r=$status;
last SWITCH;
};
#DEFAULT
{
# Error - Should never get here
$r=-1;
last SWITCH;
};
}
return $r;
}
<?php
function curl_request($sPost=null,$bHandleAsPHP=false)
{
$cURL=curl_init();
curl_setopt($cURL,CURLOPT_URL,"http://localhost/cgi-bin/bridge.pl");
curl_setopt($cURL,CURLOPT_POST, TRUE);
curl_setopt($cURL,CURLOPT_RETURNTRANSFER, TRUE);
curl_setopt($cURL,CURLOPT_POSTFIELDS,$sPost);
$cResponse=trim(curl_exec($cURL));
curl_close($cURL);
return handle_response($cResponse,$bHandleAsPHP);
}
function handle_response($sResponse=null,$bHandleAsPHP=false)
{
if (!$bHandleAsPHP)
{
$aResponseLines=$aResult=array();
$aResponseLines=explode("\n",$sResponse);
if (count($aResponseLines)>0)
foreach ($aResponseLines as $k => $v)
{
$e=strpos($v,'=');
if ($e!==false)
$aResult[substr($v,0,$e)]=substr($v,$e+1);
}
}
else
{
$sResponse=str_replace(array('<?php','?>'),'',$sResponse);
$sResponse.="\n".'$vars=get_defined_vars();';
eval($sResponse);
unset($vars['sResponse'],$vars['bHandleAsPHP']);
$aResult=$vars;
}
return $aResult;
}
/* Call across the bridge, expecting PHP in response */
function getSystemServices()
{
return curl_request('module=PERL_CODE&sub=getSystemServices',true);
}Google Maps API - Distance Calculator - PHP Example
Jul 13th
This code gets the distance, in miles, between two US Zip codes (04429 and 02135). You can substitute other origins and destinations.
<?php
function curl_request($sURL,$sQueryString=null)
{
$cURL=curl_init();
curl_setopt($cURL,CURLOPT_URL,$sURL.'?'.$sQueryString);
curl_setopt($cURL,CURLOPT_RETURNTRANSFER, TRUE);
$cResponse=trim(curl_exec($cURL));
curl_close($cURL);
return $cResponse;
}
$sResponse=curl_request('http://maps.googleapis.com/maps/api/distancematrix/json',
'origins=04429&destinations=02135&mode=driving&units=imperial&sensor=false');
$oJSON=json_decode($sResponse);
if ($oJSON->status=='OK')
$fDistanceInMiles=(float)preg_replace('/[^\d\.]/','',$oJSON->rows[0]->elements[0]->distance->text);
else
$fDistanceInMiles=0;
echo 'Distance in Miles: '.$fDistanceInMiles.PHP_EOL;Notes
- The preg_replace code discards any text, other than the numeric representation of the distance.
- This was run under PHP 5.2.17, the json_decode function was introduced in version 5.2.0.
- Be sure to include the sensor input, otherwise, you will get a “REQUEST DENIED”
- Also be sure to validate and sanitize any inputs as appropriate.
Refer to the link above for additional information.
PHP Text Highlighter
Jul 13th
This snippet accepts an array of words, and a descriptive name which can be used to reference the words, like so:
$this->scan(array('mysql','css','js','content management system',
'xhtml','xml','rss','html','lamp','ria',
'sugar','php','zend framework','oo','dojo',
'doctrine','javascript','smarty','ez publish'),'skills');
It scans a block of text, and returns matches enclosed in span tags, which can be highlighted using CSS.
private function scan($aWords,$sType)
{
// Thanks to: http://us.php.net/manual/en/function.array-walk.php#103056
array_walk($aWords, create_function('&$val', '$val = \'/(\W)(\'.$val.\')\W)/umi\';'));
$this->data[$sType.'_HTML']=preg_replace($aWords,'\1<span class="found">\2</span>\3',
$this->data['sContent'],1,$this->data[$sType.'_COUNT']);
}
// Used to access the private $data array
public function __get($sName)
{
if(isset($this->data[$sName]))
return $this->data[$sName];
else
return null;
}
To extract the HTML and a count of the matches:
$sOutput=<<<BLOCK
<div id="skills_check">
$oResponse->skills_HTML
<div id="skills_count">
Skills matched: $oResponse->skills_COUNT
</div>
BLOCK;
A match is considered a string with non-word characters immediately before and after. This makes mismatches less likely. For example, ‘oo’ would not match ‘Joomla’, but it would match ‘ oo.’, or ‘,oo and …’.
There can be several scans in a page, using the id of a parent div can allow them to be presented differently, for example:
span.found
{
font-weight:bolder;
}
#skills_check span.found
{
color:#22ff22;
}Zend Framework - No translation for the language 'en_US' available.
Jun 28th
Notice: No translation for the language ‘en_US’ available. in /var/www/html/ZendFramework-1.10.8-minimal/library/Zend/Translate/Adapter.php on line 441
I’ve been working on an application using Zend Framework as the foundation. One of the key elements is ensuring internationalization/i18n support, and the error above was being displayed.
In addition to translating page text, I wanted to add htmlentities
conversion, without calling it explicitly.
I created an adapter which extends the Gettext adapter.
<?php
Class CLOUD_Translate_Adapter_Gettext Extends Zend_Translate_Adapter_Gettext
{
public function translate($messageId, $locale = null)
{
return htmlentities(parent::translate($messageId,$locale),ENT_QUOTES,'UTF-8');
}
}To prevent the error from being displayed, I changed:
$translate = new Zend_Translate(array('adapter'=>'CLOUD_Translate_Adapter_Gettext',
'content'=>$language_path,
'scan' => Zend_Translate::LOCALE_DIRECTORY,
'locale'=>$locale->toString()));
$translate->setOptions(array('disableNotices'=>true));to:
$translate = new Zend_Translate(array('adapter'=>'CLOUD_Translate_Adapter_Gettext',
'content'=>$language_path,
'scan' => Zend_Translate::LOCALE_DIRECTORY,
'locale'=>$locale->toString(),
'disableNotices'=>true));
The difference is that disableNotices is included in the instantiation, so that as it initializes the translation object, detected errors are not reported.
Since the default language for the page is en-US, there is no need for translation.