package Modules::Parse;
use Exporter;
@ISA = ('Exporter');
@EXPORT_OK = ('start_parser');

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI::Pretty qw(:standard);
#My Modules
use Modules::Htmlpage;
sub start_parser {
    my @resp = ();
    if (!param()){ 
	push @resp, &Modules::Htmlpage::make_header("Hello first page.");
	push @resp, &Modules::Htmlpage::make_first_page();
        push @resp, param();
    } elsif (param('get_in')){
	push @resp, &Modules::Htmlpage::make_header("I say hello to you.");
	push @resp, &Modules::Htmlpage::make_top_content("home");
        push @resp, param();
    } else{
	push @resp, Modules::Htmlpage::make_header("There are params but not get_in.");
	push @resp, Modules::Htmlpage::make_top_content("home");
	push @resp, param();
    }
    push @resp, end_html;   
    return @resp;
}      
1;