コンピュータ – ページ 19

IMAPのフォルダ比較

Gmailの「すべてのメール」のフォルダのメールを新しい順に200通取り出して比較し、メールが存在する方に○、存在しない方に×を表示するプログラムを作った。

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">

	<head>
		<title>メールチェック</title>
		<meta http-equiv="content-type" content="text/html;charset=utf-8" />
		<meta name="generator" content="Geany 1.23.1" />
		<style type="text/css">
			table {
				table-layout: fixed;
				word-wrap: break-word;
				width:100%;
				border-collapse: collapse;
			}
			table, td, th{
				border: 1px #000000 solid;
				overflow: hidden;
				white-space: nowrap;
				text-overflow: ellipsis;
			}
		</style>
	</head>

	<body>
		<table>
			<tr><th style="width:250px">送信者</th><th>タイトル</th><th style="width:200px">時刻</th><th style="width:50px">主</th><th style="width:50px">副</th></tr>
<?php
$master_mbox = imap_open('{imap.gmail.com:993/imap/ssl}[Gmail]/&MFkweTBmMG4w4TD8MOs-', 'master@example.com', 'MasterPassword', OP_READONLY) or die("接続できません: " . imap_last_error());;
$slave_mbox = imap_open('{imap.gmail.com:993/imap/ssl}[Gmail]/&MFkweTBmMG4w4TD8MOs-', 'slave@example.com', 'SlavePassword', OP_READONLY) or die("接続できません: " . imap_last_error());;

$MC = imap_check($master_mbox);

$m_max = $MC->Nmsgs;
$m_min = $MC->Nmsgs - 200;
if ($m_min < 0) {
	$m_min = 1;
}
$MC = imap_check($slave_mbox);
$s_max = $MC->Nmsgs;
$s_min = $MC->Nmsgs - 200;
if ($s_min < 0) {
	$s_min = 1;
}

$master_result = imap_fetch_overview($master_mbox, $m_min . ':' . $m_max);
$slave_result = imap_fetch_overview($slave_mbox, $s_min . ':' . $s_max);

$mmsg_ids = array();
$mdates = array();
foreach($master_result as $key=>$overview){
	$mmsg_ids[$overview->message_id] = &$master_result[$key];
	$mdates[$overview->message_id] = strtotime($overview->date);
}
$smsg_ids = array();
$sdates = array();
foreach($slave_result as $key=>$overview){
	$smsg_ids[$overview->message_id] = &$slave_result[$key];
	$sdates[$overview->message_id] = strtotime($overview->date);
}

$dates = array_merge($mdates, $sdates);
$msg_ids = array_merge($mmsg_ids, $smsg_ids);

array_multisort($dates, $msg_ids);
$msg_ids = array_reverse($msg_ids);


foreach ($msg_ids as $message_id=>$overview) {

	$mmark = '×';
	$smark = '×';
	if(isset($mmsg_ids[$message_id])){
		$mmark = '○';
	}
	if(isset($smsg_ids[$message_id])){
		$smark = '○';
	}

	$subject = imap_utf8($overview->subject);
	$date = date('Y/m/d H:i:s', strtotime($overview->date));
	$from = imap_utf8($overview->from);
	$subject = htmlspecialchars($subject);
	$from = htmlspecialchars($from);

	echo "<tr><td>{$from}</td><td>{$subject}</td><td style='text-align:center;'>{$date}</td><td style='text-align:center;'>{$mmark}</td><td style='text-align:center;'>{$smark}</td></tr>\n";
}
imap_close($master_mbox);
imap_close($slave_mbox);
?>
		</table>
	</body>

</html>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<head>

<title>メールチェック</title>

table {

table-layout: fixed;

word-wrap: break-word;

width:100%;

border-collapse: collapse;

}

table, td, th{

border: 1px #000000 solid;

overflow: hidden;

white-space: nowrap;

text-overflow: ellipsis;

}

</style>

</head>

<body>

<table>

<?php

$master_mbox = imap_open('{imap.gmail.com:993/imap/ssl}[Gmail]/&MFkweTBmMG4w4TD8MOs-', 'master@example.com', 'MasterPassword', OP_READONLY) or die("接続できません: " . imap_last_error());;

$slave_mbox = imap_open('{imap.gmail.com:993/imap/ssl}[Gmail]/&MFkweTBmMG4w4TD8MOs-', 'slave@example.com', 'SlavePassword', OP_READONLY) or die("接続できません: " . imap_last_error());;

$MC = imap_check($master_mbox);

$m_max = $MC->Nmsgs;

$m_min = $MC->Nmsgs - 200;

if ($m_min < 0) {

$m_min = 1;

}

$MC = imap_check($slave_mbox);

$s_max = $MC->Nmsgs;

$s_min = $MC->Nmsgs - 200;

if ($s_min < 0) {

$s_min = 1;

}

