]> scripts.mit.edu Git - autoinstalls/wordpress.git/blobdiff - wp-includes/functions.php
Wordpress 2.5.1
[autoinstalls/wordpress.git] / wp-includes / functions.php
index c07069c11224449f94fead1de2de8c76702be291..e011d34070c6d9791e14f7f01c7e98ef42a2d125 100644 (file)
@@ -1,11 +1,18 @@
 <?php
 
-function mysql2date($dateformatstring, $mysqlstring, $translate = true) {
+function mysql2date( $dateformatstring, $mysqlstring, $translate = true ) {
        global $wp_locale;
        $m = $mysqlstring;
-       if ( empty($m) ) {
+       if ( empty( $m ) )
                return false;
+
+       if( 'G' == $dateformatstring ) {
+               return gmmktime(
+                       (int) substr( $m, 11, 2 ), (int) substr( $m, 14, 2 ), (int) substr( $m, 17, 2 ),
+                       (int) substr( $m, 5, 2 ), (int) substr( $m, 8, 2 ), (int) substr( $m, 0, 4 )
+               );
        }
+
        $i = mktime(
                (int) substr( $m, 11, 2 ), (int) substr( $m, 14, 2 ), (int) substr( $m, 17, 2 ),
                (int) substr( $m, 5, 2 ), (int) substr( $m, 8, 2 ), (int) substr( $m, 0, 4 )
@@ -17,166 +24,177 @@ function mysql2date($dateformatstring, $mysqlstring, $translate = true) {
        if ( -1 == $i || false == $i )
                $i = 0;
 
-       if ( !empty($wp_locale->month) && !empty($wp_locale->weekday) && $translate ) {
-               $datemonth = $wp_locale->get_month(date('m', $i));
-               $datemonth_abbrev = $wp_locale->get_month_abbrev($datemonth);
-               $dateweekday = $wp_locale->get_weekday(date('w', $i));
-               $dateweekday_abbrev = $wp_locale->get_weekday_abbrev($dateweekday);
-               $datemeridiem = $wp_locale->get_meridiem(date('a', $i));
-               $datemeridiem_capital = $wp_locale->get_meridiem(date('A', $i));
-               $dateformatstring = ' '.$dateformatstring;
-               $dateformatstring = preg_replace("/([^\\\])D/", "\\1".backslashit($dateweekday_abbrev), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])F/", "\\1".backslashit($datemonth), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])l/", "\\1".backslashit($dateweekday), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])M/", "\\1".backslashit($datemonth_abbrev), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])a/", "\\1".backslashit($datemeridiem), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])A/", "\\1".backslashit($datemeridiem_capital), $dateformatstring);
-
-               $dateformatstring = substr($dateformatstring, 1, strlen($dateformatstring)-1);
-       }
-       $j = @date($dateformatstring, $i);
-       if ( !$j ) {
-       // for debug purposes
-       //      echo $i." ".$mysqlstring;
-       }
+       if ( !empty( $wp_locale->month ) && !empty( $wp_locale->weekday ) && $translate ) {
+               $datemonth = $wp_locale->get_month( date( 'm', $i ) );
+               $datemonth_abbrev = $wp_locale->get_month_abbrev( $datemonth );
+               $dateweekday = $wp_locale->get_weekday( date( 'w', $i ) );
+               $dateweekday_abbrev = $wp_locale->get_weekday_abbrev( $dateweekday );
+               $datemeridiem = $wp_locale->get_meridiem( date( 'a', $i ) );
+               $datemeridiem_capital = $wp_locale->get_meridiem( date( 'A', $i ) );
+               $dateformatstring = ' ' . $dateformatstring;
+               $dateformatstring = preg_replace( "/([^\\\])D/", "\\1" . backslashit( $dateweekday_abbrev ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])F/", "\\1" . backslashit( $datemonth ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])l/", "\\1" . backslashit( $dateweekday ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])M/", "\\1" . backslashit( $datemonth_abbrev ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])a/", "\\1" . backslashit( $datemeridiem ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])A/", "\\1" . backslashit( $datemeridiem_capital ), $dateformatstring );
+
+               $dateformatstring = substr( $dateformatstring, 1, strlen( $dateformatstring ) -1 );
+       }
+       $j = @date( $dateformatstring, $i );
+
+       /*
+       if ( !$j ) // for debug purposes
+               echo $i." ".$mysqlstring;
+       */
+
        return $j;
 }
 
-function current_time($type, $gmt = 0) {
-       switch ($type) {
+
+function current_time( $type, $gmt = 0 ) {
+       switch ( $type ) {
                case 'mysql':
-                       if ( $gmt ) $d = gmdate('Y-m-d H:i:s');
-                       else $d = gmdate('Y-m-d H:i:s', (time() + (get_option('gmt_offset') * 3600)));
-                       return $d;
+                       return ( $gmt ) ? gmdate( 'Y-m-d H:i:s' ) : gmdate( 'Y-m-d H:i:s', ( time() + ( get_option( 'gmt_offset' ) * 3600 ) ) );
                        break;
                case 'timestamp':
-                       if ( $gmt ) $d = time();
-                       else $d = time() + (get_option('gmt_offset') * 3600);
-                       return $d;
+                       return ( $gmt ) ? time() : time() + ( get_option( 'gmt_offset' ) * 3600 );
                        break;
        }
 }
 
-function date_i18n($dateformatstring, $unixtimestamp) {
+
+function date_i18n( $dateformatstring, $unixtimestamp ) {
        global $wp_locale;
        $i = $unixtimestamp;
-       if ( (!empty($wp_locale->month)) && (!empty($wp_locale->weekday)) ) {
-               $datemonth = $wp_locale->get_month(date('m', $i));
-               $datemonth_abbrev = $wp_locale->get_month_abbrev($datemonth);
-               $dateweekday = $wp_locale->get_weekday(date('w', $i));
-               $dateweekday_abbrev = $wp_locale->get_weekday_abbrev($dateweekday);
-               $datemeridiem = $wp_locale->get_meridiem(date('a', $i));
-               $datemeridiem_capital = $wp_locale->get_meridiem(date('A', $i));
+       if ( ( !empty( $wp_locale->month ) ) && ( !empty( $wp_locale->weekday ) ) ) {
+               $datemonth = $wp_locale->get_month( date( 'm', $i ) );
+               $datemonth_abbrev = $wp_locale->get_month_abbrev( $datemonth );
+               $dateweekday = $wp_locale->get_weekday( date( 'w', $i ) );
+               $dateweekday_abbrev = $wp_locale->get_weekday_abbrev( $dateweekday );
+               $datemeridiem = $wp_locale->get_meridiem( date( 'a', $i ) );
+               $datemeridiem_capital = $wp_locale->get_meridiem( date( 'A', $i ) );
                $dateformatstring = ' '.$dateformatstring;
-               $dateformatstring = preg_replace("/([^\\\])D/", "\\1".backslashit($dateweekday_abbrev), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])F/", "\\1".backslashit($datemonth), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])l/", "\\1".backslashit($dateweekday), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])M/", "\\1".backslashit($datemonth_abbrev), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])a/", "\\1".backslashit($datemeridiem), $dateformatstring);
-               $dateformatstring = preg_replace("/([^\\\])A/", "\\1".backslashit($datemeridiem_capital), $dateformatstring);
-
-               $dateformatstring = substr($dateformatstring, 1, strlen($dateformatstring)-1);
+               $dateformatstring = preg_replace( "/([^\\\])D/", "\\1" . backslashit( $dateweekday_abbrev ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])F/", "\\1" . backslashit( $datemonth ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])l/", "\\1" . backslashit( $dateweekday ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])M/", "\\1" . backslashit( $datemonth_abbrev ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])a/", "\\1" . backslashit( $datemeridiem ), $dateformatstring );
+               $dateformatstring = preg_replace( "/([^\\\])A/", "\\1" . backslashit( $datemeridiem_capital ), $dateformatstring );
+
+               $dateformatstring = substr( $dateformatstring, 1, strlen( $dateformatstring ) -1 );
        }
-       $j = @date($dateformatstring, $i);
+       $j = @date( $dateformatstring, $i );
        return $j;
 }
 
