初代PPC Mac miniで作るアラートシステム 〜 外貨預金編 その1〜

せっかく開腹手術してこれまでつかっている初代PPC Mac miniなので、立派な仕事をしてもらう事にしました！？

注意

AppleScript経由でSafariを動かしている関係で、デスクトップマシンとして常用されている環境ではとても実用になりません。

やり方

fxdbという名前で以下のようにPostgreSQLサーバに用意する。

createdb -E EUC_JP fxdb

以下のテーブルを作成する。

create table eur_rate( timestamp timestamp, ttb varchar(8) ) create table usd_rate( timestamp timestamp, ttb varchar(8) )

購入した時のTTSを以下のように設定する。

vi /Volumes/MobileMeのアカウント名/Web/Sites/fx/eur.txt vi /Volumes/MobileMeのアカウント名/Web/Sites/fx/usd.txt

moneykit.scptをSafariをAppleScriptで操る〜 外貨預金編　その2 〜を参考に作成する。

以下をchkFx.plという名前で保存して、crontab -eして登録する。

#!/usr/bin/perl # TTBが基準額に達したらアラートメールを送信する。 use Net::SMTP; use Jcode; use DBI; my $fromAddr = '送信元アドレス'; my $sendAddr = 'docomo.ne.jpとかアラート通知先のアドレス'; my $mailhost ="SMTPサーバのアドレス"; my $mailhostId="SMTPサーバのアカウント名"; my $idiskId = "MobileMeのアカウント名"; my $moneykitScript="/Users/あなたのMac miniのログイン名/Documents/moneykit.scpt"; my $dbhost="postgresqlのアドレス"; my $dbname="fxdb"; my $dbuser="postgresqlのアカウント名"; my $dbpasswd="postgresqlのパスワード"; my $ttbDir = "/Volumes/".$idiskId."/Web/Sites/fx"; #AppleScript経由でMoneykitサイトからTTBを取得する my $rc = `osascript $moneykitScript`; #EURのTTBを取得する $eurTtb = `cat $ttbDir/eurTtb.txt`; $eurTtb =~ s/\n//go; #EURのTTBをDBに登録する。 recordEur($eurTtb); $savedMaxEurTtb = `cat $ttbDir/savedMaxEurTtb.txt`; #print "savedMaxEurTtb = $savedMaxEurTtb\n"; if ($eurTtb > $savedMaxEurTtb) {     my $rc = `echo $eurTtb > $ttbDir/savedMaxEurTtb.txt`; } $eurTarget = `cat $ttbDir/eur.txt`; $eurTarget = $eurTarget+1; if ($eurTtb > $eurTarget and $eurTtb == $savedMaxEurTtb) {     $smtp=Net::SMTP->new($mailhost,Debug=>0);     $smtp->mail($mailhostId);     $smtp->to($sendAddr);         $smtp->data();     $smtp->datasend("To: $sendAddr\n");     $smtp->datasend("From: $fromAddr\n");     $smtp->datasend("Subject: EUR TTB=$eurTtb\n");     $smtp->datasend("\n");     $smtp->datasend(jcode("EUR売ってもOK。\n")->jis);     $smtp->datasend("EUR TTB = $eurTtb\n");     $smtp->datasend(jcode(`date`)->jis);     $smtp->datasend();     $smtp->quit; } #print "EUR TTB = $eurTtb\n"; #print "EUR target = $eurTarget\n"; #USDのTTBを取得する $usdTtb = `cat $ttbDir/usdTtb.txt`; $usdTtb =~ s/\n//go; #USDのTTBをDBに登録する。 recordUsd($usdTtb); $savedMaxUsdTtb = `cat $ttbDir/savedMaxUsdTtb.txt`; if ($usdTtb > $savedMaxUsdTtb) {     my $rc = `echo $usdTtb > $ttbDir/savedMaxUsdTtb.txt`; } $usdTarget = `cat $ttbDir/usd.txt`; $usdTarget = $usdTarget+1; if ($usdTtb > $usdTarget and $usdTtb == $savedMaxUsdTtb) {     $smtp=Net::SMTP->new($mailhost,Debug=>0);     $smtp->mail($mailhostId);     $smtp->to($sendAddr);         $smtp->data();     $smtp->datasend("To: $sendAddr\n");     $smtp->datasend("From: $fromAddr\n");     $smtp->datasend("Subject: USD TTB=$usdTtb\n");     $smtp->datasend("\n");     $smtp->datasend(jcode("USD売ってもOK。\n")->jis);     $smtp->datasend("USD TTB = $usdTtb\n");     $smtp->datasend(jcode(`date`)->jis);     $smtp->datasend();     $smtp->quit; } # EURのTTBをDBに登録する sub recordEur() {     my $ttb = shift;     my $conn =  DBI->connect("dbi:Pg:dbname=$dbname;host=$dbhost",$dbuser,      $dbpasswd);     my $sqlIns = "insert into eur_rate (timestamp,ttb) \ values (now(),?) ";     my $sthIns = $conn->prepare($sqlIns);     my $rc = $sthIns->execute($ttb);     $sthIns->finish;         $conn->disconnect; } #end recordEur # USDのTTBをDBに登録する sub recordUsd() {     my $ttb = shift;     my $conn =  DBI->connect("dbi:Pg:dbname=$dbname;host=$dbhost",$dbuser,      $dbpasswd);     my $sqlIns = "insert into usd_rate (timestamp,ttb) \ values (now(),?) ";     my $sthIns = $conn->prepare($sqlIns);     my $rc = $sthIns->execute($ttb);     $sthIns->finish;         $conn->disconnect; } #end recordUsd