use Perl

Just posted an ad on jobs.perl.org. Guess we'll be the first Russian company to use that site ;)

Some complains though:

• Why there is no preview?
• Why even employer cannot see his own ad until it is approved? It seems illogical especially since there is no preview.
• What does Travel field mean after all?

• PHP is so inconvinient to use with "separation of presentation from business logic" model. Still possible but what's the point if you can use something better (Perl + TT2 :) if you want to develop using this model.
• PHP wasn't designed to be modular. No namespaces, everything is builtin, weak mechanisms for code reuse.
• Ugly builtin APIs. Arguable point probably but my feeling from day one I learned PHP is that its standart APIs badly lack elegance.
• php.ini as a portability nightmare.

If you never played go do not click this link, you still can be saved from this drug :)

Just hacked this simple script to poll for my turns to move on http://www.dragongoserver.net/. To my taste the script is a bit ugly but it works.

#!/usr/bin/perl

use strict;
use warnings;

my $go = DragonGoServer->new;

$go->login($ENV{DRAGONGO_LOGIN}, $ENV{DRAGONGO_PASSWORD});

while(1) {
    $go->read_status;
    sleep 480;
}

package DragonGoServer;

use base qw(WWW::Mechanize);

sub redirect_ok { 1 }

sub login {
    my $self = shift;
    my ($login, $password) = @_;

    $self->get('http://www.dragongoserver.net/');
    $self->submit_form(form_name => 'loginform',
                       fields    => { userid => $login,
                                      passwd => $password });
}

sub read_status {
    my $self = shift;

    $self->get('http://www.dragongoserver.net/status.php');

    if($self->content =~ /Your turn to move in the following games/) {
        print "Your turn to move in the following games:\n";

        my $re = qr!game\.php\?gid= (\d+)
                    .*?
                    userinfo\.php\?uid=\d+ .*? <font.*?> (.*?) </font>
                   !x;

        my $content = $self->content;

        while($content =~ /\G[\s\S]*?$re/g) {
            print "Game #$1, player '$2'\n";
        }

        print "\n"
    }
}

From: Martin Schulze <joey@infodrom.org>
Subject: Some Debian Project machines have been compromised
To: Debian Announcements <debian-announce@lists.debian.org>
Date: Fri, 21 Nov 2003 11:46:19 +0100
Resent-From: debian-announce@lists.debian.org

-------------------------------------------- ----------------------------
The Debian Project                                http://www.debian.org/
Some Debian Project machines compromised                press@debian.org
November 21st, 2003
------------------------------------------------------------------------

Some Debian Project machines have been compromised

This is a very unfortunate incident to report about.  Some Debian
servers were found to have been compromised in the last 24 hours.

The archive is not affected by this compromise!

In particular the following machines have been affected:

  . master (Bug Tracking System)
  . murphy (mailing lists)
  . gluck (web, cvs)
  . klecker (security, non-us, web search, www-master)

Expect seeing it on slashdot soon. First Apache, then OpenSSH, then FSF, now Debian. Who is next?

Update: Story on slashdot.

There are two types of programming languages; the ones that people bitch about and the ones that no one uses.

-- Bjarne Stroustrup