gpeel at thenetnow
Jan 16, 2012, 6:15 AM
Post #1 of 8
(717 views)
Permalink
|
Hi all,
The perl code below has is a file from a Webmin module used to interface with Exim, show stats manage queue etc. The issue is that the date does not decode properly. The code is quite old, and I have been hacking at it for weeks trying to get it to work correctly. I have attempted to contact the original developer, but suspect his email is not been checked.
I am posting to this list thinking perhaps some of you may have some expierence with the base62 encoding, and hopefully perl!
If anyone would like to take a shot at it ....
Example
1RkkUB-000CAI-Ce is being decoded a s: Sat Apr 23 16:10:52 2005
which is not correct.
Here is the code: (Message.pm)
I suspect the issue is with the base62_to_decimal sub near the end.
#!/usr/bin/perl
package Exim::Message;
require 5;
use strict;
use integer;
sub uli # 'uli' stands for Unique Local Identifier
{
my $self = shift;
if (@_) {
my $uli = shift;
return undef if $uli !~ /[0-9a-zA-Z]{6}-[0-9a-zA-Z]{6}-[0-9a-zA-Z]{2}/;
$self->{uli} = $uli
}
return $$self{uli}
}
sub time
{
my $self = shift;
if (@_) {
my $time = shift;
my $units = 'smhdw';
$time =~ /^(\d+)([$units])/ or return undef;
$$self{rtime} = { value => $1, unit => $2 };
my ($value, $unit) = ($1, index($units, $2));
my @coef = (1, 60, 60, 24, 7);
while ($unit > 0) { $value *= $coef[$unit--] }
$$self{time} = $value;
}
return $$self{time}
}
sub rounded_time
{
my $self = shift;
return $$self{rtime}
}
sub size
{
my $self = shift;
if (@_) {
my $size = shift;
$size = defined $size?$size:0;
my $units = '_KMG';
my $bytes;
if ($size =~ /\./) {
$size =~ /^(\d+\.?\d+)([$units])?/ or return undef;
$$self{rsize} = { value => $1, unit => $2.'B' };
$bytes = $1*1024**index($units, $2);
}
else {
$size =~ /^(\d+)([$units]?)/ or return undef;
$$self{rsize} = { value => $1, unit => $2.'B' };
$bytes = $1 << 10*index($units, $2);
}
$$self{size} = $bytes;
}
return $$self{size}
}
sub rounded_size
{
my $self =shift;
return $$self{rsize}
}
sub sender
{
my $self = shift;
if (@_) {
my $sender = shift;
$sender =~ s/^\<(.*)\>$/$1/;
$$self{sender} = $sender;
}
return $$self{sender}
}
sub status
{
my $self = shift;
if (@_) { $$self{status} = shift()?1:0 }
return $$self{status}
}
sub undelivered
{
my $self = shift;
if (@_) { push @{$$self{undelivered}}, @_ }
return @{$$self{undelivered}};
}
sub delivered
{
my $self = shift;
if (@_) { push @{$$self{delivered}}, @_ }
return @{$$self{delivered}};
}
sub _init_
{
my $self = shift;
my @fields = split ' ', shift;
return undef if @fields < 4;
&time ($self, shift @fields) or return undef;
&size ($self, shift @fields) or return undef;
&uli ($self, shift @fields) or return undef;
&sender ($self, shift @fields);
&status ($self, shift @fields);
$$self{delivered} = [];
$$self{undelivered} = [];
local $_;
foreach (@_) {
chomp;
next if /^$/;
s/^\s+//;
s/^D\s+//?&delivered($self, $_):&undelivered($self, $_)
}
return $self
}
sub new
{
my $class = shift;
$class = ref($class) || $class;
my $self = bless {}, $class;
if (@_) {
$self->_init_ (split /\n/, shift ()) or return undef;
}
return $self;
}
sub gmt
{
my $self = shift;
return $$self{gmt} if defined $$self{gmt};
return $$self{gmt} = gmtime base62_to_decimal ($$self{uli})
}
sub is_frozen
{
my $self = shift;
return $$self{status};
}
# Converts base 62 ([0-9a-zA-Z]*) ASCII strings to decimal numbers.
# Example: &base62_to_decimal('15gY5D');
sub base62_to_decimal
{
my @tab62 =
(0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0, # 0-9
0,10,11,12,13,14,15,16,17,18,19,20, # A-K
21,22,23,24,25,26,27,28,29,30,31,32, # L-W
33,34,35, 0, 0, 0, 0, 0, # X-Z
0,36,37,38,39,40,41,42,43,44,45,46, # a-k
47,48,49,50,51,52,53,54,55,56,57,58, # l-w
59,60,61); # x-z
my($d) = 0;
my($O) = ord('0');
my(@c) = unpack('C*', shift);
while($#c >= 0) { $d = $d * 62 + $tab62[shift(@c) - $O] }
return $d;
}
-Thanks
-G
--
## List details at https://lists.exim.org/mailman/listinfo/exim-users
## Exim details at http://www.exim.org/
## Please use the Wiki with this list - http://wiki.exim.org/
|
Message.pm
