use CGI;
use Class::Date;
#Own Modules - to see if the user exists?
use SuperClan::Database::Users;

sub setup {
  my $self = shift;
  $self->start_mode('email');
  $self->run_modes([qw/email email_member/]);
}

sub email {
  my $self = shift;
  my $html_template = $self->param('html_template');
  my $cgi = CGI->new;
  my $session = $cgi->param('session');

  my $user_status;
  my $return;
  my $output;

  if ( $session eq "" )
  {
  $self->header_props( -url => "/" );
  $self->header_type('redirect');
  }
  else
  {
#session exists run std session app
    $return = SuperClan::Application::SuperClan::session($session);
    ($user_status, $session) = split /b/, $return;
  if (($user_status eq "logged_out")||($user_status eq "hacking_attemp
+t"))
  {
    $html_template->process('user',
                          {
                           wrapper  => $self->wrapper(),
                        session => $session,
                        user_status => $user_status,
                          },
                          \$output) || die $html_template->error;
  }
  else
  {
    $html_template->process('email',
                          {
                           wrapper  => $self->wrapper(),
                        session => $session,
                        user_status => $user_status,
                        process => "email",
                          },
                          \$output) || die $html_template->error;
  }
  return $output;

  }
}

sub email_member {
  my $self = shift;
  my $errs = shift;
  my $html_template = $self->param('html_template');
  my $cgi = CGI->new;
  my $session = $cgi->param('session');
  my $member = $cgi->param('member');

  my $user_status;
  my $return;
  my $output;
  my @members;

  if ( $session eq "" )
  {
  $self->header_props( -url => "/?session=".$session );
  $self->header_type('redirect');
  }
  else
  {
#session exists run std session app
    $return = SuperClan::Application::SuperClan::session($session);
    ($user_status, $session) = split /b/, $return;
  if (($user_status eq "logged_out")||($user_status eq "hacking_attemp
+t"))
  {
    $html_template->process('user',
                          {
                           wrapper  => $self->wrapper(),
                        session => $session,
                        user_status => $user_status,
                          },
                          \$output) || die $html_template->error;
  }
  else
  {
    @members = SuperClan::Database::Users->retrieve_all;
    $html_template->process('email',
                          {
                           wrapper  => $self->wrapper(),
                        session => $session,
                        user_status => $user_status,
                        process => "email_member",
                        members => \@members,
                        member => $member,
                        errors => $errs,
                          },
                          \$output) || die $html_template->error;
  }
  return $output;

  }
}/

1;
[download]