CodeWarrior's Cruft

So I had to quickly whip up some graphs today at work based on values coming in from one of our database tables. Nothing better then Perl and GD (GD::Graph) for a quick and effective solution.

use strict;
use DBI;
use GD::Graph::bars;
use GD::Graph::Data;

my $db_host = 'XXXXXX';
my $db_name = 'XXXXXX';   
my $db_user = 'XXXXXX';
my $db_pass = 'XXXXXX';
my $query   = "select month, undelivered from XXXXX where XXXXX";

# create labels and values for x-axis

my ($labels, $values) = get_data_from_sql($db_host, $db_name, $db_user, $db_pass, $query);

# graph and save the output

graph($labels, $values, "Month", "Undelivered", "Undelivered Messages by Month", "undelivered.png");


sub get_data_from_sql($$$$$)
{
  my ($db_host, $db_name, $db_user, $db_pass, $query) = @_;

  my $dbh = DBI->connect("dbi:mysql:$db_name:$db_host", $db_user, $db_pass)
    or die "Couldn't connect to database: " . DBI->errstr;

  my $sth = $dbh->prepare($query)
    or die "Couldn't prepare statement: " . $dbh->errstr;

  $sth->execute();
  my @row= undef;

  my @labels = ();
  my @values = ();

  while (@row = $sth->fetchrow_array())
  {
    push @labels, $row[0];
    push @values, $row[1];
  }

  $dbh->disconnect;

  return (\@labels, \@values);
}

sub graph($$$$$$)
{
  my ($labels, $values, $x_label, $y_label, $title, $out_file) = @_;

  my $data = GD::Graph::Data->new([$labels, $values,])
    or die GD::Graph::Data->error;

  my $my_graph = GD::Graph::bars->new();

  $my_graph->set(
  x_label => $x_label,
  y_label => $y_label,
  title   => $title,
  bar_spacing => 8,
  shadow_depth => 4,
  shadowclr => 'dred',
  transparent => 0,
  )
  or warn $my_graph->error;

  $my_graph->plot($data) or die $my_graph->error;
  my $gd = $my_graph->plot($data) or die $my_graph->error;
  open(IMG, ">$out_file") or die $!;
  binmode IMG;
  print IMG $gd->png;
}

If you do not want your data coming from an SQL statement simply fill in $labels and $values with anything you want, like:

$labels = ['Monday', 'Tuesday', 'Wednesday'];
$data = [45, 66, 89];

Pretty straight forward and handy. the graph looks like this.

So here's a quick python script I hacked out for folks here at work to set up and install the EFL and E17 from subversion.

After a night of solid clubbing, Wendy and I went for some breakfast at L'Avenue. While we stood in line waiting to go in, we decided to pick up a couple of pieces of cake from Premier Moisson because we were told there would be a 15 minute wait. After we finally got in there, we took a quick glance at the menu and ended up ordering 3 servings of egg benedicts for a grand total of: 3 plates of fruit, 6 eggs served on bagels and buns and 3 bowls of potatoes. The entire thing was around $50 and about 1000 calories per person. I haven't eated anything since (its 8:34 PM now).

I'm working on a new theme for this site. To force myself to finish it, I'm going to apply it directly, the result being, messed colors, fonts, etc until its done. Wee! (=

I was setting up my signature file (~/.sig) in Thunderbird today, and I thought to myself, "hmm, let me create a fifo instead, and pipe some output from fortune into it". So I mkfifo'ed ~/.sig and wrote a little perl script to write out my signature into the fifo when Thunderbird asked for it. The script is pretty simple:

#!/usr/bin/perl -w

chdir;
$FIFO = '.sig';

while (1) 
{
    unless (-p $FIFO) 
    {
        unlink $FIFO;
        system('mknod', $FIFO, 'p') 
            && die "can't mknod $FIFO: $!";
    }

    # next line blocks until 
    # there's a reader
    open (FIFO, "> $FIFO") 
    || die "can't write $FIFO: $!";
    print FIFO <<EOF
--
HMB.
(hisham.mardambey\@gmail.com)
Codito Ergo Sum.

EOF
;
    print FIFO `fortune`, "\n";
    close FIFO;
    sleep 5;    # to avoid dup signals
}

The result of which will be:

--
HMB.
(hisham.mardambey@gmail.com)
Codito Ergo Sum.

Guy in chicken costume:  The world is gonna end at midnight tonight. Y2K. 
Peter Griffin:  Y2K? What are you selling, chicken or sex jelly?

And to my amazement, as soon as I fired up Thunderbird and tried to compose a new email, the entire user interface blocked, and my CPU usage went through the roof. A quick check showed that Thunderbird was infinitely reading from the fifo. Son of a ... After some google'ing around, I found this to be a common bug in the 2.x.x series, so I upgraded to 3.x.x, and, they had introduced a "fix". What sort of fix might you ask? Well, I could compose a message alright, except the ~/.sig file wouldn't get read at all. What a fix! If the file is a fifo don't read it? Thats hilarious. At this point, I was fed up, Thunderbird was going away. I remembered another mail client I used to use, Claws. A quick call to emerge installed it, and 2 minutes later, I had it all set up and it was reading my ~/.sig file properly. Claws 1, Thunderbird 0.

Yes, I've called it Frisk! Version 0.0.1 is ready, no public release yet, but I'm started to feel fairly happy with the solid foundations Frisk is being built on top. As it stands, there are 3 libraries (aside the other libraries from the EFL) that are being built: fkinetic, fthumbnailer, and fmultiscale. The first being a generic kinetic movement area, the second being a distributed thumbnailer and caching engine, and the third being the code display widget that lays out images and decides how to move them around and manipulate them.

I'm coming up with TODO lists for each of the sub-projects, so far, I have one for fmultiscale. I'm going to add more info to a page dedicated to this project.

I added some of my configuration files here. You can take a look at them in the configs page accessible through the menu.

I've been working on a new concept for an image viewing / searching application. For lack of a better name, it's called Finder for now. The idea is the following. Say you want to find an image on your system; you know its mainly blue (of some sky), but you don't remember its name, size, location, or when you got it. How can you go about looking for it? You fire up Finder, let it loose on your system, and ask it to cluster images by color. The end result is a big map of all your images, zoomed out, such that every corner of the image represents a color, and the closer you move from one corner to another, you see the colors converging into a gradient. So, naturally, you'd go to the blue area, use your mouse wheel to start zooming in and out, and "throw" the images around (using a kinetic energy panning approach) until you start finding something that resembles the image you're looking for. You can then zoom in and out, and pan around, until you find your target image, at which point you can pick it up and use it. Right now, I've implemented the kinetic panning area, an LRU multi-layered cache system for the images, and the (*huge*) image grid widget that will hold those thousands and thousands of images. Some of the major challenges at this point are being able to handle the vast amount of data thrown at the application, scrolling it around, loading / unloading images, etc. The next major hurdle to jump over is going to be zooming in and out pretty fast (a problem that might be solved using mipmaps, but might require OpenGL, something I'm trying to avoid).
UPDATE: Video here.

Off to the track! Soon! I was at qualifying yesterday, and seeing those F1 cars zoom, turn, and accelerate in front of me was awesome! I cant wait for the big race today (=

I added a small widget to the right sidebar that shows what music I'm currently listening to by pulling stuff from Last.fm. So far looking good, lets see what happens when I leave the music turned off at home and I listen to other stuff at the office (=