-function number_format_i18n($number, $decimals = null) {
+
+function number_format_i18n( $number, $decimals = null ) {
        global $wp_locale;
        // let the user override the precision only
-       $decimals = is_null($decimals)? $wp_locale->number_format['decimals'] : intval($decimals);
+       $decimals = ( is_null( $decimals ) ) ? $wp_locale->number_format['decimals'] : intval( $decimals );
 
-       return number_format($number, $decimals, $wp_locale->number_format['decimal_point'], $wp_locale->number_format['thousands_sep']);
+       return number_format( $number, $decimals, $wp_locale->number_format['decimal_point'], $wp_locale->number_format['thousands_sep'] );
 }
 
-function size_format($bytes, $decimals = null) {
+
+function size_format( $bytes, $decimals = null ) {
        // technically the correct unit names for powers of 1024 are KiB, MiB etc
        // see http://en.wikipedia.org/wiki/Byte
        $quant = array(
-               'TB' => pow(1024, 4),
-               'GB' => pow(1024, 3),
-               'MB' => pow(1024, 2),
-               'kB' => pow(1024, 1),
-               'B'  => pow(1024, 0),
+               // ========================= Origin ====
+               'TB' => 1099511627776,  // pow( 1024, 4)
+               'GB' => 1073741824,     // pow( 1024, 3)
+               'MB' => 1048576,        // pow( 1024, 2)
+               'kB' => 1024,           // pow( 1024, 1)
+               'B ' => 1,              // pow( 1024, 0)
        );
 
-       foreach ($quant as $unit => $mag)
-               if ( intval($bytes) >= $mag )
-                       return number_format_i18n($bytes / $mag, $decimals) . ' ' . $unit;
+       foreach ( $quant as $unit => $mag )
+               if ( doubleval($bytes) >= $mag )
+                       return number_format_i18n( $bytes / $mag, $decimals ) . ' ' . $unit;
+
+       return false;
 }
 
-function get_weekstartend($mysqlstring, $start_of_week) {
-       $my = substr($mysqlstring,0,4);
-       $mm = substr($mysqlstring,8,2);
-       $md = substr($mysqlstring,5,2);
-       $day = mktime(0,0,0, $md, $mm, $my);
-       $weekday = date('w',$day);
+
+function get_weekstartend( $mysqlstring, $start_of_week = '' ) {
+       $my = substr( $mysqlstring, 0, 4 );
+       $mm = substr( $mysqlstring, 8, 2 );
+       $md = substr( $mysqlstring, 5, 2 );
+       $day = mktime( 0, 0, 0, $md, $mm, $my );
+       $weekday = date( 'w', $day );
        $i = 86400;
+       if( !is_numeric($start_of_week) )
+               $start_of_week = get_option( 'start_of_week' );
 
-       if ( $weekday < get_option('start_of_week') )
-               $weekday = 7 - (get_option('start_of_week') - $weekday);
+       if ( $weekday < $start_of_week )
+               $weekday = 7 - $start_of_week - $weekday;
 
-       while ($weekday > get_option('start_of_week')) {
-               $weekday = date('w',$day);
-               if ( $weekday < get_option('start_of_week') )
-                       $weekday = 7 - (get_option('start_of_week') - $weekday);
+       while ( $weekday > $start_of_week ) {
+               $weekday = date( 'w', $day );
+               if ( $weekday < $start_of_week )
+                       $weekday = 7 - $start_of_week - $weekday;
 
-               $day = $day - 86400;
+               $day -= 86400;
                $i = 0;
        }
        $week['start'] = $day + 86400 - $i;
-       // $week['end'] = $day - $i + 691199;
        $week['end'] = $week['start'] + 604799;
        return $week;
 }
 
-function maybe_unserialize($original) {
-       if ( is_serialized($original) ) // don't attempt to unserialize data that wasn't serialized going in
-               if ( false !== $gm = @ unserialize($original) )
+
+function maybe_unserialize( $original ) {
+       if ( is_serialized( $original ) ) // don't attempt to unserialize data that wasn't serialized going in
+               if ( false !== $gm = @unserialize( $original ) )
                        return $gm;
        return $original;
 }
 
-function is_serialized($data) {
+
+function is_serialized( $data ) {
        // if it isn't a string, it isn't serialized
-       if ( !is_string($data) )
+       if ( !is_string( $data ) )
                return false;
-       $data = trim($data);
+       $data = trim( $data );
        if ( 'N;' == $data )
                return true;
-       if ( !preg_match('/^([adObis]):/', $data, $badions) )
+       if ( !preg_match( '/^([adObis]):/', $data, $badions ) )
                return false;
-       switch ( $badions[1] ) :
-       case 'a' :
-       case 'O' :
-       case 's' :
-               if ( preg_match("/^{$badions[1]}:[0-9]+:.*[;}]\$/s", $data) )
-                       return true;
-               break;
-       case 'b' :
-       case 'i' :
-       case 'd' :
-               if ( preg_match("/^{$badions[1]}:[0-9.E-]+;\$/", $data) )
-                       return true;
-               break;
-       endswitch;
+       switch ( $badions[1] ) {
+               case 'a' :
+               case 'O' :
+               case 's' :
+                       if ( preg_match( "/^{$badions[1]}:[0-9]+:.*[;}]\$/s", $data ) )
+                               return true;
+                       break;
+               case 'b' :
+               case 'i' :
+               case 'd' :
+                       if ( preg_match( "/^{$badions[1]}:[0-9.E-]+;\$/", $data ) )
+                               return true;
+                       break;
+       }
        return false;
 }
 
-function is_serialized_string($data) {
+
+function is_serialized_string( $data ) {
        // if it isn't a string, it isn't a serialized string
-       if ( !is_string($data) )
+       if ( !is_string( $data ) )
                return false;
-       $data = trim($data);
-       if ( preg_match('/^s:[0-9]+:.*;$/s',$data) ) // this should fetch all serialized strings
+       $data = trim( $data );
+       if ( preg_match( '/^s:[0-9]+:.*;$/s', $data ) ) // this should fetch all serialized strings
                return true;
        return false;
 }
 
+
 /* Options functions */
 
 // expects $setting to already be SQL-escaped
-function get_option($setting) {
+function get_option( $setting ) {
        global $wpdb;
 
        // Allow plugins to short-circuit options.
@@ -185,30 +203,31 @@ function get_option($setting) {
                return $pre;
 
        // prevent non-existent options from triggering multiple queries
-       $notoptions = wp_cache_get('notoptions', 'options');
-       if ( isset($notoptions[$setting]) )
+       $notoptions = wp_cache_get( 'notoptions', 'options' );
+       if ( isset( $notoptions[$setting] ) )
                return false;
 
        $alloptions = wp_load_alloptions();
 
-       if ( isset($alloptions[$setting]) ) {
+       if ( isset( $alloptions[$setting] ) ) {
                $value = $alloptions[$setting];
        } else {
-               $value = wp_cache_get($setting, 'options');
+               $value = wp_cache_get( $setting, 'options' );
 
                if ( false === $value ) {
-                       if ( defined('WP_INSTALLING') )
-                               $show = $wpdb->hide_errors();
-                       $row = $wpdb->get_row("SELECT option_value FROM $wpdb->options WHERE option_name = '$setting' LIMIT 1");
-                       if ( defined('WP_INSTALLING') )
-                               $wpdb->show_errors($show);
-
-                       if( is_object( $row) ) { // Has to be get_row instead of get_var because of funkiness with 0, false, null values
+                       if ( defined( 'WP_INSTALLING' ) )
+                               $supress = $wpdb->suppress_errors();
+                       // expected_slashed ($setting)
+                       $row = $wpdb->get_row( "SELECT option_value FROM $wpdb->options WHERE option_name = '$setting' LIMIT 1" );
+                       if ( defined( 'WP_INSTALLING' ) )
+                               $wpdb->suppress_errors($suppress);
+
+                       if ( is_object( $row) ) { // Has to be get_row instead of get_var because of funkiness with 0, false, null values
                                $value = $row->option_value;
-                               wp_cache_add($setting, $value, 'options');
+                               wp_cache_add( $setting, $value, 'options' );
                        } else { // option does not exist, so we must cache its non-existence
                                $notoptions[$setting] = true;
-                               wp_cache_set('notoptions', $notoptions, 'options');
+                               wp_cache_set( 'notoptions', $notoptions, 'options' );
                                return false;
                        }
                }
@@ -216,280 +235,268 @@ function get_option($setting) {
 
        // If home is not set use siteurl.
        if ( 'home' == $setting && '' == $value )
-               return get_option('siteurl');
+               return get_option( 'siteurl' );
 
-       if ( in_array($setting, array('siteurl', 'home', 'category_base', 'tag_base')) )
-               $value = untrailingslashit($value);
+       if ( in_array( $setting, array('siteurl', 'home', 'category_base', 'tag_base') ) )
+               $value = untrailingslashit( $value );
 
-       return apply_filters( 'option_' . $setting, maybe_unserialize($value) );
+       return apply_filters( 'option_' . $setting, maybe_unserialize( $value ) );
 }
 
-function wp_protect_special_option($option) {
-       $protected = array('alloptions', 'notoptions');
-       if ( in_array($option, $protected) )
-               die(sprintf(__('%s is a protected WP option and may not be modified'), wp_specialchars($option)));
+
+function wp_protect_special_option( $option ) {
+       $protected = array( 'alloptions', 'notoptions' );
+       if ( in_array( $option, $protected ) )
+               die( sprintf( __( '%s is a protected WP option and may not be modified' ), wp_specialchars( $option ) ) );
 }
 
-function form_option($option) {
-       echo attribute_escape(get_option($option));
+function form_option( $option ) {
+       echo attribute_escape (get_option( $option ) );
 }
 
 function get_alloptions() {
        global $wpdb, $wp_queries;
        $show = $wpdb->hide_errors();
-       if ( !$options = $wpdb->get_results("SELECT option_name, option_value FROM $wpdb->options WHERE autoload = 'yes'") ) {
-               $options = $wpdb->get_results("SELECT option_name, option_value FROM $wpdb->options");
-       }
+       if ( !$options = $wpdb->get_results( "SELECT option_name, option_value FROM $wpdb->options WHERE autoload = 'yes'" ) )
+               $options = $wpdb->get_results( "SELECT option_name, option_value FROM $wpdb->options" );
        $wpdb->show_errors($show);
 
-       foreach ($options as $option) {
+       foreach ( $options as $option ) {
                // "When trying to design a foolproof system,
                //  never underestimate the ingenuity of the fools :)" -- Dougal
-               if ( 'siteurl' == $option->option_name )
-                       $option->option_value = preg_replace('|/+$|', '', $option->option_value);
-               if ( 'home' == $option->option_name )
-                       $option->option_value = preg_replace('|/+$|', '', $option->option_value);
-               if ( 'category_base' == $option->option_name )
-                       $option->option_value = preg_replace('|/+$|', '', $option->option_value);
-               $value = maybe_unserialize($option->option_value);
-               $all_options->{$option->option_name} = apply_filters('pre_option_' . $option->option_name, $value);
+               if ( in_array( $option->option_name, array( 'siteurl', 'home', 'category_base' ) ) )
+                       $option->option_value = untrailingslashit( $option->option_value );
+               $value = maybe_unserialize( $option->option_value );
+               $all_options->{$option->option_name} = apply_filters( 'pre_option_' . $option->option_name, $value );
        }
-       return apply_filters('all_options', $all_options);
+       return apply_filters( 'all_options', $all_options );
 }
 
+
 function wp_load_alloptions() {
        global $wpdb;
 
-       $alloptions = wp_cache_get('alloptions', 'options');
+       $alloptions = wp_cache_get( 'alloptions', 'options' );
 
        if ( !$alloptions ) {
-               $show = $wpdb->hide_errors();
-               if ( !$alloptions_db = $wpdb->get_results("SELECT option_name, option_value FROM $wpdb->options WHERE autoload = 'yes'") )
-                       $alloptions_db = $wpdb->get_results("SELECT option_name, option_value FROM $wpdb->options");
-               $wpdb->show_errors($show);
+               $suppress = $wpdb->suppress_errors();
+               if ( !$alloptions_db = $wpdb->get_results( "SELECT option_name, option_value FROM $wpdb->options WHERE autoload = 'yes'" ) )
+                       $alloptions_db = $wpdb->get_results( "SELECT option_name, option_value FROM $wpdb->options" );
+               $wpdb->suppress_errors($suppress);
                $alloptions = array();
                foreach ( (array) $alloptions_db as $o )
                        $alloptions[$o->option_name] = $o->option_value;
-               wp_cache_add('alloptions', $alloptions, 'options');
+               wp_cache_add( 'alloptions', $alloptions, 'options' );
        }
        return $alloptions;
 }
 
+
 // expects $option_name to NOT be SQL-escaped
-function update_option($option_name, $newvalue) {
+function update_option( $option_name, $newvalue ) {
        global $wpdb;
 
-       wp_protect_special_option($option_name);
-
-       $safe_option_name = $wpdb->escape($option_name);
-       $newvalue = sanitize_option($option_name, $newvalue);
+       wp_protect_special_option( $option_name );
 
-       if ( is_string($newvalue) )
-               $newvalue = trim($newvalue);
+       $safe_option_name = $wpdb->escape( $option_name );
+       $newvalue = sanitize_option( $option_name, $newvalue );
 
        // If the new and old values are the same, no need to update.
-       $oldvalue = get_option($safe_option_name);
-       if ( $newvalue === $oldvalue ) {
+       $oldvalue = get_option( $safe_option_name );
+       if ( $newvalue === $oldvalue )
                return false;
-       }
 
        if ( false === $oldvalue ) {
-               add_option($option_name, $newvalue);
+               add_option( $option_name, $newvalue );
                return true;
        }
 
-       $notoptions = wp_cache_get('notoptions', 'options');
-       if ( is_array($notoptions) && isset($notoptions[$option_name]) ) {
-               unset($notoptions[$option_name]);
-               wp_cache_set('notoptions', $notoptions, 'options');
+       $notoptions = wp_cache_get( 'notoptions', 'options' );
+       if ( is_array( $notoptions ) && isset( $notoptions[$option_name] ) ) {
+               unset( $notoptions[$option_name] );
+               wp_cache_set( 'notoptions', $notoptions, 'options' );
        }
 
        $_newvalue = $newvalue;
-       $newvalue = maybe_serialize($newvalue);
+       $newvalue = maybe_serialize( $newvalue );
 
        $alloptions = wp_load_alloptions();
-       if ( isset($alloptions[$option_name]) ) {
+       if ( isset( $alloptions[$option_name] ) ) {
                $alloptions[$option_name] = $newvalue;
-               wp_cache_set('alloptions', $alloptions, 'options');
+               wp_cache_set( 'alloptions', $alloptions, 'options' );
        } else {
-               wp_cache_set($option_name, $newvalue, 'options');
+               wp_cache_set( $option_name, $newvalue, 'options' );
        }
 
-       $newvalue = $wpdb->escape($newvalue);
-       $option_name = $wpdb->escape($option_name);
-       $wpdb->query("UPDATE $wpdb->options SET option_value = '$newvalue' WHERE option_name = '$option_name'");
+       $wpdb->query( $wpdb->prepare( "UPDATE $wpdb->options SET option_value = %s WHERE option_name = %s", $newvalue, $option_name ) );
        if ( $wpdb->rows_affected == 1 ) {
-               do_action("update_option_{$option_name}", $oldvalue, $_newvalue);
+               do_action( "update_option_{$option_name}", $oldvalue, $_newvalue );
                return true;
        }
        return false;
 }
 
+
 // thx Alex Stapleton, http://alex.vort-x.net/blog/
 // expects $name to NOT be SQL-escaped
-function add_option($name, $value = '', $deprecated = '', $autoload = 'yes') {
+function add_option( $name, $value = '', $deprecated = '', $autoload = 'yes' ) {
        global $wpdb;
 
-       wp_protect_special_option($name);
-       $safe_name = $wpdb->escape($name);
+       wp_protect_special_option( $name );
+       $safe_name = $wpdb->escape( $name );
+       $value = sanitize_option( $name, $value );
 
        // Make sure the option doesn't already exist. We can check the 'notoptions' cache before we ask for a db query
-       $notoptions = wp_cache_get('notoptions', 'options');
-       if ( !is_array($notoptions) || !isset($notoptions[$name]) )
-               if ( false !== get_option($safe_name) )
+       $notoptions = wp_cache_get( 'notoptions', 'options' );
+       if ( !is_array( $notoptions ) || !isset( $notoptions[$name] ) )
+               if ( false !== get_option( $safe_name ) )
                        return;
 
-       $value = maybe_serialize($value);
+       $value = maybe_serialize( $value );
        $autoload = ( 'no' === $autoload ) ? 'no' : 'yes';
 
        if ( 'yes' == $autoload ) {
                $alloptions = wp_load_alloptions();
                $alloptions[$name] = $value;
-               wp_cache_set('alloptions', $alloptions, 'options');
+               wp_cache_set( 'alloptions', $alloptions, 'options' );
        } else {
-               wp_cache_set($name, $value, 'options');
+               wp_cache_set( $name, $value, 'options' );
        }
 
        // This option exists now
-       $notoptions = wp_cache_get('notoptions', 'options'); // yes, again... we need it to be fresh
-       if ( is_array($notoptions) && isset($notoptions[$name]) ) {
-               unset($notoptions[$name]);
-               wp_cache_set('notoptions', $notoptions, 'options');
+       $notoptions = wp_cache_get( 'notoptions', 'options' ); // yes, again... we need it to be fresh
+       if ( is_array( $notoptions ) && isset( $notoptions[$name] ) ) {
+               unset( $notoptions[$name] );
+               wp_cache_set( 'notoptions', $notoptions, 'options' );
        }
 
-       $name = $wpdb->escape($name);
-       $value = $wpdb->escape($value);
-       $wpdb->query("INSERT INTO $wpdb->options (option_name, option_value, autoload) VALUES ('$name', '$value', '$autoload')");
+       $wpdb->query( $wpdb->prepare( "INSERT INTO $wpdb->options (option_name, option_value, autoload) VALUES (%s, %s, %s)", $name, $value, $autoload ) );
 
+       do_action( "add_option_{$name}", $name, $value ); 
        return;
 }
 
-function delete_option($name) {
+
+function delete_option( $name ) {
        global $wpdb;
 
-       wp_protect_special_option($name);
+       wp_protect_special_option( $name );
 
        // Get the ID, if no ID then return
-       $option = $wpdb->get_row("SELECT option_id, autoload FROM $wpdb->options WHERE option_name = '$name'");
-       if ( !$option->option_id ) return false;
-       $wpdb->query("DELETE FROM $wpdb->options WHERE option_name = '$name'");
+       // expected_slashed ($name)
+       $option = $wpdb->get_row( "SELECT option_id, autoload FROM $wpdb->options WHERE option_name = '$name'" );
+       if ( is_null($option) || !$option->option_id )
+               return false;
+       // expected_slashed ($name)
+       $wpdb->query( "DELETE FROM $wpdb->options WHERE option_name = '$name'" );
        if ( 'yes' == $option->autoload ) {
                $alloptions = wp_load_alloptions();
-               if ( isset($alloptions[$name]) ) {
-                       unset($alloptions[$name]);
-                       wp_cache_set('alloptions', $alloptions, 'options');
+               if ( isset( $alloptions[$name] ) ) {
+                       unset( $alloptions[$name] );
+                       wp_cache_set( 'alloptions', $alloptions, 'options' );
                }
        } else {
-               wp_cache_delete($name, 'options');
+               wp_cache_delete( $name, 'options' );
        }
        return true;
 }
 
-function maybe_serialize($data) {
-       if ( is_string($data) )
-               $data = trim($data);
-       elseif ( is_array($data) || is_object($data) )
-               return serialize($data);
-       if ( is_serialized($data) )
-               return serialize($data);
+
+function maybe_serialize( $data ) {
+       if ( is_string( $data ) )
+               $data = trim( $data );
+       elseif ( is_array( $data ) || is_object( $data ) )
+               return serialize( $data );
+       if ( is_serialized( $data ) )
+               return serialize( $data );
        return $data;
 }
 
-function gzip_compression() {
-       if ( !get_option( 'gzipcompression' ) ) {
-               return false;
-       }
-
-       if ( ( ini_get( 'zlib.output_compression' ) == 'On' || ini_get( 'zlib.output_compression_level' ) > 0 ) || ini_get( 'output_handler' ) == 'ob_gzhandler' ) {
-               return false;
-       }
-
-       if ( extension_loaded( 'zlib' ) ) {
-               ob_start( 'ob_gzhandler' );
-       }
-}
 
-function make_url_footnote($content) {
-       preg_match_all('/<a(.+?)href=\"(.+?)\"(.*?)>(.+?)<\/a>/', $content, $matches);
+function make_url_footnote( $content ) {
+       preg_match_all( '/<a(.+?)href=\"(.+?)\"(.*?)>(.+?)<\/a>/', $content, $matches );
        $j = 0;
-       for ($i=0; $i<count($matches[0]); $i++) {
-               $links_summary = (!$j) ? "\n" : $links_summary;
+       for ( $i=0; $i<count($matches[0]); $i++ ) {
+               $links_summary = ( !$j ) ? "\n" : $links_summary;
                $j++;
                $link_match = $matches[0][$i];
                $link_number = '['.($i+1).']';
                $link_url = $matches[2][$i];
                $link_text = $matches[4][$i];
-               $content = str_replace($link_match, $link_text.' '.$link_number, $content);
-               $link_url = ((strtolower(substr($link_url,0,7)) != 'http://') && (strtolower(substr($link_url,0,8)) != 'https://')) ? get_option('home') . $link_url : $link_url;
-               $links_summary .= "\n".$link_number.' '.$link_url;
+               $content = str_replace( $link_match, $link_text . ' ' . $link_number, $content );
+               $link_url = ( ( strtolower( substr( $link_url, 0, 7 ) ) != 'http://' ) && ( strtolower( substr( $link_url, 0, 8 ) ) != 'https://' ) ) ? get_option( 'home' ) . $link_url : $link_url;
+               $links_summary .= "\n" . $link_number . ' ' . $link_url;
        }
-       $content = strip_tags($content);
+       $content  = strip_tags( $content );
        $content .= $links_summary;
        return $content;
 }
 
 
-function xmlrpc_getposttitle($content) {
+function xmlrpc_getposttitle( $content ) {
        global $post_default_title;
-       if ( preg_match('/<title>(.+?)<\/title>/is', $content, $matchtitle) ) {
+       if ( preg_match( '/<title>(.+?)<\/title>/is', $content, $matchtitle ) ) {
                $post_title = $matchtitle[0];
-               $post_title = preg_replace('/<title>/si', '', $post_title);
-               $post_title = preg_replace('/<\/title>/si', '', $post_title);
+               $post_title = preg_replace( '/<title>/si', '', $post_title );
+               $post_title = preg_replace( '/<\/title>/si', '', $post_title );
        } else {
                $post_title = $post_default_title;
        }
        return $post_title;
 }
 
-function xmlrpc_getpostcategory($content) {
+
+function xmlrpc_getpostcategory( $content ) {
        global $post_default_category;
-       if ( preg_match('/<category>(.+?)<\/category>/is', $content, $matchcat) ) {
-               $post_category = trim($matchcat[1], ',');
-               $post_category = explode(',', $post_category);
+       if ( preg_match( '/<category>(.+?)<\/category>/is', $content, $matchcat ) ) {
+               $post_category = trim( $matchcat[1], ',' );
+               $post_category = explode( ',', $post_category );
        } else {
                $post_category = $post_default_category;
        }
        return $post_category;
 }
 
-function xmlrpc_removepostdata($content) {
-       $content = preg_replace('/<title>(.+?)<\/title>/si', '', $content);
-       $content = preg_replace('/<category>(.+?)<\/category>/si', '', $content);
-       $content = trim($content);
+
+function xmlrpc_removepostdata( $content ) {
+       $content = preg_replace( '/<title>(.+?)<\/title>/si', '', $content );
+       $content = preg_replace( '/<category>(.+?)<\/category>/si', '', $content );
+       $content = trim( $content );
        return $content;
 }
 
-function debug_fopen($filename, $mode) {
+
+function debug_fopen( $filename, $mode ) {
        global $debug;
-       if ( $debug == 1 ) {
-               $fp = fopen($filename, $mode);
+       if ( 1 == $debug ) {
+               $fp = fopen( $filename, $mode );
                return $fp;
        } else {
                return false;
        }
 }
 
-function debug_fwrite($fp, $string) {
+
+function debug_fwrite( $fp, $string ) {
        global $debug;
-       if ( $debug == 1 ) {
-               fwrite($fp, $string);
-       }
+       if ( 1 == $debug )
+               fwrite( $fp, $string );
 }
 
-function debug_fclose($fp) {
+
+function debug_fclose( $fp ) {
        global $debug;
-       if ( $debug == 1 ) {
-               fclose($fp);
-       }
+       if ( 1 == $debug )
+               fclose( $fp );
 }
 
 function do_enclose( $content, $post_ID ) {
-       global $wp_version, $wpdb;
-       include_once (ABSPATH . WPINC . '/class-IXR.php');
+       global $wpdb;
+       include_once( ABSPATH . WPINC . '/class-IXR.php' );
 
-       $log = debug_fopen(ABSPATH . 'enclosures.log', 'a');
+       $log = debug_fopen( ABSPATH . 'enclosures.log', 'a' );
        $post_links = array();
-       debug_fwrite($log, 'BEGIN '.date('YmdHis', time())."\n");
+       debug_fwrite( $log, 'BEGIN ' . date( 'YmdHis', time() ) . "\n" );
 
        $pung = get_enclosed( $post_ID );
 
@@ -498,38 +505,41 @@ function do_enclose( $content, $post_ID ) {
        $punc = '.:?\-';
        $any = $ltrs . $gunk . $punc;
 
-       preg_match_all("{\b http : [$any] +? (?= [$punc] * [^$any] | $)}x", $content, $post_links_temp);
+       preg_match_all( "{\b http : [$any] +? (?= [$punc] * [^$any] | $)}x", $content, $post_links_temp );
 
-       debug_fwrite($log, 'Post contents:');
-       debug_fwrite($log, $content."\n");
+       debug_fwrite( $log, 'Post contents:' );
+       debug_fwrite( $log, $content . "\n" );
 
-       foreach($post_links_temp[0] as $link_test) :
-               if ( !in_array($link_test, $pung) ) : // If we haven't pung it already
-                       $test = parse_url($link_test);
-                       if ( isset($test['query']) )
+       foreach ( $post_links_temp[0] as $link_test ) {
+               if ( !in_array( $link_test, $pung ) ) { // If we haven't pung it already
+                       $test = parse_url( $link_test );
+                       if ( isset( $test['query'] ) )
                                $post_links[] = $link_test;
-                       elseif (($test['path'] != '/') && ($test['path'] != ''))
+                       elseif ( $test['path'] != '/' && $test['path'] != '' )
                                $post_links[] = $link_test;
-               endif;
-       endforeach;
+               }
+       }
 
-       foreach ($post_links as $url) :
-               if ( $url != '' && !$wpdb->get_var("SELECT post_id FROM $wpdb->postmeta WHERE post_id = '$post_ID' AND meta_key = 'enclosure' AND meta_value LIKE ('$url%')") ) {
+       foreach ( $post_links as $url ) {
+               if ( $url != '' && !$wpdb->get_var( $wpdb->prepare( "SELECT post_id FROM $wpdb->postmeta WHERE post_id = %d AND meta_key = 'enclosure' AND meta_value LIKE (%s)", $post_ID, $url . '%' ) ) ) {
                        if ( $headers = wp_get_http_headers( $url) ) {
                                $len = (int) $headers['content-length'];
                                $type = $wpdb->escape( $headers['content-type'] );
                                $allowed_types = array( 'video', 'audio' );
                                if ( in_array( substr( $type, 0, strpos( $type, "/" ) ), $allowed_types ) ) {
                                        $meta_value = "$url\n$len\n$type\n";
-                                       $wpdb->query( "INSERT INTO `$wpdb->postmeta` ( `post_id` , `meta_key` , `meta_value` )
-                                       VALUES ( '$post_ID', 'enclosure' , '$meta_value')" );
+                                       $wpdb->query( $wpdb->prepare( "INSERT INTO `$wpdb->postmeta` ( `post_id` , `meta_key` , `meta_value` )
+                                       VALUES ( %d, 'enclosure' , %s)", $post_ID, $meta_value ) );
                                }
                        }
                }
-       endforeach;
+       }
 }
 
-function wp_get_http_headers( $url, $red = 1 ) {
+// perform a HTTP HEAD or GET request
+// if $file_path is a writable filename, this will do a GET request and write the file to that path
+// returns a list of HTTP headers
+function wp_get_http( $url, $file_path = false, $red = 1 ) {
        global $wp_version;
        @set_time_limit( 60 );
 
@@ -537,14 +547,19 @@ function wp_get_http_headers( $url, $red = 1 ) {
                 return false;
 
        $parts = parse_url( $url );
-       $file = $parts['path'] . ($parts['query'] ? '?'.$parts['query'] : '');
+       $file = $parts['path'] . ( ( $parts['query'] ) ? '?' . $parts['query'] : '' );
        $host = $parts['host'];
        if ( !isset( $parts['port'] ) )
                $parts['port'] = 80;
 
-       $head = "HEAD $file HTTP/1.1\r\nHOST: $host\r\nUser-Agent: WordPress/" . $wp_version . "\r\n\r\n";
+       if ( $file_path )
+               $request_type = 'GET';
+       else
+               $request_type = 'HEAD';
+
+       $head = "$request_type $file HTTP/1.1\r\nHOST: $host\r\nUser-Agent: WordPress/" . $wp_version . "\r\n\r\n";
 
-       $fp = @fsockopen($host, $parts['port'], $err_num, $err_msg, 3);
+       $fp = @fsockopen( $host, $parts['port'], $err_num, $err_msg, 3 );
        if ( !$fp )
                return false;
 
@@ -552,37 +567,68 @@ function wp_get_http_headers( $url, $red = 1 ) {
        fputs( $fp, $head );
        while ( !feof( $fp ) && strpos( $response, "\r\n\r\n" ) == false )
                $response .= fgets( $fp, 2048 );
-       fclose( $fp );
-       preg_match_all('/(.*?): (.*)\r/', $response, $matches);
-       $count = count($matches[1]);
-       for ( $i = 0; $i < $count; $i++) {
-               $key = strtolower($matches[1][$i]);
+       preg_match_all( '/(.*?): (.*)\r/', $response, $matches );
+       $count = count( $matches[1] );
+       for ( $i = 0; $i < $count; $i++ ) {
+               $key = strtolower( $matches[1][$i] );
                $headers["$key"] = $matches[2][$i];
        }
 
-       preg_match('/.*([0-9]{3}).*/', $response, $return);
+       preg_match( '/.*([0-9]{3}).*/', $response, $return );
        $headers['response'] = $return[1]; // HTTP response code eg 204, 200, 404
 
                $code = $headers['response'];
-               if ( ('302' == $code || '301' == $code) && isset($headers['location']) )
-                               return wp_get_http_headers( $headers['location'], ++$red );
+               if ( ( '302' == $code || '301' == $code ) && isset( $headers['location'] ) ) {
+                               fclose($fp);
+                               return wp_get_http( $headers['location'], $file_path, ++$red );
+               }
+
+       // make a note of the final location, so the caller can tell if we were redirected or not
+       $headers['x-final-location'] = $url;
+
+       // HEAD request only
+       if ( !$file_path ) {
+               fclose($fp);
+               return $headers;
+       }
+
+       // GET request - fetch and write it to the supplied filename
+       $content_length = $headers['content-length'];
+       $got_bytes = 0;
+       $out_fp = fopen($file_path, 'w');
+       while ( !feof($fp) ) {
+               $buf = fread( $fp, 4096 );
+               fwrite( $out_fp, $buf );
+               $got_bytes += strlen($buf);
+               // don't read past the content-length
+               if ($content_length and $got_bytes >= $content_length)
+                       break;
+       }
 
+       fclose($out_fp);
+       fclose($fp);
        return $headers;
 }
 
+function wp_get_http_headers( $url, $red = 1 ) {
+       return wp_get_http( $url, false, $red );
+}
+
+
 function is_new_day() {
        global $day, $previousday;
-       if ( $day != $previousday ) {
-               return(1);
-       } else {
-               return(0);
-       }
+       if ( $day != $previousday )
+               return 1;
+       else
+               return 0;
 }
 
-function build_query($data) {
-       return _http_build_query($data, NULL, '&', '', false);
+
+function build_query( $data ) {
+       return _http_build_query( $data, NULL, '&', '', false );
 }
 
+
 /*
 add_query_arg: Returns a modified querystring by adding
 a single key & value or an associative array.
@@ -595,40 +641,40 @@ add_query_arg(associative_array, oldquery_or_uri)
 */
 function add_query_arg() {
        $ret = '';
-       if ( is_array(func_get_arg(0)) ) {
-               if ( @func_num_args() < 2 || false === @func_get_arg(1) )
+       if ( is_array( func_get_arg(0) ) ) {
+               if ( @func_num_args() < 2 || false === @func_get_arg( 1 ) )
                        $uri = $_SERVER['REQUEST_URI'];
                else
-                       $uri = @func_get_arg(1);
+                       $uri = @func_get_arg( 1 );
        } else {
-               if ( @func_num_args() < 3 || false === @func_get_arg(2) )
+               if ( @func_num_args() < 3 || false === @func_get_arg( 2 ) )
                        $uri = $_SERVER['REQUEST_URI'];
                else
-                       $uri = @func_get_arg(2);
+                       $uri = @func_get_arg( 2 );
        }
 
-       if ( $frag = strstr($uri, '#') )
-               $uri = substr($uri, 0, -strlen($frag));
+       if ( $frag = strstr( $uri, '#' ) )
+               $uri = substr( $uri, 0, -strlen( $frag ) );
        else
                $frag = '';
 
-       if ( preg_match('|^https?://|i', $uri, $matches) ) {
+       if ( preg_match( '|^https?://|i', $uri, $matches ) ) {
                $protocol = $matches[0];
-               $uri = substr($uri, strlen($protocol));
+               $uri = substr( $uri, strlen( $protocol ) );
        } else {
                $protocol = '';
        }
 
-       if (strpos($uri, '?') !== false) {
-               $parts = explode('?', $uri, 2);
-               if ( 1 == count($parts) ) {
+       if ( strpos( $uri, '?' ) !== false ) {
+               $parts = explode( '?', $uri, 2 );
+               if ( 1 == count( $parts ) ) {
                        $base = '?';
                        $query = $parts[0];
                } else {
                        $base = $parts[0] . '?';
                        $query = $parts[1];
                }
-       } elseif (!empty($protocol) || strpos($uri, '=') === false ) {
+       } elseif ( !empty( $protocol ) || strpos( $uri, '=' ) === false ) {
                $base = $uri . '?';
                $query = '';
        } else {
@@ -636,28 +682,29 @@ function add_query_arg() {
                $query = $uri;
        }
 
-       wp_parse_str($query, $qs);
-       $qs = urlencode_deep($qs); // this re-URL-encodes things that were already in the query string
-       if ( is_array(func_get_arg(0)) ) {
-               $kayvees = func_get_arg(0);
-               $qs = array_merge($qs, $kayvees);
+       wp_parse_str( $query, $qs );
+       $qs = urlencode_deep( $qs ); // this re-URL-encodes things that were already in the query string
+       if ( is_array( func_get_arg( 0 ) ) ) {
+               $kayvees = func_get_arg( 0 );
+               $qs = array_merge( $qs, $kayvees );
        } else {
-               $qs[func_get_arg(0)] = func_get_arg(1);
+               $qs[func_get_arg( 0 )] = func_get_arg( 1 );
        }
 
        foreach ( $qs as $k => $v ) {
                if ( $v === false )
-                       unset($qs[$k]);
+                       unset( $qs[$k] );
        }
 
-       $ret = build_query($qs);
-       $ret = trim($ret, '?');
-       $ret = preg_replace('#=(&|$)#', '$1', $ret);
+       $ret = build_query( $qs );
+       $ret = trim( $ret, '?' );
+       $ret = preg_replace( '#=(&|$)#', '$1', $ret );
        $ret = $protocol . $base . $ret . $frag;
-       $ret = rtrim($ret, '?');
+       $ret = rtrim( $ret, '?' );
        return $ret;
 }
 
+
 /*
 remove_query_arg: Returns a modified querystring by removing
 a single key or an array of keys.
@@ -668,23 +715,24 @@ remove_query_arg(removekey, [oldquery_or_uri]) or
 remove_query_arg(removekeyarray, [oldquery_or_uri])
 */
 
-function remove_query_arg($key, $query=FALSE) {
-       if ( is_array($key) ) { // removing multiple keys
+function remove_query_arg( $key, $query=FALSE ) {
+       if ( is_array( $key ) ) { // removing multiple keys
                foreach ( (array) $key as $k )
-                       $query = add_query_arg($k, FALSE, $query);
+                       $query = add_query_arg( $k, FALSE, $query );
                return $query;
        }
-       return add_query_arg($key, FALSE, $query);
+       return add_query_arg( $key, FALSE, $query );
 }
 
-function add_magic_quotes($array) {
+
+function add_magic_quotes( $array ) {
        global $wpdb;
 
-       foreach ($array as $k => $v) {
-               if ( is_array($v) ) {
-                       $array[$k] = add_magic_quotes($v);
+       foreach ( $array as $k => $v ) {
+               if ( is_array( $v ) ) {
+                       $array[$k] = add_magic_quotes( $v );
                } else {
-                       $array[$k] = $wpdb->escape($v);
+                       $array[$k] = $wpdb->escape( $v );
                }
        }
        return $array;
@@ -692,54 +740,55 @@ function add_magic_quotes($array) {
 
 function wp_remote_fopen( $uri ) {
        $timeout = 10;
-       $parsed_url = @parse_url($uri);
+       $parsed_url = @parse_url( $uri );
 
-       if ( !$parsed_url || !is_array($parsed_url) )
+       if ( !$parsed_url || !is_array( $parsed_url ) )
                return false;
 
-       if ( !isset($parsed_url['scheme']) || !in_array($parsed_url['scheme'], array('http','https')) )
+       if ( !isset( $parsed_url['scheme'] ) || !in_array( $parsed_url['scheme'], array( 'http','https' ) ) )
                $uri = 'http://' . $uri;
 
-       if ( ini_get('allow_url_fopen') ) {
+       if ( ini_get( 'allow_url_fopen' ) ) {
                $fp = @fopen( $uri, 'r' );
                if ( !$fp )
                        return false;
 
                //stream_set_timeout($fp, $timeout); // Requires php 4.3
                $linea = '';
-               while( $remote_read = fread($fp, 4096) )
+               while ( $remote_read = fread( $fp, 4096 ) )
                        $linea .= $remote_read;
-               fclose($fp);
+               fclose( $fp );
                return $linea;
-       } else if ( function_exists('curl_init') ) {
+       } elseif ( function_exists( 'curl_init' ) ) {
                $handle = curl_init();
-               curl_setopt ($handle, CURLOPT_URL, $uri);
-               curl_setopt ($handle, CURLOPT_CONNECTTIMEOUT, 1);
-               curl_setopt ($handle, CURLOPT_RETURNTRANSFER, 1);
-               curl_setopt ($handle, CURLOPT_TIMEOUT, $timeout);
-               $buffer = curl_exec($handle);
-               curl_close($handle);
+               curl_setopt$handle, CURLOPT_URL, $uri);
+               curl_setopt( $handle, CURLOPT_CONNECTTIMEOUT, 1 );
+               curl_setopt( $handle, CURLOPT_RETURNTRANSFER, 1 );
+               curl_setopt( $handle, CURLOPT_TIMEOUT, $timeout );
+               $buffer = curl_exec( $handle );
+               curl_close( $handle );
                return $buffer;
        } else {
                return false;
        }
 }
 
-function wp($query_vars = '') {
-       global $wp, $wp_query, $wp_the_query;
 
-       $wp->main($query_vars);
+function wp( $query_vars = '' ) {
+       global $wp, $wp_query, $wp_the_query;
+       $wp->main( $query_vars );
 
        if( !isset($wp_the_query) )
                $wp_the_query = $wp_query;
 }
 
+
 function get_status_header_desc( $code ) {
        global $wp_header_to_desc;
 
-       $code = (int) $code;
+       $code = absint( $code );
 
-       if ( !isset($wp_header_to_desc) ) {
+       if ( !isset( $wp_header_to_desc ) ) {
                $wp_header_to_desc = array(
                        100 => 'Continue',
                        101 => 'Switching Protocols',
@@ -787,13 +836,13 @@ function get_status_header_desc( $code ) {
                );
        }
 
-       if ( isset( $wp_header_to_desc[$code] ) ) {
+       if ( isset( $wp_header_to_desc[$code] ) )
                return $wp_header_to_desc[$code];
-       } else {
+       else
                return '';
-       }
 }
 
+
 function status_header( $header ) {
        $text = get_status_header_desc( $header );
 
@@ -801,87 +850,99 @@ function status_header( $header ) {
                return false;
 
        $protocol = $_SERVER["SERVER_PROTOCOL"];
-       if ( ('HTTP/1.1' != $protocol) && ('HTTP/1.0' != $protocol) )
+       if ( 'HTTP/1.1' != $protocol && 'HTTP/1.0' != $protocol )
                $protocol = 'HTTP/1.0';
        $status_header = "$protocol $header $text";
-       if ( function_exists('apply_filters') )
-               $status_header = apply_filters('status_header', $status_header, $header, $text, $protocol);
+       if ( function_exists( 'apply_filters' ) )
+               $status_header = apply_filters( 'status_header', $status_header, $header, $text, $protocol );
 
-       if ( version_compare( phpversion(), '4.3.0', '>=' ) ) {
+       if ( version_compare( phpversion(), '4.3.0', '>=' ) )
                return @header( $status_header, true, $header );
-       } else {
+       else
                return @header( $status_header );
-       }
 }
 
+
 function nocache_headers() {
-       @ header('Expires: Wed, 11 Jan 1984 05:00:00 GMT');
-       @ header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
-       @ header('Cache-Control: no-cache, must-revalidate, max-age=0');
-       @ header('Pragma: no-cache');
+       // why are these @-silenced when other header calls aren't?
+       @header( 'Expires: Wed, 11 Jan 1984 05:00:00 GMT' );
+       @header( 'Last-Modified: ' . gmdate( 'D, d M Y H:i:s' ) . ' GMT' );
+       @header( 'Cache-Control: no-cache, must-revalidate, max-age=0' );
+       @header( 'Pragma: no-cache' );
 }
 
+
 function cache_javascript_headers() {
        $expiresOffset = 864000; // 10 days
-       header("Content-Type: text/javascript; charset=" . get_bloginfo('charset'));
-       header("Vary: Accept-Encoding"); // Handle proxies
-       header("Expires: " . gmdate("D, d M Y H:i:s", time() + $expiresOffset) . " GMT");
+       header( "Content-Type: text/javascript; charset=" . get_bloginfo( 'charset' ) );
+       header( "Vary: Accept-Encoding" ); // Handle proxies
+       header( "Expires: " . gmdate( "D, d M Y H:i:s", time() + $expiresOffset ) . " GMT" );
 }
 
+
 function get_num_queries() {
        global $wpdb;
        return $wpdb->num_queries;
 }
 
+
 function bool_from_yn( $yn ) {
        return ( strtolower( $yn ) == 'y' );
 }
 
+
 function do_feed() {
        global $wp_query;
 
-       $feed = get_query_var('feed');
+       $feed = get_query_var( 'feed' );
 
        // Remove the pad, if present.
-       $feed = preg_replace('/^_+/', '', $feed);
+       $feed = preg_replace( '/^_+/', '', $feed );
 
        if ( $feed == '' || $feed == 'feed' )
-               $feed = 'rss2';
+               $feed = get_default_feed();
 
        $hook = 'do_feed_' . $feed;
-       do_action($hook, $wp_query->is_comment_feed);
+       if ( !has_action($hook) ) {
+               $message = sprintf( __( 'ERROR: %s is not a valid feed template' ), wp_specialchars($feed));
+               wp_die($message);
+       }
+
+       do_action( $hook, $wp_query->is_comment_feed );
 }
 
+
 function do_feed_rdf() {
-       load_template(ABSPATH . WPINC . '/feed-rdf.php');
+       load_template( ABSPATH . WPINC . '/feed-rdf.php' );
 }
 
+
 function do_feed_rss() {
-       load_template(ABSPATH . WPINC . '/feed-rss.php');
+       load_template( ABSPATH . WPINC . '/feed-rss.php' );
 }
 
-function do_feed_rss2($for_comments) {
-       if ( $for_comments ) {
-               load_template(ABSPATH . WPINC . '/feed-rss2-comments.php');
-       } else {
-               load_template(ABSPATH . WPINC . '/feed-rss2.php');
-       }
+
+function do_feed_rss2( $for_comments ) {
+       if ( $for_comments )
+               load_template( ABSPATH . WPINC . '/feed-rss2-comments.php' );
+       else
+               load_template( ABSPATH . WPINC . '/feed-rss2.php' );
 }
 
-function do_feed_atom($for_comments) {
-       if ($for_comments) {
-               load_template(ABSPATH . WPINC . '/feed-atom-comments.php');
-       } else {
-               load_template(ABSPATH . WPINC . '/feed-atom.php');
-       }
+
+function do_feed_atom( $for_comments ) {
+       if ($for_comments)
+               load_template( ABSPATH . WPINC . '/feed-atom-comments.php');
+       else
+               load_template( ABSPATH . WPINC . '/feed-atom.php' );
 }
 
 function do_robots() {
-       header('Content-Type: text/plain; charset=utf-8');
+       header( 'Content-Type: text/plain; charset=utf-8' );
 
-       do_action('do_robotstxt');
+       do_action( 'do_robotstxt' );
 
-       if ( '0' == get_option('blog_public') ) {
+       if ( '0' == get_option( 'blog_public' ) ) {
                echo "User-agent: *\n";
                echo "Disallow: /\n";
        } else {
@@ -890,172 +951,269 @@ function do_robots() {
        }
 }
 
+
 function is_blog_installed() {
        global $wpdb;
-       $show = $wpdb->hide_errors();
-       $installed = $wpdb->get_var("SELECT option_value FROM $wpdb->options WHERE option_name = 'siteurl'");
-       $wpdb->show_errors($show);
 
-       $install_status = !empty( $installed ) ? TRUE : FALSE;
-       return $install_status;
+       // Check cache first.  If options table goes away and we have true cached, oh well.
+       if ( wp_cache_get('is_blog_installed') )
+               return true;
+
+       $suppress = $wpdb->suppress_errors();
+       $installed = $wpdb->get_var( "SELECT option_value FROM $wpdb->options WHERE option_name = 'siteurl'" );
+       $wpdb->suppress_errors($suppress);
+
+       $installed = !empty( $installed ) ? true : false;
+       wp_cache_set('is_blog_installed', $installed);
+
+       return $installed;
 }
 
-function wp_nonce_url($actionurl, $action = -1) {
-       $actionurl = str_replace('&amp;', '&', $actionurl);
-       return wp_specialchars(add_query_arg('_wpnonce', wp_create_nonce($action), $actionurl));
+
+function wp_nonce_url( $actionurl, $action = -1 ) {
+       $actionurl = str_replace( '&amp;', '&', $actionurl );
+       return wp_specialchars( add_query_arg( '_wpnonce', wp_create_nonce( $action ), $actionurl ) );
 }
 
-function wp_nonce_field($action = -1, $name = "_wpnonce", $referer = true) {
-       $name = attribute_escape($name);
-       echo '<input type="hidden" name="' . $name . '" value="' . wp_create_nonce($action) . '" />';
+
+function wp_nonce_field( $action = -1, $name = "_wpnonce", $referer = true , $echo = true ) {
+       $name = attribute_escape( $name );
+       $nonce_field = '<input type="hidden" id="' . $name . '" name="' . $name . '" value="' . wp_create_nonce( $action ) . '" />';
+       if ( $echo )
+               echo $nonce_field;
+       
        if ( $referer )
-               wp_referer_field();
+               wp_referer_field( $echo, 'previous' );
+       
+       return $nonce_field;
 }
 
-function wp_referer_field() {
-       $ref = attribute_escape($_SERVER['REQUEST_URI']);
-       echo '<input type="hidden" name="_wp_http_referer" value="'. $ref . '" />';
-       if ( wp_get_original_referer() ) {
-               $original_ref = attribute_escape(stripslashes(wp_get_original_referer()));
-               echo '<input type="hidden" name="_wp_original_http_referer" value="'. $original_ref . '" />';
-       }
+
+function wp_referer_field( $echo = true) {
+       $ref = attribute_escape( $_SERVER['REQUEST_URI'] );
+       $referer_field = '<input type="hidden" name="_wp_http_referer" value="'. $ref . '" />';
+
+       if ( $echo )
+               echo $referer_field;
+       return $referer_field;
 }
 
-function wp_original_referer_field() {
-       echo '<input type="hidden" name="_wp_original_http_referer" value="' . attribute_escape(stripslashes($_SERVER['REQUEST_URI'])) . '" />';
+function wp_original_referer_field( $echo = true, $jump_back_to = 'current' ) {
+       $jump_back_to = ( 'previous' == $jump_back_to ) ? wp_get_referer() : $_SERVER['REQUEST_URI'];
+       $ref = ( wp_get_original_referer() ) ? wp_get_original_referer() : $jump_back_to;
+       $orig_referer_field = '<input type="hidden" name="_wp_original_http_referer" value="' . attribute_escape( stripslashes( $ref ) ) . '" />';
+       if ( $echo )
+               echo $orig_referer_field;
+       return $orig_referer_field;
 }
 
+
 function wp_get_referer() {
-       foreach ( array($_REQUEST['_wp_http_referer'], $_SERVER['HTTP_REFERER']) as $ref )
-               if ( !empty($ref) )
-                       return $ref;
+       if ( ! empty( $_REQUEST['_wp_http_referer'] ) )
+               $ref = $_REQUEST['_wp_http_referer'];
+       else if ( ! empty( $_SERVER['HTTP_REFERER'] ) )
+               $ref = $_SERVER['HTTP_REFERER'];
+
+       if ( $ref !== $_SERVER['REQUEST_URI'] )
+               return $ref;
        return false;
 }
 
+
 function wp_get_original_referer() {
-       if ( !empty($_REQUEST['_wp_original_http_referer']) )
+       if ( !empty( $_REQUEST['_wp_original_http_referer'] ) )
                return $_REQUEST['_wp_original_http_referer'];
        return false;
 }
 
-function wp_mkdir_p($target) {
+
+function wp_mkdir_p( $target ) {
        // from php.net/mkdir user contributed notes
-       if (file_exists($target)) {
-               if (! @ is_dir($target))
-                       return false;
-               else
-                       return true;
-       }
+       $target = str_replace( '//', '/', $target );
+       if ( file_exists( $target ) )
+               return @is_dir( $target );
 
        // Attempting to create the directory may clutter up our display.
-       if (@ mkdir($target)) {
-               $stat = @ stat(dirname($target));
+       if ( @mkdir( $target ) ) {
+               $stat = @stat( dirname( $target ) );
                $dir_perms = $stat['mode'] & 0007777;  // Get the permission bits.
-               @ chmod($target, $dir_perms);
+               @chmod( $target, $dir_perms );
                return true;
-       } else {
-               if ( is_dir(dirname($target)) )
+       } elseif ( is_dir( dirname( $target ) ) ) {
                        return false;
        }
 
        // If the above failed, attempt to create the parent node, then try again.
-       if (wp_mkdir_p(dirname($target)))
-               return wp_mkdir_p($target);
+       if ( wp_mkdir_p( dirname( $target ) ) )
+               return wp_mkdir_p( $target );
 
        return false;
 }
 
+// Test if a give filesystem path is absolute ('/foo/bar', 'c:\windows')
+function path_is_absolute( $path ) {
+       // this is definitive if true but fails if $path does not exist or contains a symbolic link
+       if ( realpath($path) == $path )
+               return true;
+
+       if ( strlen($path) == 0 || $path{0} == '.' )
+               return false;
+
+       // windows allows absolute paths like this
+       if ( preg_match('#^[a-zA-Z]:\\\\#', $path) )
+               return true;
+
+       // a path starting with / or \ is absolute; anything else is relative
+       return (bool) preg_match('#^[/\\\\]#', $path);
+}
+
+// Join two filesystem paths together (e.g. 'give me $path relative to $base')
+function path_join( $base, $path ) {
+       if ( path_is_absolute($path) )
+               return $path;
+
+       return rtrim($base, '/') . '/' . ltrim($path, '/');
+}
+
 // Returns an array containing the current upload directory's path and url, or an error message.
-function wp_upload_dir() {
-       $siteurl = get_option('siteurl');
-       //prepend ABSPATH to $dir and $siteurl to $url if they're not already there
-       $path = str_replace(ABSPATH, '', trim(get_option('upload_path')));
-       $dir = ABSPATH . $path;
-       $url = trailingslashit($siteurl) . $path;
-
-       if ( $dir == ABSPATH ) { //the option was empty
-               $dir = ABSPATH . 'wp-content/uploads';
-       }
+function wp_upload_dir( $time = NULL ) {
+       $siteurl = get_option( 'siteurl' );
+       $upload_path = get_option( 'upload_path' );
+       if ( trim($upload_path) === '' )
+               $upload_path = 'wp-content/uploads';
+       $dir = $upload_path;
+
+       // $dir is absolute, $path is (maybe) relative to ABSPATH
+       $dir = path_join( ABSPATH, $upload_path );
+       $path = str_replace( ABSPATH, '', trim( $upload_path ) );
+
+       if ( !$url = get_option( 'upload_url_path' ) )
+               $url = trailingslashit( $siteurl ) . $path;
 
        if ( defined('UPLOADS') ) {
                $dir = ABSPATH . UPLOADS;
-               $url = trailingslashit($siteurl) . UPLOADS;
+               $url = trailingslashit( $siteurl ) . UPLOADS;
        }
 
-       if ( get_option('uploads_use_yearmonth_folders')) {
+       $subdir = '';
+       if ( get_option( 'uploads_use_yearmonth_folders' ) ) {
                // Generate the yearly and monthly dirs
-               $time = current_time( 'mysql' );
+               if ( !$time )
+                       $time = current_time( 'mysql' );
                $y = substr( $time, 0, 4 );
                $m = substr( $time, 5, 2 );
-               $dir = $dir . "/$y/$m";
-               $url = $url . "/$y/$m";
+               $subdir = "/$y/$m";
        }
 
+       $dir .= $subdir;
+       $url .= $subdir;
+
        // Make sure we have an uploads dir
        if ( ! wp_mkdir_p( $dir ) ) {
-               $message = sprintf(__('Unable to create directory %s. Is its parent directory writable by the server?'), $dir);
-               return array('error' => $message);
+               $message = sprintf( __( 'Unable to create directory %s. Is its parent directory writable by the server?' ), $dir );
+               return array( 'error' => $message );
        }
 
-               $uploads = array('path' => $dir, 'url' => $url, 'error' => false);
-       return apply_filters('upload_dir', $uploads);
+       $uploads = array( 'path' => $dir, 'url' => $url, 'subdir' => $subdir, 'error' => false );
+       return apply_filters( 'upload_dir', $uploads );
 }
 
-function wp_upload_bits($name, $type, $bits) {
-       if ( empty($name) )
-               return array('error' => __("Empty filename"));
+// return a filename that is sanitized and unique for the given directory
+function wp_unique_filename( $dir, $filename, $unique_filename_callback = NULL ) {
+       $filename = strtolower( $filename );
+       // separate the filename into a name and extension
+       $info = pathinfo($filename);
+       $ext = $info['extension'];
+       $name = basename($filename, ".{$ext}");
+       
+       // edge case: if file is named '.ext', treat as an empty name
+       if( $name === ".$ext" )
+               $name = '';
 
-       $wp_filetype = wp_check_filetype($name);
+       // Increment the file number until we have a unique file to save in $dir. Use $override['unique_filename_callback'] if supplied.
+       if ( $unique_filename_callback && function_exists( $unique_filename_callback ) ) {
+               $filename = $unique_filename_callback( $dir, $name );
+       } else {
+               $number = '';
+
+               if ( empty( $ext ) )
+                       $ext = '';
+               else
+                       $ext = strtolower( ".$ext" );
+
+               $filename = str_replace( $ext, '', $filename );
+               // Strip % so the server doesn't try to decode entities.
+               $filename = str_replace('%', '', sanitize_title_with_dashes( $filename ) ) . $ext;
+
+               while ( file_exists( $dir . "/$filename" ) ) {
+                       if ( '' == "$number$ext" )
+                               $filename = $filename . ++$number . $ext;
+                       else
+                               $filename = str_replace( "$number$ext", ++$number . $ext, $filename );
+               }
+       }
+
+       return $filename;
+}
+
+function wp_upload_bits( $name, $deprecated, $bits, $time = NULL ) {
+       if ( empty( $name ) )
+               return array( 'error' => __( "Empty filename" ) );
+
+       $wp_filetype = wp_check_filetype( $name );
        if ( !$wp_filetype['ext'] )
-               return array('error' => __("Invalid file type"));
+               return array( 'error' => __( "Invalid file type" ) );
 
-       $upload = wp_upload_dir();
+       $upload = wp_upload_dir( $time );
 
        if ( $upload['error'] !== false )
                return $upload;
 
-       $number = '';
-       $filename = $name;
-       $path_parts = pathinfo($filename);
-       $ext = $path_parts['extension'];
-       if ( empty($ext) )
-               $ext = '';
-       else
-               $ext = ".$ext";
-       while ( file_exists($upload['path'] . "/$filename") ) {
-               if ( '' == "$number$ext" )
-                       $filename = $filename . ++$number . $ext;
-               else
-                       $filename = str_replace("$number$ext", ++$number . $ext, $filename);
-       }
+       $filename = wp_unique_filename( $upload['path'], $name );
 
        $new_file = $upload['path'] . "/$filename";
-       if ( ! wp_mkdir_p( dirname($new_file) ) ) {
-               $message = sprintf(__('Unable to create directory %s. Is its parent directory writable by the server?'), dirname($new_file));
-               return array('error' => $message);
+       if ( ! wp_mkdir_p( dirname( $new_file ) ) ) {
+               $message = sprintf( __( 'Unable to create directory %s. Is its parent directory writable by the server?' ), dirname( $new_file ) );
+               return array( 'error' => $message );
        }
 
-       $ifp = @ fopen($new_file, 'wb');
+       $ifp = @ fopen( $new_file, 'wb' );
        if ( ! $ifp )
-               return array('error' => sprintf(__('Could not write file %s'), $new_file));
+               return array( 'error' => sprintf( __( 'Could not write file %s' ), $new_file ) );
 
-       $success = @ fwrite($ifp, $bits);
-       fclose($ifp);
+       @fwrite( $ifp, $bits );
+       fclose( $ifp );
        // Set correct file permissions
-       $stat = @ stat(dirname($new_file));
+       $stat = @ stat( dirname( $new_file ) );
        $perms = $stat['mode'] & 0007777;
        $perms = $perms & 0000666;
-       @ chmod($new_file, $perms);
+       @ chmod( $new_file, $perms );
 
        // Compute the URL
        $url = $upload['url'] . "/$filename";
 
-       return array('file' => $new_file, 'url' => $url, 'error' => false);
+       return array( 'file' => $new_file, 'url' => $url, 'error' => false );
 }
 
-function wp_check_filetype($filename, $mimes = null) {
+function wp_ext2type( $ext ) {
+       $ext2type = apply_filters('ext2type', array(
+               'audio' => array('aac','ac3','aif','aiff','mp1','mp2','mp3','m3a','m4a','m4b','ogg','ram','wav','wma'),
+               'video' => array('asf','avi','divx','dv','mov','mpg','mpeg','mp4','mpv','ogm','qt','rm','vob','wmv'),
+               'document' => array('doc','pages','odt','rtf','pdf'),
+               'spreadsheet' => array('xls','numbers','ods'),
+               'interactive' => array('ppt','key','odp','swf'),
+               'text' => array('txt'),
+               'archive' => array('tar','bz2','gz','cab','dmg','rar','sea','sit','sqx','zip'),
+               'code' => array('css','html','php','js'),
+       ));
+       foreach ( $ext2type as $type => $exts )
+               if ( in_array($ext, $exts) )
+                       return $type;
+}
+
+function wp_check_filetype( $filename, $mimes = null ) {
        // Accepted MIME types are set here as PCRE unless provided.
-       $mimes = is_array($mimes) ? $mimes : apply_filters('upload_mimes', array (
+       $mimes = ( is_array( $mimes ) ) ? $mimes : apply_filters( 'upload_mimes', array(
                'jpg|jpeg|jpe' => 'image/jpeg',
                'gif' => 'image/gif',
                'png' => 'image/png',
@@ -1065,12 +1223,12 @@ function wp_check_filetype($filename, $mimes = null) {
                'asf|asx|wax|wmv|wmx' => 'video/asf',
                'avi' => 'video/avi',
                'mov|qt' => 'video/quicktime',
-               'mpeg|mpg|mpe' => 'video/mpeg',
+               'mpeg|mpg|mpe|mp4' => 'video/mpeg',
                'txt|c|cc|h' => 'text/plain',
                'rtx' => 'text/richtext',
                'css' => 'text/css',
                'htm|html' => 'text/html',
-               'mp3|mp4' => 'audio/mpeg',
+               'mp3|m4a' => 'audio/mpeg',
                'ra|ram' => 'audio/x-realaudio',
                'wav' => 'audio/wav',
                'ogg' => 'audio/ogg',
@@ -1099,127 +1257,110 @@ function wp_check_filetype($filename, $mimes = null) {
                'odc' => 'application/vnd.oasis.opendocument.chart',
                'odb' => 'application/vnd.oasis.opendocument.database',
                'odf' => 'application/vnd.oasis.opendocument.formula',
-
-       ));
+               )
+       );
 
        $type = false;
        $ext = false;
 
-       foreach ($mimes as $ext_preg => $mime_match) {
+       foreach ( $mimes as $ext_preg => $mime_match ) {
                $ext_preg = '!\.(' . $ext_preg . ')$!i';
-               if ( preg_match($ext_preg, $filename, $ext_matches) ) {
+               if ( preg_match( $ext_preg, $filename, $ext_matches ) ) {
                        $type = $mime_match;
                        $ext = $ext_matches[1];
                        break;
                }
        }
 
-       return compact('ext', 'type');
+       return compact( 'ext', 'type' );
 }
 
-function wp_explain_nonce($action) {
-       if ( $action !== -1 && preg_match('/([a-z]+)-([a-z]+)(_(.+))?/', $action, $matches) ) {
+function wp_explain_nonce( $action ) {
+       if ( $action !== -1 && preg_match( '/([a-z]+)-([a-z]+)(_(.+))?/', $action, $matches ) ) {
                $verb = $matches[1];
                $noun = $matches[2];
 
                $trans = array();
-               $trans['update']['attachment'] = array(__('Are you sure you want to edit this attachment: &quot;%s&quot;?'), 'get_the_title');
-
-               $trans['add']['category'] = array(__('Are you sure you want to add this category?'), false);
-               $trans['delete']['category'] = array(__('Are you sure you want to delete this category: &quot;%s&quot;?'), 'get_catname');
-               $trans['update']['category'] = array(__('Are you sure you want to edit this category: &quot;%s&quot;?'), 'get_catname');
-
-               $trans['delete']['comment'] = array(__('Are you sure you want to delete this comment: &quot;%s&quot;?'), 'use_id');
-               $trans['unapprove']['comment'] = array(__('Are you sure you want to unapprove this comment: &quot;%s&quot;?'), 'use_id');
-               $trans['approve']['comment'] = array(__('Are you sure you want to approve this comment: &quot;%s&quot;?'), 'use_id');
-               $trans['update']['comment'] = array(__('Are you sure you want to edit this comment: &quot;%s&quot;?'), 'use_id');
-               $trans['bulk']['comments'] = array(__('Are you sure you want to bulk modify comments?'), false);
-               $trans['moderate']['comments'] = array(__('Are you sure you want to moderate comments?'), false);
-
-               $trans['add']['bookmark'] = array(__('Are you sure you want to add this link?'), false);
-               $trans['delete']['bookmark'] = array(__('Are you sure you want to delete this link: &quot;%s&quot;?'), 'use_id');
-               $trans['update']['bookmark'] = array(__('Are you sure you want to edit this link: &quot;%s&quot;?'), 'use_id');
-               $trans['bulk']['bookmarks'] = array(__('Are you sure you want to bulk modify links?'), false);
-
-               $trans['add']['page'] = array(__('Are you sure you want to add this page?'), false);
-               $trans['delete']['page'] = array(__('Are you sure you want to delete this page: &quot;%s&quot;?'), 'get_the_title');
-               $trans['update']['page'] = array(__('Are you sure you want to edit this page: &quot;%s&quot;?'), 'get_the_title');
-
-               $trans['edit']['plugin'] = array(__('Are you sure you want to edit this plugin file: &quot;%s&quot;?'), 'use_id');
-               $trans['activate']['plugin'] = array(__('Are you sure you want to activate this plugin: &quot;%s&quot;?'), 'use_id');
-               $trans['deactivate']['plugin'] = array(__('Are you sure you want to deactivate this plugin: &quot;%s&quot;?'), 'use_id');
-
-               $trans['add']['post'] = array(__('Are you sure you want to add this post?'), false);
-               $trans['delete']['post'] = array(__('Are you sure you want to delete this post: &quot;%s&quot;?'), 'get_the_title');
-               $trans['update']['post'] = array(__('Are you sure you want to edit this post: &quot;%s&quot;?'), 'get_the_title');
-
-               $trans['add']['user'] = array(__('Are you sure you want to add this user?'), false);
-               $trans['delete']['users'] = array(__('Are you sure you want to delete users?'), false);
-               $trans['bulk']['users'] = array(__('Are you sure you want to bulk modify users?'), false);
-               $trans['update']['user'] = array(__('Are you sure you want to edit this user: &quot;%s&quot;?'), 'get_author_name');
-               $trans['update']['profile'] = array(__('Are you sure you want to modify the profile for: &quot;%s&quot;?'), 'get_author_name');
-
-               $trans['update']['options'] = array(__('Are you sure you want to edit your settings?'), false);
-               $trans['update']['permalink'] = array(__('Are you sure you want to change your permalink structure to: %s?'), 'use_id');
-               $trans['edit']['file'] = array(__('Are you sure you want to edit this file: &quot;%s&quot;?'), 'use_id');
-               $trans['edit']['theme'] = array(__('Are you sure you want to edit this theme file: &quot;%s&quot;?'), 'use_id');
-               $trans['switch']['theme'] = array(__('Are you sure you want to switch to this theme: &quot;%s&quot;?'), 'use_id');
-
-               if ( isset($trans[$verb][$noun]) ) {
-                       if ( !empty($trans[$verb][$noun][1]) ) {
+               $trans['update']['attachment'] = array( __( 'Your attempt to edit this attachment: &quot;%s&quot; has failed.' ), 'get_the_title' );
+
+               $trans['add']['category']      = array( __( 'Your attempt to add this category has failed.' ), false );
+               $trans['delete']['category']   = array( __( 'Your attempt to delete this category: &quot;%s&quot; has failed.' ), 'get_catname' );
+               $trans['update']['category']   = array( __( 'Your attempt to edit this category: &quot;%s&quot; has failed.' ), 'get_catname' );
+
+               $trans['delete']['comment']    = array( __( 'Your attempt to delete this comment: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['unapprove']['comment'] = array( __( 'Your attempt to unapprove this comment: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['approve']['comment']   = array( __( 'Your attempt to approve this comment: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['update']['comment']    = array( __( 'Your attempt to edit this comment: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['bulk']['comments']     = array( __( 'Your attempt to bulk modify comments has failed.' ), false );
+               $trans['moderate']['comments'] = array( __( 'Your attempt to moderate comments has failed.' ), false );
+
+               $trans['add']['bookmark']      = array( __( 'Your attempt to add this link has failed.' ), false );
+               $trans['delete']['bookmark']   = array( __( 'Your attempt to delete this link: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['update']['bookmark']   = array( __( 'Your attempt to edit this link: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['bulk']['bookmarks']    = array( __( 'Your attempt to bulk modify links has failed.' ), false );
+
+               $trans['add']['page']          = array( __( 'Your attempt to add this page has failed.' ), false );
+               $trans['delete']['page']       = array( __( 'Your attempt to delete this page: &quot;%s&quot; has failed.' ), 'get_the_title' );
+               $trans['update']['page']       = array( __( 'Your attempt to edit this page: &quot;%s&quot; has failed.' ), 'get_the_title' );
+
+               $trans['edit']['plugin']       = array( __( 'Your attempt to edit this plugin file: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['activate']['plugin']   = array( __( 'Your attempt to activate this plugin: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['deactivate']['plugin'] = array( __( 'Your attempt to deactivate this plugin: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['upgrade']['plugin']    = array( __( 'Your attempt to upgrade this plugin: &quot;%s&quot; has failed.' ), 'use_id' );            
+
+               $trans['add']['post']          = array( __( 'Your attempt to add this post has failed.' ), false );
+               $trans['delete']['post']       = array( __( 'Your attempt to delete this post: &quot;%s&quot; has failed.' ), 'get_the_title' );
+               $trans['update']['post']       = array( __( 'Your attempt to edit this post: &quot;%s&quot; has failed.' ), 'get_the_title' );
+
+               $trans['add']['user']          = array( __( 'Your attempt to add this user has failed.' ), false );
+               $trans['delete']['users']      = array( __( 'Your attempt to delete users has failed.' ), false );
+               $trans['bulk']['users']        = array( __( 'Your attempt to bulk modify users has failed.' ), false );
+               $trans['update']['user']       = array( __( 'Your attempt to edit this user: &quot;%s&quot; has failed.' ), 'get_author_name' );
+               $trans['update']['profile']    = array( __( 'Your attempt to modify the profile for: &quot;%s&quot; has failed.' ), 'get_author_name' );
+
+               $trans['update']['options']    = array( __( 'Your attempt to edit your settings has failed.' ), false );
+               $trans['update']['permalink']  = array( __( 'Your attempt to change your permalink structure to: %s has failed.' ), 'use_id' );
+               $trans['edit']['file']         = array( __( 'Your attempt to edit this file: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['edit']['theme']        = array( __( 'Your attempt to edit this theme file: &quot;%s&quot; has failed.' ), 'use_id' );
+               $trans['switch']['theme']      = array( __( 'Your attempt to switch to this theme: &quot;%s&quot; has failed.' ), 'use_id' );
+
+               if ( isset( $trans[$verb][$noun] ) ) {
+                       if ( !empty( $trans[$verb][$noun][1] ) ) {
                                $lookup = $trans[$verb][$noun][1];
                                $object = $matches[4];
                                if ( 'use_id' != $lookup )
-                                       $object = call_user_func($lookup, $object);
-                               return sprintf($trans[$verb][$noun][0], $object);
+                                       $object = call_user_func( $lookup, $object );
+                               return sprintf( $trans[$verb][$noun][0], wp_specialchars($object) );
                        } else {
                                return $trans[$verb][$noun][0];
                        }
                }
        }
 
-       return apply_filters( 'explain_nonce_' . $verb . '-' . $noun, __('Are you sure you want to do this?'), $matches[4] );
+       return apply_filters( 'explain_nonce_' . $verb . '-' . $noun, __( 'Are you sure you want to do this?' ), $matches[4] );
 }
 
-function wp_nonce_ays($action) {
-       global $pagenow, $menu, $submenu, $parent_file, $submenu_file;
 
-       $adminurl = get_option('siteurl') . '/wp-admin';
+function wp_nonce_ays( $action ) {
+       $title = __( 'WordPress Failure Notice' );
+       $html = wp_specialchars( wp_explain_nonce( $action ) ) . '</p>';
        if ( wp_get_referer() )
-               $adminurl = clean_url(wp_get_referer());
-
-       $title = __('WordPress Confirmation');
-       // Remove extra layer of slashes.
-       $_POST   = stripslashes_deep($_POST  );
-       if ( $_POST ) {
-               $q = http_build_query($_POST);
-               $q = explode( ini_get('arg_separator.output'), $q);
-               $html .= "\t<form method='post' action='" . attribute_escape($pagenow) . "'>\n";
-               foreach ( (array) $q as $a ) {
-                       $v = substr(strstr($a, '='), 1);
-                       $k = substr($a, 0, -(strlen($v)+1));
-                       $html .= "\t\t<input type='hidden' name='" . attribute_escape(urldecode($k)) . "' value='" . attribute_escape(urldecode($v)) . "' />\n";
-               }
-               $html .= "\t\t<input type='hidden' name='_wpnonce' value='" . wp_create_nonce($action) . "' />\n";
-               $html .= "\t\t<div id='message' class='confirm fade'>\n\t\t<p>" . wp_specialchars(wp_explain_nonce($action)) . "</p>\n\t\t<p><a href='$adminurl'>" . __('No') . "</a> <input type='submit' value='" . __('Yes') . "' /></p>\n\t\t</div>\n\t</form>\n";
-       } else {
-               $html .= "\t<div id='message' class='confirm fade'>\n\t<p>" . wp_specialchars(wp_explain_nonce($action)) . "</p>\n\t<p><a href='$adminurl'>" . __('No') . "</a> <a href='" . clean_url(add_query_arg( '_wpnonce', wp_create_nonce($action), $_SERVER['REQUEST_URI'] )) . "'>" . __('Yes') . "</a></p>\n\t</div>\n";
-       }
-       $html .= "</body>\n</html>";
-       wp_die($html, $title);
+               $html .= "<p><a href='" . remove_query_arg( 'updated', clean_url( wp_get_referer() ) ) . "'>" . __( 'Please try again.' ) . "</a>";
+       wp_die( $html, $title);
 }
 
+
 function wp_die( $message, $title = '' ) {
        global $wp_locale;
 
        if ( function_exists( 'is_wp_error' ) && is_wp_error( $message ) ) {
-               if ( empty($title) ) {
+               if ( empty( $title ) ) {
                        $error_data = $message->get_error_data();
-                       if ( is_array($error_data) && isset($error_data['title']) )
+                       if ( is_array( $error_data ) && isset( $error_data['title'] ) )
                                $title = $error_data['title'];
                }
                $errors = $message->get_error_messages();
-               switch ( count($errors) ) :
+               switch ( count( $errors ) ) :
                case 0 :
                        $message = '';
                        break;
@@ -1230,105 +1371,90 @@ function wp_die( $message, $title = '' ) {
                        $message = "<ul>\n\t\t<li>" . join( "</li>\n\t\t<li>", $errors ) . "</li>\n\t</ul>";
                        break;
                endswitch;
-       } elseif ( is_string($message) ) {
+       } elseif ( is_string( $message ) ) {
                $message = "<p>$message</p>";
        }
 
-       if ( defined('WP_SITEURL') && '' != WP_SITEURL ) 
-               $admin_dir = WP_SITEURL.'/wp-admin/'; 
-       elseif (function_exists('get_bloginfo') && '' != get_bloginfo('wpurl'))
-               $admin_dir = get_bloginfo('wpurl').'/wp-admin/'; 
-       elseif (strpos($_SERVER['PHP_SELF'], 'wp-admin') !== false)
+       if ( defined( 'WP_SITEURL' ) && '' != WP_SITEURL )
+               $admin_dir = WP_SITEURL . '/wp-admin/';
+       elseif ( function_exists( 'get_bloginfo' ) && '' != get_bloginfo( 'wpurl' ) )
+               $admin_dir = get_bloginfo( 'wpurl' ) . '/wp-admin/';
+       elseif ( strpos( $_SERVER['PHP_SELF'], 'wp-admin' ) !== false )
                $admin_dir = '';
        else
                $admin_dir = 'wp-admin/';
 
-       if ( !function_exists('did_action') || !did_action('admin_head') ) :
+       if ( !function_exists( 'did_action' ) || !did_action( 'admin_head' ) ) :
        if( !headers_sent() ){
-               status_header(500);
+               status_header( 500 );
                nocache_headers();
-               header('Content-Type: text/html; charset=utf-8');
+               header( 'Content-Type: text/html; charset=utf-8' );
        }
 
-       if ( empty($title) ){
-               if( function_exists('__') )
-                       $title = __('WordPress &rsaquo; Error');
+       if ( empty($title) ) {
+               if ( function_exists( '__' ) )
+                       $title = __( 'WordPress &rsaquo; Error' );
                else
                        $title = 'WordPress &rsaquo; Error';
        }
 
 ?>
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml" <?php if ( function_exists('language_attributes') ) language_attributes(); ?>>
+<html xmlns="http://www.w3.org/1999/xhtml" <?php if ( function_exists( 'language_attributes' ) ) language_attributes(); ?>>
 <head>
-       <title><?php echo $title ?></title>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+       <title><?php echo $title ?></title>
        <link rel="stylesheet" href="<?php echo $admin_dir; ?>css/install.css" type="text/css" />
 <?php
-if ( ( $wp_locale ) && ('rtl' == $wp_locale->text_direction) ) : ?>
+if ( ( $wp_locale ) && ( 'rtl' == $wp_locale->text_direction ) ) : ?>
        <link rel="stylesheet" href="<?php echo $admin_dir; ?>css/install-rtl.css" type="text/css" />
 <?php endif; ?>
 </head>
-<body>
+<body id="error-page">
 <?php endif; ?>
-       <h1 id="logo"><img alt="WordPress" src="<?php echo $admin_dir; ?>images/wordpress-logo.png" /></h1>
        <?php echo $message; ?>
-
 </body>
 </html>
 <?php
        die();
 }
 
-function _config_wp_home($url = '') {
+
+function _config_wp_home( $url = '' ) {
        if ( defined( 'WP_HOME' ) )
                return WP_HOME;
-       else return $url;
+       return $url;
 }
 
-function _config_wp_siteurl($url = '') {
+
+function _config_wp_siteurl( $url = '' ) {
        if ( defined( 'WP_SITEURL' ) )
                return WP_SITEURL;
-       else return $url;
-}
-
-function _mce_set_direction() {
-       global $wp_locale;
-
-       if ('rtl' == $wp_locale->text_direction) {
-               echo 'directionality : "rtl" ,';
-               echo 'theme_advanced_toolbar_align : "right" ,';
-       }
+       return $url;
 }
 
-function _mce_load_rtl_plugin($input) {
-       global $wp_locale;
-
-       if ('rtl' == $wp_locale->text_direction)
-               $input[] = 'directionality';
-
-       return $input;
-}
 
-function _mce_add_direction_buttons($input) {
+function _mce_set_direction( $input ) {
        global $wp_locale;
 
-       if ('rtl' == $wp_locale->text_direction) {
-               $new_buttons = array('separator', 'ltr', 'rtl');
-               $input = array_merge($input, $new_buttons);
+       if ( 'rtl' == $wp_locale->text_direction ) {
+               $input['directionality'] = 'rtl';
+               $input['plugins'] .= ',directionality';
+               $input['theme_advanced_buttons1'] .= ',ltr';
        }
 
        return $input;
 }
 
+
 function smilies_init() {
        global $wpsmiliestrans, $wp_smiliessearch, $wp_smiliesreplace;
 
        // don't bother setting up smilies if they are disabled
-       if ( !get_option('use_smilies') )
+       if ( !get_option( 'use_smilies' ) )
                return;
 
-       if (!isset($wpsmiliestrans)) {
+       if ( !isset( $wpsmiliestrans ) ) {
                $wpsmiliestrans = array(
                ':mrgreen:' => 'icon_mrgreen.gif',
                ':neutral:' => 'icon_neutral.gif',
@@ -1377,48 +1503,67 @@ function smilies_init() {
                );
        }
 
-       $siteurl = get_option('siteurl');
+       $siteurl = get_option( 'siteurl' );
        foreach ( (array) $wpsmiliestrans as $smiley => $img ) {
-               $wp_smiliessearch[] = '/(\s|^)'.preg_quote($smiley, '/').'(\s|$)/';
-               $smiley_masked = htmlspecialchars(trim($smiley), ENT_QUOTES);
+               $wp_smiliessearch[] = '/(\s|^)' . preg_quote( $smiley, '/' ) . '(\s|$)/';
+               $smiley_masked = attribute_escape( trim( $smiley ) );
                $wp_smiliesreplace[] = " <img src='$siteurl/wp-includes/images/smilies/$img' alt='$smiley_masked' class='wp-smiley' /> ";
        }
 }
 
+
 function wp_parse_args( $args, $defaults = '' ) {
-       if ( is_object($args) )
-               $r = get_object_vars($args);
-       else if ( is_array( $args ) )
+       if ( is_object( $args ) )
+               $r = get_object_vars( $args );
+       elseif ( is_array( $args ) )
                $r =& $args;
        else
                wp_parse_str( $args, $r );
 
        if ( is_array( $defaults ) )
                return array_merge( $defaults, $r );
-       else
-               return $r;
+       return $r;
 }
 
+
 function wp_maybe_load_widgets() {
        if ( !function_exists( 'dynamic_sidebar' ) ) {
-               require_once ABSPATH . WPINC . '/widgets.php';
+               require_once( ABSPATH . WPINC . '/widgets.php' );
                add_action( '_admin_menu', 'wp_widgets_add_menu' );
        }
 }
 
+
 function wp_widgets_add_menu() {
        global $submenu;
        $submenu['themes.php'][7] = array( __( 'Widgets' ), 'switch_themes', 'widgets.php' );
-       ksort($submenu['themes.php'], SORT_NUMERIC);
+       ksort( $submenu['themes.php'], SORT_NUMERIC );
 }
 
+
 // For PHP 5.2, make sure all output buffers are flushed
 // before our singletons our destroyed.
-function wp_ob_end_flush_all()
-{
+function wp_ob_end_flush_all() {
        while ( @ob_end_flush() );
 }
 
+
+/*
+ * require_wp_db() - require_once the correct database class file.
+ *
+ * This function is used to load the database class file either at runtime or by wp-admin/setup-config.php
+ * We must globalise $wpdb to ensure that it is defined globally by the inline code in wp-db.php
+ *
+ * @global $wpdb
+ */
+function require_wp_db() {
+       global $wpdb;
+       if ( file_exists( ABSPATH . 'wp-content/db.php' ) )
+               require_once( ABSPATH . 'wp-content/db.php' );
+       else
+               require_once( ABSPATH . WPINC . '/wp-db.php' );
+}
+
 function dead_db() {
        global $wpdb;
 
@@ -1440,8 +1585,9 @@ function dead_db() {
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" <?php if ( function_exists( 'language_attributes' ) ) language_attributes(); ?>>
 <head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <title>Database Error</title>
-       <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+
 </head>
 <body>
        <h1>Error establishing a database connection</h1>
@@ -1451,4 +1597,156 @@ function dead_db() {
        die();
 }
 
+/**
+ * Converts input to an absolute integer
+ * @param mixed $maybeint data you wish to have convered to an absolute integer
+ * @return int an absolute integer
+ */
+function absint( $maybeint ) {
+       return abs( intval( $maybeint ) );
+}
+
+/**
+ * Determines if the blog can be accessed over SSL
+ * @return bool whether of not SSL access is available
+ */
+function url_is_accessable_via_ssl($url)
+{
+       if (in_array('curl', get_loaded_extensions())) {
+                $ssl = preg_replace( '/^http:\/\//', 'https://',  $url );
+
+                $ch = curl_init();
+                curl_setopt($ch, CURLOPT_URL, $ssl);
+                curl_setopt($ch, CURLOPT_FAILONERROR, true);
+                curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
+                curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
+
+                curl_exec($ch);
+
+                $status = curl_getinfo($ch, CURLINFO_HTTP_CODE);
+                curl_close ($ch);
+
+                if ($status == 200 || $status == 401) {
+                        return true;
+                }
+       }
+       return false;
+}
+
+function atom_service_url_filter($url)
+{
+       if ( url_is_accessable_via_ssl($url) )
+               return  preg_replace( '/^http:\/\//', 'https://',  $url );
+       else
+               return $url;
+}
+
+/**
+ * _deprecated_function() - Marks a function as deprecated and informs when it has been used.
+ *
+ * There is a hook deprecated_function_run that will be called that can be used to get the backtrace
+ * up to what file and function called the deprecated function.
+ *
+ * The current behavior is to trigger an user error if WP_DEBUG is defined and is true.
+ *
+ * This function is to be used in every function in depreceated.php
+ *
+ * @package WordPress
+ * @package Debug
+ * @since 2.5
+ * @access private
+ *
+ * @uses do_action() Calls 'deprecated_function_run' and passes the function name and what to use instead.
+ * @uses apply_filters() Calls 'deprecated_function_trigger_error' and expects boolean value of true to do trigger or false to not trigger error.
+ *
+ * @param string $function The function that was called
+ * @param string $version The version of WordPress that depreceated the function
+ * @param string $replacement Optional. The function that should have been called
+ */
+function _deprecated_function($function, $version, $replacement=null) {
+
+       do_action('deprecated_function_run', $function, $replacement);
+
+       // Allow plugin to filter the output error trigger
+       if( defined('WP_DEBUG') && ( true === WP_DEBUG ) && apply_filters( 'deprecated_function_trigger_error', true )) {
+               if( !is_null($replacement) )
+                       trigger_error( printf( __("%1$s is <strong>deprecated</strong> since version %2$s! Use %3$s instead."), $function, $version, $replacement ) );
+               else
+                       trigger_error( printf( __("%1$s is <strong>deprecated</strong> since version %2$s with no alternative available."), $function, $version ) );
+       }
+}
+
+/**
+ * _deprecated_file() - Marks a file as deprecated and informs when it has been used.
+ *
+ * There is a hook deprecated_file_included that will be called that can be used to get the backtrace
+ * up to what file and function included the deprecated file.
+ *
+ * The current behavior is to trigger an user error if WP_DEBUG is defined and is true.
+ *
+ * This function is to be used in every file that is depreceated
+ *
+ * @package WordPress
+ * @package Debug
+ * @since 2.5
+ * @access private
+ *
+ * @uses do_action() Calls 'deprecated_file_included' and passes the file name and what to use instead.
+ * @uses apply_filters() Calls 'deprecated_file_trigger_error' and expects boolean value of true to do trigger or false to not trigger error.
+ *
+ * @param string $file The file that was included
+ * @param string $version The version of WordPress that depreceated the function
+ * @param string $replacement Optional. The function that should have been called
+ */
+function _deprecated_file($file, $version, $replacement=null) {
+
+       do_action('deprecated_file_included', $file, $replacement);
+
+       // Allow plugin to filter the output error trigger
+       if( defined('WP_DEBUG') && ( true === WP_DEBUG ) && apply_filters( 'deprecated_file_trigger_error', true )) {
+               if( !is_null($replacement) )
+                       trigger_error( printf( __("%1$s is <strong>deprecated</strong> since version %2$s! Use %3$s instead."), $file, $version, $replacement ) );
+               else
+                       trigger_error( printf( __("%1$s is <strong>deprecated</strong> since version %2$s with no alternative available."), $file, $version ) );
+       }
+}
+
+/**
+ * is_lighttpd_before_150() - Is the server running earlier than 1.5.0 version of lighttpd
+ *
+ * @return bool Whether the server is running lighttpd < 1.5.0
+ */
+function is_lighttpd_before_150() {
+       $server_parts = explode( '/', isset( $_SERVER['SERVER_SOFTWARE'] )? $_SERVER['SERVER_SOFTWARE'] : '' );
+       $server_parts[1] = isset( $server_parts[1] )? $server_parts[1] : '';
+       return  'lighttpd' == $server_parts[0] && -1 == version_compare( $server_parts[1], '1.5.0' );
+}
+
+/**
+ * apache_mod_loaded() - Does the specified module exist in the apache config?
+ *
+ * @param string $mod e.g. mod_rewrite
+ * @param bool $default The default return value if the module is not found
+ * @return bool
+ */
+function apache_mod_loaded($mod, $default = false) {
+       global $is_apache;
+
+       if ( !$is_apache )
+               return false;
+
+       if ( function_exists('apache_get_modules') ) {
+               $mods = apache_get_modules();
+               if ( in_array($mod, $mods) )
+                       return true;
+       } elseif ( function_exists('phpinfo') ) {
+                       ob_start();
+                       phpinfo(8);
+                       $phpinfo = ob_get_clean();
+                       if ( false !== strpos($phpinfo, $mod) )
+                               return true;
+       }
+       return $default;
+}
+
 ?>