Something like this might work - in that same file (ProtocolHandler.pm)
The line
Code:
--------------------
my $value = "YES+cb." . gmtime->ymd('') . "-00-p0.en+FX" . ($id ||
int(rand(900)) + 100);
--------------------
might work as
Code:
--------------------
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime();
if ( $year < 1900){
$year += 1900; # add offset to get this year as 4 digit ... some
routines return as offset from 1900
}
# Month starts from 0
my $value = "YES+cb." . $year . '-' . sprintf("%02d",$mon+1) . '-' . $day .
"-00-p0.en+FX" . ($id || int(rand(900)) + 100);
--------------------
Paul Webster
http://dabdig.blogspot.com
author of \"now playing\" plugins covering radio france (fip etc),
planetradio (bauer - kiss, absolute, scala, jazzfm etc), kcrw, supla
finland, abc australia, cbc/radio-canada and rte ireland
------------------------------------------------------------------------
Paul Webster's Profile: http://forums.slimdevices.com/member.php?userid=105
View this thread: http://forums.slimdevices.com/showthread.php?t=105840
_______________________________________________
plugins mailing list
plugins@lists.slimdevices.com
http://lists.slimdevices.com/mailman/listinfo/plugins
