For J. Shirley

February 23rd, 2008 Tagged Perl
Posted in Perl

sub str2str {
my($str_in,$timezone,$dst) = @_;
my @lt = localtime(time);
$timezone = $dst if $lt[8];
if ($timezone =~ /^([+-])(\d{2})(\d{2})$/){
   my $addval = “$1″.$2*3600+$3*60;
   my $gmt = str2time($str_in);
    $gmt += $addval;
    my $str_out = time2str($gmt);
    $str_out =~ s/GMT$/$timezone/;
    return $str_out;
} else {
    return undef;
}
}

postxmlrpc.cgi shown on amsterdam.pm.org

February 6th, 2008 Tagged Amsterdam, Mongers, Perl
Posted in Uncategorized

Just in case you where thinking I had noting to write about anymore. The post “this is the title” was done with postxmlrpc.cgi on an amsterdam.pm.org meeting today to show how the script works.

Don’t use Perl for Web Development?

January 27th, 2008 Tagged Perl
Posted in Links, Perl

This is a strange Post. Thanks Jan-Pieter for pointing us to it.

Update: See also this post by brian d foy.

If you want a job learn Ruby or Perl

January 26th, 2008 Tagged Perl, Ruby
Posted in Web Development

I saw this job trend. Depending on how you interpret it it seems you must learn Perl or Ruby to get a software development job.

BBC creates Perl on Rails

December 3rd, 2007 Tagged Perl, Rails
Posted in Links, News, Perl, Web Development

Rails without Ruby. Read mere here.

Perl 5.10.0-RC1 !

November 17th, 2007 Tagged Perl
Posted in Perl

If you can’t wait for CPAN to sync:

ftp://pause.perl.org/pub/PAUSE/authors/id/R/RG/RGARCIA/perl-5.10.0-RC1.tar.gz

XML-RPC Post test via Perl

October 28th, 2007 Tagged Perl, Test
Posted in Perl, Web Development

This is a test uploaded by my new Perl script via XML-RPC. It includes Tags and Categories.

Birthday calendar for rats

October 21st, 2007 Tagged Perl, Rats
Posted in Gadget, Perl, Web Development

Today you can start creating your own Rats birthday calendar here. I expect to get a lot of pastry from now on to celebrate Dylan, Pancho, Lefty, Chester and Casey’s birthday

Hack your HP Printer in Perl

October 17th, 2007 Tagged HP, Perl
Posted in Links, Perl

Yaakov hacked up a script that lets you change the PRINTER READY message. Link

Perl HTTP_AUTHORIZATION test

October 10th, 2007 Tagged Apache, Authentication, Perl, XSall
Posted in Perl, XSall

Basic HTTP_AUTHORIZATION

Theo wrote a HTTP_AUTHORIZATION test. If you have mod_rewrite enabled on your Apache 2 server put the following files in some folder. If you go to index.cgi from your browser it will show the default login box. Just enter some username / password and they will be shown on the page. Very cool Theo. Thanks.

This will help me create the first XSall tests without using mod_perl. If someone likes to create a Digest example please do? I like to test it and perhaps blog about it.

.htaccess

RewriteEngine on
RewriteRule \.cgi$ - [E=HTTP_AUTHORIZATION:%{HTTP:AUTHORIZATION},L]

index.cgi

#!/usr/bin/perl

use strict;
use warnings;
use CGI ‘:cgi’;
use MIME::Base64;

binmode STDOUT;

my ($user, $password);
my $auth = $ENV{HTTP_AUTHORIZATION};

if(defined$auth and $auth =~ /^Basic\s+/) {
$_ = decode_base64($’);
($user, $password) = split(‘:’); # What is the username or password contains a “:”?!
}

if(!defined($user) or $user eq ‘‘) {
print “Status: 401\r\n”;
print “WWW-Authenticate: Basic “;
print “realm=\”testers\@taletn.com\”\r\n“;
print “Content-Type: text/plain\r\n”;
print “\r\n”;
print “401\n”;
exit 0;
}

print “Content-Type: text/plain\r\n”;
print “\r\n”;
print “Authorization: $auth\n”;
print “User: $user\n”;
print “Password: $password\n”;
exit 0;

« Previous Entries

Subscribe

Recent Posts

Categories

Archives

Links

Meta