#!/usr/local/bin/perl

#require "/cgi-bin/webmail/admin/Webmail.pm";

use strict;
use lib '.';
use Path_Config;
use Webmail;
use Webmail::Authenticate;
use CGI::Carp qw/fatalsToBrowser/;

my $information = '';
my $summary = '';
my $key = '';
my $value = '';
my $new = 0;

&Webmail::initialize();
my ($in, $user, $dbh) = &Webmail::init();

if ($user->{userid} && !($user->{is_active} eq 'No')) {

$summary =( &Webmail::load_summary());
while ( ($key, $value) = each %{$summary}){
if ($key eq 'new'){
$new = $value;
}
}
}

if ($new > 0){
$information = "You have $new new emails";
}
print "Content-type: text/html\n\n";
print "$information";