# Blosxom Plugin: mobrowser
# Author(s): cu39
# Version: 2004-05-19
# Blosxom Home/Docs/Licensing: http://www.raelity.org/apps/blosxom/

package mobrowser;

# --- Configration Variables -----

my $mobile_flavour = 'mobile';

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

use FileHandle;
my $fh = new FileHandle;

my @mobile_ua = qw(UP\.Browser KDDI PDXGW DoCoMo J-PHONE L-mode);

sub start {
	return 1 if map { $ENV{'HTTP_USER_AGENT'} =~ /$_/ } @mobile_ua;
}
sub template {
	return sub {
		my ($path, $chunk, $flavour) = @_;

		$path =~ s!^/*!!; $path = "/$path";
		my $p = $path;
		do {
			if ($fh->open("< $blosxom::datadir/$chunk.$mobile_flavour")) {
				return join '', <$fh>;
			}
		} while ($p =~ s/(\/*[^\/]*)$// and $1);
		return join '', ($blosxom::template{$flavour}{$chunk}
		|| $blosxom::template{error}{$chunk}
		|| '');
	};
}

1;