RuddWire » code

aboutmydevice.com : a new site that helps explore a mobile browser’s Javascript properties

Colin — Wed, 07 Sep 2011 04:27:30 +0000

Here’s the latest website I’m releasing onto the world: aboutmydevice.com. I wrote it so that I could explore what Javascript properties, objects, and values exist on the browsers of various mobile devices. I walk into a store, go to a phone, load up aboutmydevice.com, and see what kind of properties this browser has. It’s been helpful in building things out across devices. Helpful to explore the different geolocation properties across iOS and Android, the different plugin handling, and other areas where browser makers can’t agree to just do it all the same.

I hope you find it useful.
-Colin

My cousin Graham, living on the bleeding edge of chicken wing consumption tracking technology

Colin — Mon, 28 Feb 2011 04:59:12 +0000

http://grahamc.com/blog/how-to-create-a-super-nerdy-superbowl-that-everyone-will-love/ a rather impressive demonstration of skills

Perl script make MySQL query, binds variables, outputs JSON

Colin — Sat, 17 Jul 2010 00:40:11 +0000

An example of a Perl script that is called by an ajax request. The script takes in just one parameter, opens a MySQL DB connection, binds the parameter to the query, and sends the query. The result is then formatted into JSON and returned to the browser.

This can be seen in action on this page: http://www.ruddwire.com/friendly-data/naics-explorer/, in the NAICS search box.

 
#!/usr/bin/perl
 
use strict;
use DBI();
use CGI qw(:standard);
 
 
my $dbh;
my $sth;
my $mySQL;
my $result = '({"failure":1})';
 
#QUERY PARAMS
my $q;
 
 
 
my $ref;
my $table = "";
my $tableRow;
 
my $query = new CGI;
 
 
 
 
 
if($query->param()){
 
 
    $q = $query->param('q');
    $q =~ s/\s+/%/;  # REPLACE SPACES WITH WILD CARD CHARACTER, CAUSES TO SEARCH FOR ALL WORDS, NOT JUST PHRASE
 
    ### Connect to the database.
	my $dbh = DBI->connect("DBI:mysql:database=***DBNAME***;host=localhost",
                         "***USERNAME***", "***PASSWORD***",
                         {'RaiseError' => 1});
 
    	### GET INDUSTRY NAME AND CODE
    	$mySQL = "SELECT code,industry FROM naics2007IndustryIndex WHERE industry LIKE ? ORDER BY industry";
 
 
     $sth = $dbh->prepare($mySQL);
     $sth->execute("%".${q}."%");
 
      while ($ref = $sth->fetchrow_hashref()) {
 
		  while ((my $key, my $value) = each(%$ref)){
		  	  $value =~ s/"/\\"/g;
			  $tableRow .= "\"${value}\",";
		  }
 
		  $tableRow =~ s/,$//;
		  $tableRow = "[${tableRow}],";
 
		  $table .= $tableRow;
		  $tableRow = "";
      }
 
		$table =~ s/,$//;
 
	  	$result = '{"failure":0,"result":['.$table.']}';         
 
}### END IF QUERY
 
 
 
print "Content-type: text/javascript; charset=iso-8859-1\n\n";
 
print $result;
 
exit(0);

Perl script makes MySQL query; outputs to JSON

Colin — Mon, 21 Jun 2010 01:37:34 +0000

An example of a Perl script that is called by an ajax request. The script takes in a few parameters, opens a MySQL DB connection, and then makes a rather tortuous query. The result is then formatted into JSON and returned to the browser.

This can be seen in action on this page: http://www.ruddwire.com/friendly-data/naics-explorer/.

#!/usr/bin/perl
 
use strict;
use DBI();
use CGI qw(:standard);
 
 
my $dbh;
my $sth;
my $mySQL;
my $result = '({"failure":1})';
 
#QUERY PARAMS
my $strLn;
my $classification;
my $getDef;
my $getIndus;
 
