Sanity's Journal: Followup: /dev/government

I have found a volunteer to work on this idea to create a bugtracker for political issues and lobbying. Rob Park (aka Feztaa) and I have been working on the database design (see latest design here).

We have decided to go with Perl+Postgres since that is where Rob's expertise lies, rather than MySql+PHP.

Hopefully it won't be long before we have a potent new weapon to help us defend technology and progress against their enemies.

Progress

[Feztaa]

Work is progressing, I hope to complete a lot of functionality today. So far I have a working login mechanism, and a half-implemented "register new user" mechanism. So far, all it does is asks for your name, email, and website, then validates the input, rejecting invalid stuff. The next step is to make it actually email your password and then put it into the database. Not hard work, but I just haven't gotten that far yet.

After that I'm going to focus on being able to view information that's in the database

Drawing a huge blank here.

[Feztaa]

Ok, so I'm trying to extract the region information from the database, and store it into a heirarchical set of perl hashes (which would perfectly represent the data).

The problem is, I'm drawing a complete blank on how I actually go about doing this.

If you could point me towards some kind of tutorial or even write some pseudo code that would take the data as it's represented in the database and create an actual heirarchy out of it, that'd be great.

Thanks.

And thus continues the tradition.

[Feztaa]

Jeez ;)

I have this awful habit of asking questions on public forums, then searching for the answer, and then finding the answer before anybody replies to my post.

Anyway, this is what I came up with:

sub hash {
my $name = shift;
my $id = shift;
my $sth = $dbh->prepare("select * from regions where parent = ?");
my %results;
$sth->execute($id);
while (my ($db_name, $db_parent, $db_id) = $sth->fetchrow_array) {
$results{$db_name} = hash($db_name, $db_id);
}
return \%results;
}

Re:And thus continues the tradition.

[Sanity]

Nice :-)

Re:And thus continues the tradition.

[Feztaa]

Yeah, yesterday was a great day. The solution just popped into my head 30 minutes before I left to see the Canada Day Fireworks [rbpark.ath.cx], I wrote the code and tested it in 30 minutes and then left ;)