#  $Id: test_ipc.pm,v 1.1 2006/06/13 17:41:05 jonas Exp $  -*-cperl-*-
package Para::Frame::Action::test_meta;

use strict;
use IO::Dir;


use Para::Frame::Page;

sub handler
{
    my( $req ) = @_;


    my $dirdata = scandir($req->site->home_dir);


    my $template = ("/member/db/person/view/index.tt");

    my $page = Para::Frame::Page->new($req);
    my( $data, $ext ) = $page->find_template( $template );

    foreach my $key (qw( title otitle ))
    {
	warn sprintf "%s: %s\n", $key, $data->$key||'<undef>';
    }

    return "Test done";
}

sub scandir
{
    my( $dir ) = @_;

    my $data = {};

    warn $dir->dirs;

#    my $dir = IO::Dir->new($dirname);
#
#    while( defined $_ = $dir->read )
#    {
#	next if /^\./;
#
#	/\/([^\/]+)$/ or die "Failed match for $_";
#	my $name = $1;
#
#	if( -d )
#	{
#	    $data->{$name} = scandir($_);
#	}
#	elsif( /\.tt$/ )
#	{
#	    $data->{$name}; # HERE
#	}
#    }
}




1;