$pref->appendChild($dom->createElement('discomfort', $wg["fukai"]));
    $weekjp = array('日', '月', '火', '水', '木', '金', '土');
    $weekno = date('w');
    $week_X = "〔" . $weekjp[$weekno] . "〕";
    $pref = $prefs->appendChild($dom->createElement('pref'));
    $pref->setAttribute('code', 'DATE');
    $pref->appendChild($dom->createElement('time', date("Y年m月j日") . $week_X . date(" H時i分")));
    $pref->appendChild($dom->createElement('time_ampm', date("Y年m月j日") . $week_X . date(" A h:i")));
    $dom->formatOutput = true;
    $save_file = "/etc/zabbix/externalscripts/" . $OUT_FILE;
    $dom->save($save_file);
}
//-----------------------------------------------------------------------
if ($argc != 4) {
    $LAT = "35.6811856";
    $LON = "139.7638611";
    $OUT_FILE = "weather_prefs.xml";
} else {
    $LAT = $argv[1];
    $LON = $argv[2];
    $OUT_FILE = $argv[3];
}
echo "LAT=" . $LAT . "\nLON=" . $LON . "\nOUT_FILE=" . $OUT_FILE . "\nで出力します。\n";
$WW = new Weather_Class();
$owm = $WW->openweathermap();
$wg = $WW->wunderground();
if ($wg["pressure_now2"] == 0) {
    echo "気圧が、おかしな数値です。";
    exit;
}
file_write();
        if ($Power["Tokyo"]["den_alive"] == "good") {
            $message .= "東京電力電力使用率:" . floor($Power["Tokyo"]["den_per"]) . "% \n";
            if ($Power["Tokyo"]["den_per"] >= 90) {
                $message .= $setsuden;
            } else {
                $message .= $kansya;
            }
        }
    }
    $message .= "#" . $SHARP;
    return $message;
}
//-----------------------------------------------------------------------------------
$TT = new Twitter_Class();
$DD = new Denryoku_Class();
$WW = new Weather_Class();
$wg = $WW->wunderground();
$power_company = array("Hokkaido", "Tohoku", "Tokyo", "Chubu", "Hokuriku", "Kansai", "Chugoku", "Shikoku", "Kyushu", "Okinawa");
$PP = $DD->StoreDenryoku();
for ($i = 0; $i < 10; $i++) {
    $Power[$power_company[$i]] = $PP[$power_company[$i]];
}
if ($wg == NULL) {
    echo "ERROR";
    exit;
}
$message = file_write();
//-------------------------------------------------------------------
$status = $message;
if (strstr($PLACE_NAME, "宮城県") || strstr($PLACE_NAME, "新潟県") || strstr($PLACE_NAME, "青森県")) {
    $image["Denryoku"] = $graph["Tohoku"];
    $message .= $PLACE_NAME . "天気予報▶\n";
    $message .= $wg["conditions_wg"] . " \n";
    $message .= "最低気温:" . $wg["temp_low_wg"] . "℃ \n";
    $message .= "最高気温:" . $wg["temp_high_wg"] . "℃ \n";
    $message .= "平均湿度:" . $wg["humidity_wg"] . "% \n";
    $message .= "平均風向:" . $wg["kazamuki"] . " \n";
    $message .= "平均風速:" . $wg["windspeed"] . "㎧ \n";
    $message .= "最大風速:" . $wg["max_windspeed"] . "㎧ \n";
    $message .= "降水確率:" . $wg["pop"] . "% \n";
    $message .= "日降水量:" . $wg["qpf_allday"] . "㎜ \n";
    $message .= "日降雪量:" . $wg["snow_allday"] . "㎝ \n";
    $message .= "#" . $SHARP;
    return $message;
}
$TT = new Twitter_Class();
$WW = new Weather_Class();
$wg = $WW->wunderground_forecast();
if ($wg == NULL) {
    echo "ERROR";
    exit;
} else {
    echo "GOOD DATA";
    $message = file_write($wg);
}
$status = $message;
//-------------------------------------------------------------------------
$twitter = new tmhOauth(array("consumer_key" => $consumer_key, "consumer_secret" => $consumer_secret, "token" => $token, "secret" => $secret, "curl_ssl_verifypeer" => false));
//-------------------------------------------------------------------------
$image["icon"] = $wg["icon_url"];
if ($wg["icon_url"] == NULL) {
    unset($image["icon"]);