aka) Author: Christian Davén Version: 2.0 Author URI: http://www.daven.se/usefulstuff/ */ # adds an options page to the options menu function SUP_add_options_page() { if(function_exists("add_options_page")) add_options_page("Smart Update Pinger", "Smart Update Pinger", 5, basename(__FILE__), "SUP_show_options_page"); } # shows the options page function SUP_show_options_page() { $ping = get_option("SUP_ping"); $uris = get_option("ping_sites"); $pingservicesnow = "今すぐ ping を送信!"; if(isset($_POST["ping"]) && $_POST["ping"] == $pingservicesnow) { SUP_log("手動で ping を送信中 ..."); SUP_ping_services(); } elseif(isset($_POST["submit"])) { $uris = $_POST["uris"]; $ping = 0; if($_POST["ping"] == 1) $ping = 1; update_option("SUP_ping", $ping); update_option("ping_sites", $uris); echo '

設定を保存しました.

'; } $checked = ''; if($ping == 1) $checked = 'checked="checked"'; echo '

ping 送信先のサーバ

以下に登録されている ping サーバへは記事を投稿する際,自動的に ping 送信や更新通知がなされます。WordPress が通常行うような,以前書いた記事の編集時ではありません

注意: このリストは オリジナルのアップデートサービスリストと同期します。.

複数サーバを登録する際は改行で URI を分けて下さい

Ping 送信ログ

このプラグインのログです(下に行くほど新しいログです)

'.SUP_get_last_log_entries(20).'