my $naicsMatch = "";
my $countMatch = "";
my @subClasses;
my $ref;
my $table = "";
my $tableRow;
 
 
sub scrubInputText {
 
   my($it) = @_;
   my $shellChars = q-[&;`'\\\"\|\*\?\~<>\^\(\)\[\]\{\}\$\\n\\r]-;    #`
 
    $it =~ s/$shellChars//g;
    $it =~ s/^\s+|\s+$//g;
 
   return $it;
 
}
 
 
my $query = new CGI;
 
if($query->param()){
 
    $strLn = &scrubInputText($query->param('strLn'));
    $classification = &scrubInputText($query->param('cls'));
    $getDef = &scrubInputText($query->param('getDef'));
    $getIndus = &scrubInputText($query->param('getIndus'));
 
    ###HANDLE GROUPED SECTOR CODES, IE: 31-33
    if($classification =~ /-/){
    	@subClasses = split("-",$classification);
		$naicsMatch = "AND (";
 
		for(my $subClass = $subClasses[0]; $subClass <= $subClasses[1]; $subClass++){
    		$naicsMatch .= "code LIKE '${subClass}%' OR ";
    		$countMatch .= "code LIKE '${subClass}%' OR ";
    	}
    	$countMatch =~ s/ OR $//;
    	$naicsMatch =~ s/ OR $//;
    	$naicsMatch .= ")";
    }else{
       $naicsMatch = "AND code LIKE '${classification}%'";
    }
 
	if($strLn != 2){$countMatch = "code LIKE Concat(naics2007.code,'%')";}
 
    ### Connect to the database.
	my $dbh = DBI->connect("DBI:mysql:database=***DBNAME***;host=localhost",
                         "***USERNAME***", "***PASSWORD***",
                         {'RaiseError' => 1});
 
    if($getDef){
    	$mySQL = "SELECT definition FROM naics2007definitions WHERE code='${classification}'";
    }elsif($getIndus){
    	### GET FINAL INDUSTRY NAME
    	$mySQL = "SELECT code,industry FROM naics2007IndustryIndex WHERE code LIKE '${classification}' ORDER BY industry";
    }else{
    	### GET INDUSTRY CLASSIFICATIONS
 
 
 		$mySQL = "SELECT code,title, ".
     	"(SELECT COUNT(code) FROM naics2007IndustryIndex WHERE ".
     	"CASE naics2007.code ".
     	"WHEN '31-33' THEN (code LIKE '31%' OR code LIKE '32%' OR code LIKE '33%') ".
     	"WHEN '44-45' THEN (code LIKE '44%' OR code LIKE '45%') ".
     	"WHEN '48-49' THEN (code LIKE '48%' OR code LIKE '49%') ".
     	"ELSE code LIKE Concat(naics2007.code,'%') END) AS c".
     	" FROM naics2007 WHERE (CHAR_LENGTH(code) = $strLn OR code LIKE '__-__')".$naicsMatch;
 
    }
 
 
     $sth = $dbh->prepare($mySQL);
     $sth->execute();
 
      while ($ref = $sth->fetchrow_hashref()) {
 
		  while ((my $key, my $value) = each(%$ref)){
		  	  $value =~ s/"/\\"/g;
			  $tableRow .= "\"${value}\",";
		  }
 
		  $tableRow =~ s/,$//;
		  $tableRow = "[${tableRow}],";
 
		  $table .= $tableRow;
		  $tableRow = "";
      }
 
		$table =~ s/,$//;
 
	  	$result = '{"failure":0,"result":['.$table.']}';
 
}### END IF QUERY
 
 
 
print "Content-type: application/json; charset=iso-8859-1\n\n";
 
print $result;
 
exit(0);

UNIX/AWK Tricks: How to copy a long list of files into a directory

Colin — Sun, 25 Apr 2010 22:39:40 +0000

Make your list of files, with complete paths, call it “imgList.txt”. Put every file on a new line.
Write a small awk script with the following 1 line:
{ printf(”cp %s images/\n”,$0);}
Save the script as “copyList.awk”
Do the following command:
awk -f copyList.awk imgList.txt | sh

Brief explanation of the awk script:

%s means you’re putting a string in that spot of your output,
$0 is the string you’re putting there
$0 is a match for each line in the file “imgList.txt”
images/ is the directory to copy your files to (in this example relative to where the command will be run from – can be absolute, of course)
\n stands for new line

brief explanation of the command:

awk executes the awk code found in “copyList.awk” on the lines found in “imgList.txt” and pipes the output to the shell ( | sh).

HTML Character Entities in Javascript

Colin — Sun, 25 Apr 2010 22:34:23 +0000

Sometimes you need to write html character entities in javascript, but html character entities can’t be used, because they don’t get interpreted by javascript. In javascript, you need to use the equivalent unicode character codes instead.

HTML character entity, wrong:
formElement.value = "Dirección";
You get: Dirección

Unicode character code, correct:
formElement.value = "Direcci\u00F3n";
You get: Dirección

Unicode character charts are located here: http://www.unicode.org/charts/. The chart you will most likely need is the Latin-1 chart. Character codes must be preceded by \u. That is, character code 00F3 is written in JavaScript as \u00F3.

Hope this helps.

Handy MySQL Commands

Colin — Sun, 25 Apr 2010 22:30:20 +0000

To reset an auto_increment field to 1:

ALTER TABLE tbl_name AUTO_INCREMENT = 1;

To load a local csv file into an empty existing table:

LOAD DATA LOCAL INFILE ‘/completePathToLocalData.csv’ INTO TABLE tableName FIELDS TERMINATED BY ‘,’ ENCLOSED BY ‘”‘ LINES TERMINATED BY ‘\n’ IGNORE 1 LINES;

This assumes you’ve already created your empty table with the same number of fields that your csv file has.

jQuery parsererror: clean up your JSON objects

Colin — Mon, 08 Mar 2010 03:49:23 +0000

Has your JSON using jQuery web app suddenly stopped working? Getting a parsererror on your JSON objects, where you got none before? This is what happened to me when my site upgraded to jQuery 1.4.

I use the Google API’s jQuery, and it automatically upgraded my whole site to jQuery 1.4. In jQuery 1.4, they decided to tighten up the JSON parsing engine, so that it is now unforgiving of any lax standards. You have to follow the JSON standard spelled out here — to the letter. In my case, that meant changing any single quoted values or names to double quotes, and getting rid of opening and closing parentheses. Like most fixes, it was an easy fix, once I figured it out. Hope this helps.

-Colin