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

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

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

use vars qw($beat $beats_temp $seconds $hour_it $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) = gmtime($mtime);
    $hour_it = $hour+1;
    if ($hour_it == 24) {
        $hour_it = 0;
    }
    $seconds = $hour_it * 60 * 60 + $min * 60 + $sec;
    $beats_temp = $seconds / 86.4;
    $beat = int($beats_temp);
    $beat = sprintf ("%03d",$beat);
    $beat = "\@$beat";
    return 1;
}

1;