X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fdisplay_messages.php;h=aae91ed1ce05feb5ed93ff49363bb3c8bc1f489a;hb=43d678b68375c0516121d5a9780d40b6885c4089;hp=adb7acff72e85b8f9d928b4c098912d98abce1d9;hpb=9be8198db452ada405ad990214d7a3b26d129a33;p=squirrelmail.git diff --git a/functions/display_messages.php b/functions/display_messages.php index adb7acff..aae91ed1 100644 --- a/functions/display_messages.php +++ b/functions/display_messages.php @@ -12,6 +12,49 @@ * $Id$ */ +/** + * Find out where squirrelmail lives and try to be smart about it. + * The only problem would be when squirrelmail lives in directories + * called "src", "functions", or "plugins", but people who do that need + * to be beaten with a steel pipe anyway. + * + * @return the base uri of squirrelmail installation. + */ +function sqm_baseuri(){ + global $base_uri, $PHP_SELF; + /** + * If it is in the session, just return it. + */ + if (isset($base_uri)){ + return $base_uri; + } + $dirs = array('|src/.*|', '|plugins/.*|', '|functions/.*|'); + $repl = array('', '', ''); + $base_uri = preg_replace($dirs, $repl, $PHP_SELF); + return $base_uri; +} + +/** + * Find out the top REAL path of the squirrelmail installation. + * + * @return the real installation directory of squirrelmail. + */ + +function sqm_topdir(){ + $topdir = ''; + /** + * $levels is just to avoid a potential infinite loop in case + * things are REALLY broken. Shouldn't really ever happen. + */ + $levels = 0; + while (!(is_dir("$topdir/functions") && is_dir("$topdir/src")) + && $levels < 10){ + $topdir .= '../'; + $levels++; + } + return $topdir; +} + function error_username_password_incorrect() { global $frame_top, $color; /* XXX: Should really not start the HTML before this, or close off more @@ -26,61 +69,30 @@ function error_username_password_incorrect() { ''. '' . _("ERROR") . ''. '' . - ''. - '

' . _("Unknown user or password incorrect.") . - '
' . - _("Click here to try again") . - '.
'. + ''. + '
' . _("Unknown user or password incorrect.") . + '
' . _("Click here to try again") . + '.'. ''. ''. ''; } -function general_info($motd, $org_logo, $version, $org_name, $color) { - - echo '
'. - "
". - ''. - '' . - "'. - '
" . - '
'; - printf (_("Welcome to %s's WebMail system"), $org_name); - echo '
'. - '
'. - ''. - ''. - '' . - ''. - ''. - '
'; - if ( strlen($org_logo) > 3 ) { - echo ""; - } else { - echo "$org_name"; - } - echo '
'; - printf (_("Running SquirrelMail version %s (c) 1999-2001."), $version); - echo '

'. - '
' . - $motd. - '
'. - '
'. - '
'; -} - function error_message($message, $mailbox, $sort, $startMessage, $color) { $urlMailbox = urlencode($mailbox); echo '
'. - "". + "
". ''. - "'. @@ -88,13 +100,12 @@ function error_message($message, $mailbox, $sort, $startMessage, $color) { } function plain_error_message($message, $color) { - echo "
". - "
" . _("ERROR") . '
'. - '
'. - "

$message
\n". + "
". + "" . _("ERROR") . ''. + '
'. + "
$message
\n". '
'. - ""; + ""; printf (_("Click here to return to %s"), $mailbox); echo '.'. '
". + echo "
". ''. - "'. '
". - "
" . _("ERROR") . '
'. - '
'. - "

$message". - '
'. + "
". + "" . _("ERROR") . ''. + '
'. + "
$message". '
'; } @@ -102,12 +113,14 @@ function plain_error_message($message, $color) { function logout_error( $errString, $errTitle = '' ) { GLOBAL $frame_top, $org_logo, $org_name, $org_logo_width, $org_logo_height, - $hide_sm_attributions, $version; + $hide_sm_attributions, $version, $squirrelmail_language; - include_once( '../functions/page_header.php' ); + $base_uri = sqm_baseuri(); + $topdir = sqm_topdir(); + include_once( "$topdir/functions/page_header.php" ); if ( !isset( $org_logo ) ) { // Don't know yet why, but in some accesses $org_logo is not set. - include( '../config/config.php' ); + include( "$topdir/config/config.php" ); } /* Display width and height like good little people */ $width_and_height = ''; @@ -154,17 +167,18 @@ function logout_error( $errString, $errTitle = '' ) { '' . sprintf (_("SquirrelMail version %s"), $version) . "
\n". ' ' . _("By the SquirrelMail Development Team") . "
\n" ) . "
". - "". - "'. - ''. - "
". - "
" . _("ERROR") . - '
' . $errString . '
". - "
". - '' . - _("Go to the login page") . "
". + "". + "'. + ''. + "'. - '
". + "" . _("ERROR") . + '
' . $errString . '
". + "". + '' . + _("Go to the login page") . "". '
'; + '
'; } -?> \ No newline at end of file +?>