# Blosxom Plugin: localbeat
# Author(s): Yasuo Yamashita
# Version: 1.0
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/
package localbeat;

# --- Configurable variables -----------

# --- Plug-in package variables --------

use vars qw($beat $beats_temp $seconds $sec $min $hour);

# --------------------------------------

use strict;

sub start {
	return 1;
}

sub date {
    my($pkg, $path, $date_ref, $mtime, $dw, $mo, $mo_num, $da, $ti, $yr) = @_;
    
    ($sec,$min,$hour) = localtime($mtime);
    if ($hour == 24) {
        $hour = 0;
    }
    $seconds = $hour * 60 * 60 + $min * 60 + $sec;
    $beats_temp = $seconds / 86.4;
    $beat = int($beats_temp);
    $beat = sprintf ("%03d",$beat);
    $beat = "#$beat";
    return 1;
}

1;