use Mapps::Auth;

$auth = new Mapps::Auth->auth($uname, $passwd);

if ($auth == 1){
    my $s = Mapps::Session->new();
    my $id = Apache::Session::Generate::MD5::generate();
    $s->new_session($id);
    my $sid = $s->sid();

    # show session from Jeremy's test script
    printf("SID %s\n", $s->sid());
    printf("UID %s\n", $s->uid());

    $s->param('foo','123 456');
    $s->param(bar =>' baz');
    $s->update_session($s->sid());

    undef($s);

    my $x = Mapps::Session->new();
    $x->load_session($sid);

    my @keys = $x->param();

    foreach my $key (@keys) {
        printf("%s => %s\n", $key, $x->param($key));
    }
# else no auth
}else{
    print h2('No authentication');
}