$master_result = imap_fetch_overview($master_mbox, $m_min . ':' . $m_max);

$slave_result = imap_fetch_overview($slave_mbox, $s_min . ':' . $s_max);

$mmsg_ids = array();

$mdates = array();

foreach($master_result as $key=>$overview){

$mmsg_ids[$overview->message_id] = &$master_result[$key];

$mdates[$overview->message_id] = strtotime($overview->date);

}

$smsg_ids = array();

$sdates = array();

foreach($slave_result as $key=>$overview){

$smsg_ids[$overview->message_id] = &$slave_result[$key];

$sdates[$overview->message_id] = strtotime($overview->date);

}

$dates = array_merge($mdates, $sdates);

$msg_ids = array_merge($mmsg_ids, $smsg_ids);

array_multisort($dates, $msg_ids);

$msg_ids = array_reverse($msg_ids);

foreach ($msg_ids as $message_id=>$overview) {

$mmark = '×';

$smark = '×';

if(isset($mmsg_ids[$message_id])){

$mmark = '○';

}

if(isset($smsg_ids[$message_id])){

$smark = '○';

}

$subject = imap_utf8($overview->subject);

$date = date('Y/m/d H:i:s', strtotime($overview->date));

$from = imap_utf8($overview->from);

$subject = htmlspecialchars($subject);

$from = htmlspecialchars($from);

echo "<tr><td>{$from}</td><td>{$subject}</td><td style='text-align:center;'>{$date}</td><td style='text-align:center;'>{$mmark}</td><td style='text-align:center;'>{$smark}</td></tr>\n";

}

imap_close($master_mbox);

imap_close($slave_mbox);

</table>

</body>

</html>

array_column()が使えれば、もっとシンプルに書けるけど、オブジェクトのキー検索が使えるのは、PHP7以降なんだな。

ちなみに php5-imap が必要。

意外と使えないIMAPのSEARCH

皇紀2678年2月8日2018年2月10日

意外と使えないIMAPのSEARCH

Ubuntu 14.04に php5-imap入れて、メールを抽出しようと思って、Message-Id で抽出できるかと思ったらできない。

Subject 検索も取り出したメールのSubject を imap_utf8()掛けてimap_search()で検索してもUTF8のMIMEエンコードされているとSubjectが一致しない。

日時で一致するものを抽出しようとして ON のキーワードを使おうとするも、日付は見てるけど、時間は見てないし、タイムゾーンが勝手にlocalになっているのか、+6:00 とかが引っ掛からない。

多分、英文だったら結構使えるのかもしれないけど、MIMEエンコードが絡むメールだと検索が凄く弱い。

IMAPって使えると思ってたけど、意外と駄目なのねん。

root@silverfox:~# apt-get install php5-imap
パッケージリストを読み込んでいます... 完了
依存関係ツリーを作成しています
状態情報を読み取っています... 完了
以下の追加パッケージがインストールされます:
libc-client2007e mlock
提案パッケージ:
uw-mailutils
以下のパッケージが新たにインストールされます:
libc-client2007e mlock php5-imap
アップグレード: 0 個、新規インストール: 3 個、削除: 0 個、保留: 0 個。
628 kB のアーカイブを取得する必要があります。
この操作後に追加で 1,535 kB のディスク容量が消費されます。
続行しますか? [Y/n]

root@silverfox:~# php5enmod imap
root@silverfox:~# service apache2 restart

root@silverfox:~# apt-get install php5-imap

パッケージリストを読み込んでいます... 完了

依存関係ツリーを作成しています

状態情報を読み取っています... 完了

以下の追加パッケージがインストールされます:

libc-client2007e mlock

提案パッケージ:

uw-mailutils

以下のパッケージが新たにインストールされます:

libc-client2007e mlock php5-imap

アップグレード: 0 個、新規インストール: 3 個、削除: 0 個、保留: 0 個。

628 kB のアーカイブを取得する必要があります。

この操作後に追加で 1,535 kB のディスク容量が消費されます。

続行しますか? [Y/n]

root@silverfox:~# php5enmod imap

root@silverfox:~# service apache2 restart

皇紀2678年2月5日2018年2月5日

ソフトウェアカスタマイズの誤解

製品を「高くて買えない」と言っていたお客さんが「カスタマイズする」と言い出し、見積もりしてくれと言われた。

しかし、個人専用にカスタマイズするってのは、凄くお金が掛かるという理解は無かったようで、元の製品の8倍の価格の見積もり出したら、それ以後返事がない(笑)

親戚のおっさんがわしに「経理ソフト作ってくれ」とか言ってた事があったが、SI屋にそんなもん作らせたら、数百万かかるって分かってねーんだろうなあ。

恐らく、数万円の経理ソフトが高いから親戚のプログラマに安く作って貰おうと思ってたのだろうが、原価回収が終わったソフト資産を持っているならともかく、ゼロから作らせたら高くなる。

