#-*-Perl-*-

#Add the name of the subroutines to the hash of functions
#with the number of days from today the comic is available
$hof{"uf"} = 0;

#UserFriendly http://www.userfriendly.org/cartoons/
sub uf {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("User_Friendly-${date_fmt}.gif",@ltime),
	'base' => "http://www.userfriendly.org",
	'page' => lc strftime("/cartoons/archives/%y%b/%Y%m%d.html",
			      @ltime),
	'exprs' => [lc strftime("(\/cartoons\/archives\/%y%b\/uf\\d+\.gif)",
				@ltime)]
	};
    return $rec;
}

1;
