# [db-date table format]
#
# This tag returns the last-modified time of a database table,
# 'products' by default. Accepts a POSIX strftime value for
# date format; uses '%A %d %b %Y' by default.
#
UserTag  db-date  Order table format
UserTag  db-date  PosNumber 2
UserTag  db-date  Routine <<EOF
sub {
    my ($format, $db) = @_;

    $format = '%A %d %b %Y' unless $format;
	$db = 'products' unless $db;

    my $mtime = (stat($Vend::Cfg->{Database}{'db_file'}))[9];
    return POSIX::strftime($format, localtime($mtime));

}
EOF