経理の経験から言うと、月給30万の奴を1ヶ月拘束したら、会社は社員に社会保険料含めて、だいたい給料の3倍の額を払わないといけないから、1ヶ月の工期のカスタマイズだと、この場合、最低90万円〜となる。

この場合でも会社に利益が全く無い訳だから、上乗せする事になるが、一応、利益確保できる金額で見積もるのは良い事だ。

前に居た会社なんか、1時間3,000円と超激安で、朝鮮人みたいに安売りするしか能が無く、その上、会社が赤字なのはわしのせいだと抜かすタワケだったが、難しい漢字の名前の写真館はうまく経営できとるのかねえ 🙂

皇紀2678年2月1日

localhostのcifsマウントが解除される?

会社のミュージックサーバーで、プレイリストの編集の為に sambaをmpd のプレイリストのディレクトリにマウントしていた。

しかし、スケジュール演奏がおかしかくなったので、見てみると localhost のcifsのマウントが解除されていた。

別のサーバーの samba の共有をマウントしてて切れるのは分かるけど、localhost の共有が切れて、しかも再接続しないってなんぞー?

皇紀2678年1月30日

更新してシャットダウンできなくなったWindows Update

ここ二、三日、Windows 10が再起動する時間を指定しろとうるさい。

そう言えば、PC終了時に「更新してシャットダウン」って項目が出ないなあと思っていたが、今度は就業時間を確実に潰しにきたのか? つくづく生産性の低いOSだな。

Windowsの設定から、再起動選んで、ディスプレイの電源切って帰宅したが、電源つけっぱなしで Windows 10は環境にやさしいなあ 🙂

どうしてLinuxの様に動作中にアップデートして電源を切るのも、電源再投入でも待たせないようにできないのか?

きっと、Windows 10 は寂しがり屋で、人に構って貰えないと死んじゃうんだね。なんて可哀想…なんて、思うか! バカタレが!!

皇紀2678年1月30日

VirtualBox 5.2.26 GuestAdditions 更新

Windows版 VirtualBox 5.2.6 Linux guestのGuestAdditionsチョンボ

今日見たら、Linux Guest用のGuestAdditions 5.2.27 のisoイメージが置いてあった。

入れてみたが、ちゃんと動いているようだ。

皇紀2678年1月29日2018年1月29日

論外

客からの問い合わせ。

「おたくの製品高すぎて買えないから、お手頃価格の別の方法を教えてください」

営利企業がこんな問い合わせに返答するわけねーだろ。
なぜ問い合わせようと思ったのか理解に苦しむ。

まあ、送ってきた人は、無料の素材の検索サイトを主催していて、そのサイトの恩恵を受けてた人が協力してくれたりしてるようだから、サイトで恩恵与えてやってるのだから、頼めば言う事を聞いて貰えるという認識かねえ。

でも、ウチの会社、あんたのサイトから何の恩恵も受けてねーよ。

皇紀2678年1月26日2018年1月26日

流用します。

客からのメールでなんじゃこりゃ? ってのがあった。

サイト構築の話だが、ウチの会社で製品デモ用サーバーがあって、客が自由に弄れるようになっているのだが、そのサーバーを「流用します」などと書いてあった。

いや、「流用させていただけませんでしょうか?」なら分かるけど、なんで「流用します」って勝手に宣言すんの? 訳が分からないよ。

お前んとこサーバーの維持費とか払ってねーし、こっちからお願いして使っていただきたい訳でもねーから、なぜ「流用します」って言うのか分からん。

案件で金払うにしても内容の割に合わないたったの500万だし、これでサーバーの半永久的な維持費も込みってバカにするにも程があるだろう。

あと、デモサーバーだから、第三者が自由にデータの追加、変更、削除、閲覧しちゃうから、データが保証されないし、個人情報保護にも問題があるし、そんなの普通本番で使おうなんて考えねーだろ。どうかしてるぜ！

皇紀2678年1月23日2018年1月23日

skypeforlinux 消極的解決

時間泥棒のmicrosoft

ここで書いてた騒動だが、skypeforlinux が真っ白画面になってしまう件。

https://askubuntu.com/questions/994172/skypeforlinux-8-13-0-2-fails-to-start-on-ubuntu-14-04-lts?rq=1

ここに解決方法が載ってた。

$ sudo apt-get purge skypeforlinux
$ sudo apt-get install skypeforlinux=8.11.0.4

腐った新しいバージョンは捨てて、前のバージョンに戻すべし。

皇紀2678年1月21日2018年1月21日

【まおはじ】バフォメット

魔紅石10連ガチャでキマシタワー

新しく登場した使い魔って、保有者が居ないと宣伝効果が低いから、課金しなくても割と出現率高いのかもしれない。

しかし、マリー被り過ぎ。
魔核Lv.4が既に居るので、2枚余るな。

皇紀2685年1月
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31