#!/usr/bin/perl # ALL scripts are developed with the -wT option, which is removed # to increase speed and ease of installation # Copyright 1998-present Michael Mohlere # Copyright 1998-present ADJE, LLC # TERMS: # The advertisement html may NOT be changed, and no additional ad banners # may be placed on the pages. This is how we are compensated. The ad banners, # on a good month, will generate about $1 (one US dollar) in revenue, so it's # hardly worth the risk of a copyright infringement! If you wish to include # your own ad banners, you may purchase a site license. Please visit our home # page for details. Copyright and disclaimers may not be removed from pages. # DISCLAIMER: Use this software at your own risk. # WARNING: This computer program is protected by copyright law and international # treaties. Unauthorized reproduction or distribution of this program, or any # portion of it, may result in severe civil and criminal penalties, and will be # prosecuted to the maximum extent possible under the law. # Contact us ( support@adjeweb.com ) if you have problems installing # the software. We're here to help! # Michael Mohlere # President, ADJE, LLC ( http://www.adjeweb.com ) # This software includes many modules available from CPAN (Comprehensive # Perl Archive Network - see www.perl.com). These modules are free to use, # modify, and distribute under the GNU GPL. # Control error_log output OR print name of script to STDERR BEGIN { use CGI::Carp qw(carpout); open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n"; carpout(*LOG); } select(STDOUT); $|=1; require "/home/elct.or.tz/cgi-bin/WebMail/params.cgi"; my %P = &get_params; #print STDERR "home = $P{WEBMAILDIR}\n"; my %C = &get_colors($P{WEBMAILDIR}); # # NOTE: # # We no longer recommend that you move your WebMail login page # to a server page, as index.cgi now functions to detect the cookie # capability of the web browser used for the session, and passes # this information along to the remaining scripts... # my $bmarkup = &get_body_markup(\%C,'BG_OFFWHITE'); # determine path... $ENV{SCRIPT_FILENAME} =~ /(.*)\// && ($path = $1); # for the cobalt RAQ!! if (! -f "$path/language.cgi") { $ENV{PATH_TRANSLATED} =~ /(.*)\// && ($path = $1); } opendir(DFH,$path); while(defined($_=readdir(DFH))) { !/^language\.(.+)\.cgi/ && next; push(@langs,$1); } #@langlinks = sort {$a cmp $b} @langs; #foreach(@langlinks) { # $_="
  • $_
    \n"; #} $ENV{REQUEST_URI} =~ /(.*)\// && ($uri_path = $1); foreach(sort {$a cmp $b} @langs) { push(@langlinks,"
  • $_
    \n"); } #print STDERR "Language Links\n"; #foreach (@langlinks) { #print STDERR "$_\n"; #} print "content-type: text/html\n\n"; print< WebMail $bmarkup

    Welcome to ELCT Webmail

    If this is your first time to use WebMail, click here.

    Select WebMail Language

    HEREDOC # print language links $"=''; #print "

      @langlinks
    "; $half = int(@langlinks/2); # the high side of half way... #for ($i=0;$i<=$half;$i++) { # $ih = $i + $half; # #} print<
      HEREDOC for ($i=0;$i<=$half;$i++) { print $langlinks[$i]; } print<
        HEREDOC for ($i=$half+1;$i<@langlinks;$i++) { print $langlinks[$i]; } print<

        Or click here to change your password or mail settings.

        (Home)

    HEREDOC