'; } # telling WordPress to ping if the post is new, but not if it's just been edited function SUP_ping_if_new($id) { global $wpdb, $post_title; if(get_option('SUP_ping') == 1 and get_option('ping_sites') != "") { # fetches data directly from database; the function "get_post" is cached, # and using it here will get the post as is was before the last save $row = mysql_fetch_array(mysql_query( "SELECT post_date,post_modified FROM $wpdb->posts WHERE id=$id")); # if time when created equals time when modified it is a new post, # otherwise the author has edited/modified it if($row["post_date"] == $row["post_modified"]) { if($post_title) SUP_log("Pinging services (new post: “".$post_title."”) ..."); else SUP_log("Pinging services (新規の記事の投稿) ..."); SUP_ping_services(); # Try commenting the line above, and uncommenting this line below # if pinging seems to be out of order. Please notify the author if it helps! # generic_ping(); } else { if($post_title) SUP_log("NOT pinging services (“".$post_title."” の設定が変更されました)"); else SUP_log("NOT pinging services (記事が編集されました)"); } } else SUP_log("NOT pinging services (管理者が ping 送信を無効にしています)"); } # More or less a copy of WP's "generic_ping" from functions.php, # but uses another function to send the actual XML-RPC messages. function SUP_ping_services() { $services = get_settings('ping_sites'); $services = preg_replace("|(\s)+|", '$1', $services); // Kill dupe lines $services = trim($services); if ( '' != $services ) { $services = explode("\n", $services); foreach ($services as $service) SUP_send_xmlrpc($service); } } # A slightly modified version of the WordPress built-in ping functionality ("weblog_ping" in functions.php). # This one uses correct extendedPing format (WP does not), and logs response from service. function SUP_send_xmlrpc($server = '', $path = '') { global $wp_version; include_once (ABSPATH . WPINC . '/class-IXR.php'); // using a timeout of 3 seconds should be enough to cover slow servers $client = new IXR_Client($server, ((!strlen(trim($path)) || ('/' == $path)) ? false : $path)); $client->timeout = 3; $client->useragent .= ' -- WordPress/'.$wp_version; // when set to true, this outputs debug messages by itself $client->debug = false; $home = trailingslashit( get_option('home') ); # the extendedPing format should be "blog name", "blog url", "check url" (whatever that is), and "feed url", # but it would seem as if the standard has been mixed up. it's therefore best to repeat the feed url. if($client->query('weblogUpdates.extendedPing', get_settings('blogname'), $home, get_bloginfo('rss2_url'), get_bloginfo('rss2_url'))) { SUP_log("- ".$server." への ping 送信が成功しました (拡張フォーマット)"); } else { # pinging was unsuccessful, trying regular ping format if($client->query('weblogUpdates.ping', get_settings('blogname'), $home)) { SUP_log("- ".$server." への ping 送信が成功しました"); } else { SUP_log("- ".$server." への ping 送信が失敗しました。 以下のエラーメッセージが返されました: “".$client->error->message."”"); } } } $post_title = ""; # Receives the title of the post from a filter below function SUP_post_title($title) { global $post_title; $post_title = $title; return $title; } # ----- # Log stuff $logfile = ABSPATH."wp-content/smart-update-pinger.log"; # for debugging function SUP_log($line) { global $logfile; $fh = @fopen($logfile, "a"); @fwrite($fh, strftime("%D %T")."\t$line\n"); @fclose($fh); } function SUP_get_last_log_entries($num) { global $logfile; $lines = @file($logfile); if($lines === false) return "Error reading log file (".$logfile."). This could mean that the wp-content directory is write-protected and no log data can be saved, that you have manually removed the log file, or that you have recently upgraded the plugin."; else { $lines = array_slice($lines, count($lines) - $num); $msg = ""; foreach($lines as $line) $msg .= trim($line)."
"; return $msg; } } # ----- # adds a filter to receive the title of the post before publishing add_filter("title_save_pre", "SUP_post_title"); # adds some hooks # shows the options in the administration panel add_action("admin_menu", "SUP_add_options_page"); # calls SUP_ping whenever a post is published add_action("publish_post", "SUP_ping_if_new"); # calls SUP_ping_draft when changing the status from private/draft to published # add_action("private_to_published', 'SUP_ping_draft'); # removes the "WordPress official" pinging hook remove_action("publish_post", "generic_ping"); # activates pinging if setting doesn't exist in database yet # (before the user has changed the settings the first time) if(get_option("SUP_ping") === false) { update_option("SUP_ping", 1); } ?> 立川断層帯 地震確率高く

立川断層帯 地震確率高く

 ◊ 立川断層帯地震確率高く
           
 政府示唆 明確な数値は示さず
 
     政府の地震調査委員会が6月、東日本大震災の響で、「立
    川断層帯」の地震発生確率が高くなった
可能性があると発表
    した。専門家は「やみくもに怖がる必要はない」と冷静な対
    応を求めているが、
明確な数値が示されたわけではなかった
    ため、周辺住民の間に不安が広がっている。 (前村尚)
 
 
  「立川断層帯はどこを通っているのか」「うちは大丈夫か」―――。69日の調査発表翌
 日から、
立川市防災課には、市民からの問い合わせが相次いだ。窓口に直接、訪れる市民の
 姿もあり、71
日までに相談件数は、約100件にのぼった。
  埼玉県飯能市から立川市などを通って、府中市に延びる約33キロ・メートルの断層地帯
 で、「名栗
断層」と「立川断層」と呼ばれる二つの断層で形成していると考えられている。
 調査委は2003年、「今
30年以内にマグネチュード(M)7・4程度の地震が起きる確率
 は0.52.0%」と算定した。
  だが、今回は確率を出さなかった。文部科学省の地震調査研究推進本部によると、東日本
 大震災後、
日本の陸地が東西方向に伸びてしまい、この地殻変動によって「断層帯に加わる
 力」がどう変わった
のかを調べる必要があったからだ。
  国土地理院によると、全地球測位システム(GPS)のデータから、牡鹿半島(宮城県)の
 位置が東南東に5メートル30センチ、多摩地区でも八王子市が東に16センチ、町田市も14
 ンチ移動したことが判明した。調査委は、こうした位置のズレや断層帯にかかる力の値を計
 算した。
 
 その結果、立川断層帯に加わる力が、論文などで、地震の発生確率が上がる可能性が指摘
 されてい
る数値に近づいたため、公表したという。
  ただ、具体的な数値が示されていないため、判然としない。そもそも0.52.0%がどれくら
 い深刻
なのか。調査委では、一般的な事例として、自宅が30年間に「台風の被害を受ける確
 率(0.48%)」
や「火災にあう確率(1,9%)」と同じようなレベルだと説明する。
 
 調査委のメンバーで立川断層帯を初めて専門的に研究した首都大東京の山崎晴雄教授によ
 ると、調
査や文献から、最後に地震が起きたのは約2万~13000年前で、立川断層帯は約1
 
万~15000
年に1度しか活動しないと推定しているという。
 
 山崎教授は「数千年以内に活動するのは間違いない」と話すが、多摩地区の地盤は揺れに
 強い泥岩
や砂利の層があり、壊滅的なダメージは受けにくいとみている。
                  (2011.7.7 読売新聞 朝刊より転載)