#!/usr/bin/perl

package Ernad::Web;

use base 'CGI::Application';
use strict;
use warnings;

use FCGI;
#use URI::Escape;
use Data::Dumper;

use Ernad::Main;

## setup() can even be skipped for common cases. See CGI::Application doc
sub setup {
  my $self = shift;
  $self->start_mode('mode1');
  $self->run_modes('mode1' => 'show');
}

## shows profile
sub show { 
  my $self = shift;  
  ## Get CGI query object
  my $q = $self->query();
  ## print Dumper $main::f;
  ## the s parameter
  my $params = $q->Vars;
  my $p_string = Dumper $params;
  $p_string=~s|\n|<br/>\n|;  
  return $p_string;
  $self->header_add(-type => 'text/html',
                    -charset => 'utf-8');
  my $out = "1";
  eval {
    Ernad::Main::handle_query( $params );
  };
  my $error = $@;
  if( $error ) {
    return "Error: $error<br/>";
  }
  #print $out;
  return 1;
}

1;