#!/usr/bin/perl
# wap_test.cgi - This will test the HTMLObject::WAP object.

use HTMLObject::WAP;
use HTMLObject::ReadCookie;
use strict;

my $doc = HTMLObject::WAP->new(type => "WML", version => "1.1", language => "en", charsetEncoding => "");

$doc->setCookie(name=>'testing', value => "WML 1.1");

my $cookies = HTMLObject::ReadCookie->new;
my %cresult = $cookies->getCookies;

$doc->createDeck(id => "hello");
$doc->createCard(id => "hello");
$doc->print("<p>\n");
$doc->print("Hello World!<br/>\n");

if (exists $cresult{testing})
{
  $doc->print("Cookie Testing exists!<br/>\n");
}
$doc->print("</p>\n");

$doc->display();