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); } ?> ゴーゴー！ショボプレッサ

PROFILE


スバル インプレッサGDA-F
2005年7月登録の新車。GDBに比べるとエンジンがショボかったりギアが5速しかなくて岡山国際なんかではあちこちで困ったりするけどそこそこのタイムは出る。
元々はこの車のブログとしてスタートしたが、今では主役の座を小鳥に譲っている

ポテコ
白文鳥のちまりと一緒に雛の状態で迎えたセキセイインコ。文鳥の鳴き声を聞く時間が長いせいか、文鳥のような鳴き方をする。性格はフレンドリーで、手乗り。

ミコミコ(2006-2013)
結婚する前から妻が飼っていた桜文鳥。妻が雛から育てたらしい。人にものすごくなついている手乗り文鳥。本名は｢みこみこゴールデンサンダーバード1号｣らしい。文鳥にサンダーバードもないと思うのだが、このドメインのmikomiko-gtbはここから来ている。

ちまり(2008-2015)
2008年10月下旬に雛で迎えた白文鳥。生まれたのは多分10月上旬。目つきが鋭く、なんとなくCSI：NYのマック・テイラーに似ている。ミコミコほどなついていないが、一応手乗り文鳥。



Site search

CALENDAR

2023年6月
日 月 火 水 木 金 土
« 12月    
 123
45678910
11121314151617
18192021222324
252627282930  

CATEGORIES

ARCHIVES

Links:

カー用品のご紹介

小鳥飼育用品のご紹介

自分の再建の心配だけすれば良いと思う

ブログランキングに参加しています。
人気ブログランキングへ人気ブログランキングへ人気ブログランキングへ

Posted: 2016年12月24日 11:43 AM under 3:日記.
Comments: none

ダイレクトイグニッション

ブログランキングに参加しています。
人気ブログランキングへ人気ブログランキングへ人気ブログランキングへ

Posted: 2016年12月11日 6:38 PM under 1:クルマ生活, 3:日記, インプレッサGDA.
Comments: none

スロットル開度センサ

ブログランキングに参加しています。
人気ブログランキングへ人気ブログランキングへ人気ブログランキングへ

Posted: 2016年12月6日 9:22 PM under 1:クルマ生活, インプレッサGDA.
Comments: none

保育園が使い辛くて困る

ブログランキングに参加しています。
人気ブログランキングへ人気ブログランキングへ人気ブログランキングへ

Posted: 2016年12月3日 10:09 PM under 3:日記.
Comments: none

ポケモンGOへの不安

ブログランキングに参加しています。
人気ブログランキングへ人気ブログランキングへ人気ブログランキングへ

Posted: 2016年8月11日 9:36 PM under 3:日記.
Comments: none

« Previous entries