#-*-Perl-*-

#Tack on the names of the subroutines to the list of functions
$hof{"shoe"} = 0;

#Show http://macnelly.com/shoe_images
sub shoe {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Shoe-${date_fmt}.jpeg",@ltime),
	'base' => "http://macnelly.com/shoe_images",
    };
    if ($ltime[6]==0) {
	$rec->{'page'} = 
	    strftime("%m%y/shoe_sunday%m%d%y.jpeg",@ltime);
    } else {
	$rec->{'page'} = 
	    strftime("%m%y/shoe_daily%m%d%y.jpeg",@ltime) ;
    }
    return $rec;
}

1;
