package Modules::Htmlpage;

use Exporter;
@ISA = ('Exporter');

@EXPORT_OK = ('make_header', 'make_first_page', 'make_top_content');
use strict;
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI::Pretty qw(:standard);
my $path = '../images/mimgarea';

sub make_first_page {
    my @resp = ();
    push @resp,

    start_form,
#method: POST
#    action: this script
#    enctype: application/x-www-form-urlencoded 
   table( {-border=>'0', -width => '950' , -align=>'center', -cellspacing=>"0", -cellpadding=>"0",},
	   Tr(
	      td( {-align=>'center',-width=>"50%"},
		  image_button( { -name => "get_in",
				  -title => "Enter hello",
				  -alt => 'ENTER',
				  -value=> "ENTER",
				  -src=>"$path/hello.gif"},
				),
		  ),
	      ),
	   ), endform;
    return @resp;
}

sub make_header{
    my @resp = ();
    my $title = shift;
    my $descript = "Hello page description.";
    push @resp, header,
    start_html( { -title  => $title,
		  -meta   => { 'keywords'  => 'Hello, blabla',
			       'description'  => "$descript" ,},
      } ,
		);
    return (@resp);
}

sub make_top_content {
    my $come_from = shift;
    my @resp = ();
    push @resp, table ({ -class=>'top', -width=> '950', -border=> "0", -cellpadding=> "0", -cellspacing=> "0", -align=> "center"},
		       Tr ( 
			    td ('Inside hello page.\n'),),
		    ); 	    
   return (@resp);   
}
1;