Please whitelist cPanel in your adblocker so that you’re able to see our version release promotions, thanks!

The Community Forums

Interact with an entire community of cPanel & WHM users!

/usr/local/cpanel/base/webmaillogin.cgi

Discussion in 'E-mail Discussion' started by L4S, Apr 8, 2003.

  1. L4S

    L4S Well-Known Member

    Joined:
    Feb 23, 2003
    Messages:
    47
    Likes Received:
    0
    Trophy Points:
    156
    Location:
    Australia
    Could someone post the above file (original) as mine has become corrupted.

    Thanks in advance.
    :)
     
  2. casey

    casey Well-Known Member

    Joined:
    Jan 17, 2003
    Messages:
    2,303
    Likes Received:
    0
    Trophy Points:
    191
    #!/usr/bin/perl

    open(CF,"/var/cpanel/cpanel.config");
    while(<CF>) {
    next if (/^#/);
    s/\n//g;
    ($var,$value) = split(/=/, $_);
    $$var = $value;
    }
    close(CF);


    $urlbase = $ARGV[0];
    if ($urlbase =~ /\@/) {
    $urlbase =~ s/\@/+/g;
    $urlbase = "/" . $urlbase;
    } else {
    $urlbase='';
    }


    print <<EOM;

    <html>
    <style>
    a:link { font-family: arial, verdana; color: #000000; text-decoration: none; }
    a:visited { font-family: arial, verdana; color: #000000; text-decoration: none; }
    a:active { font-family: arial, verdana; color: #000000; text-decoration: none; }
    a:hover { font-family: arial, verdana; color: #000000; text-decoration: underline; }
    </style>

    <body bgcolor=#FFFFFF>
    <center>
    <table><tr>
    EOM
    if (!$skipneomail) {
    print <<EOM;
    <td>
    <center>
    <a href="$urlbase/neomail/neomail.pl">
    <img border=0 src="$urlbase/neomail/neomail.gif"><br>
    Neomail</a>
    </td>
    EOM
    }

    if (!$skiphorde) {
    print <<EOM;
    <td>
    <center>
    <a href="/horde/index.php">
    <img border=0 src="$urlbase/neomail/horde-color.gif"><br>
    Horde<br> (requires login with full email address)</a>
    </td>
    EOM
    }

    print <<EOM;
    </tr></table>
    <br><br>
    <br>
    You are logged in as: $ENV{'REMOTE_USER'}<br><br>
    EOM
    if ($ENV{'REMOTE_USER'} =~ /\@/) {
    print <<EOM;
    <a href="$urlbase/webmailpasswd.cgi">Change Password</a>
    EOM
    }
    print "<br><br>\n";
    if ($ENV{'SERVER_PORT'} =~ /2096/) {
    print "<br>SSL <img src=\"$urlbase/lock.gif\"><br>\n";
    } else {
    my ($newhost) = $ENV{'HTTP_HOST'};
    print "<br>Non-SSL <img src=\"$urlbase/unlock.gif\"><br><a href=\"https://${newhost}:2096${urlbase}/\">Click for Secure Site</a><br>\$
    }

    print <<EOM;
    </center>
    <br><br>
    <!---
    All Web Mail:
    <a href="$urlbase/neomail/neomail.pl">Neomail</a>
    <a href="$urlbase/uebimiau/index.php">Uebimiau</a>
    <a href="$urlbase/openwebmail/openwebmail.pl">Open WebMail</a>
    ---->
    Notes: Uebimiau has been removed due to bugs and security problems.
    <br>


    </html>
    EOM
     
  3. L4S

    L4S Well-Known Member

    Joined:
    Feb 23, 2003
    Messages:
    47
    Likes Received:
    0
    Trophy Points:
    156
    Location:
    Australia
    Thanks....

    When i load this file i nothing happens, no viewing at all????

    It it possible that this file is specific to WHM?

    If so my current version is WHM 6.2.0
    Cpanel 6.2.0-S56
    RedHat 7.3

    with updated SQL.
     
  4. casey

    casey Well-Known Member

    Joined:
    Jan 17, 2003
    Messages:
    2,303
    Likes Received:
    0
    Trophy Points:
    191
    Those match my versions, except for cpanel itself. I'm using 6.2.0 R-47
     
Loading...

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice