需不需要辭職的問題暫且先不討論，先來看看這樣的情況：

周青在一番激烈選戰之後終於成功當選，成為第一位女總統。 她的丈夫準第一先生馬冏任職於銀行法務室處長，馬冏先生於該銀行已經任職25年，一路從基層爬到處長的位置。成為準第一先生對馬冏來說帶來了一個困擾，他該不該辭去工作？留下來會不會有利益迴避問題？

這樣的情境相信不會有人在旁邊大聲嚷嚷要叫馬冏先生辭職吧？ 那為什麼周美青就要為了馬英九選上總統而辭職？ 總統這位置可不是設計來讓夫妻倆個人各做一半的，不管是夫或妻選上另一個人都不會因此成為總統，也不能共享總統的職權。因為其中一人成為總統，而要求另一人放棄他的人生，背後不可說的理由就是將兩人視為一體。不過兩個人就是兩個人，不管職位是什麼，兩個人永遠不會變成一個人。

對於個人的尊重，是民主社會最根本的價值觀。不管今天周美青繼續上班會有多少瓜田李下的嫌疑，那個決定只有他本人能下。周美青上班真的不干我們的事，那是她自己要解決的問題。學習如何尊重他人的自由，才是跟我們相干的事的阿，編輯大人。

事件的起因在於, 公司經營層原本答應因應分紅費用化結構性調薪12%, 但是卻在三月中反悔. 結果造成新人的薪資比舊人還高的現象, 話說如此, 新人薪資似乎也只是四萬多(碩士), 可見原本的RD薪資有多低(網路上看到的說詞是新人比舊人多10K, 但此點的可信度無法求證). 網路上看到的最貼切形容是: 做了三年, 薪水還比手上帶的新人低.  這種情況應該不會有人做的下去吧.

我個人並沒有熟人在該公司任職, 會注意這事件為了兩各原因, 同是領人薪水的工程師多少知道這些職務的工作狀況,  訝異薪資待遇如此低的情況下又怎麼能留住有能力的人; 身為投資人, 類似事件反映此公司經營團隊有管理上問題以及誠信問題, 此公司股票須閃避. 試想連對替自己抬轎的手下都會出爾反爾的人, 又怎麼會對股東誠實揭露訊息? 甚至連此公司大股東的相關集團股票, 我都會從持股清單中排除.

對一個沒有掌握經營權的投資人來說, 經營者的誠信是第一優先考量, 低估這點很容易會踩到地雷. 台灣的環境不論是職場還是股市都很黑暗, 這裡的黑暗指的是, 不夠公開. 雖然不至於是黑箱, 但是矇矓的光線中需要很小心才不會跌倒. 可惜是想要搶奪未來執政權的人並沒有什麼增加亮度的方案提出.

股票分紅是個很差勁的制度, 不管老張老曹怎麼說, 身為投資人與上班族的兩各身分都告訴我, 股票分紅其實就是高階經理人用來自肥的騙術. 君不見聯電的原始股東股權大量稀釋到對公司營運說不上隻字片語. 造成的[只要我有錢就好]心態所帶來的遺毒與流弊更是不知道有沒有清除的一天. 有時候看到媒體跟投信在那邊大力鼓吹電子類股, 嗯…., 只能說, 要跟自己的錢過不去, 那錢就會跑給你看 =.=

貼上來是因為, 某時候會忽然需要用到, 放網站上方便點=.=

#############################################

#!/usr/bin/perl

## delmail
## delete postfix mail queue by sender address

## usage:: delmail <email_address>

use strict;

my $LISTQ = "/usr/sbin/postqueue -p";
my $POSTSUPER = "/usr/sbin/postsuper";

my $mail_addr = "";
my $qid = "";
my $uid = $>;

if ( @ARGV != 1) {
die "Usage: delmail <Email\@Address>\n";
} else {
$mail_addr = $ARGV[0];
}

if ( $uid != 0 ) {
die "You must be root to delete mail queue.\n";
}

open (QUEUE, "$LISTQ |") ||
die "Can't get pipe to $LISTQ: $!\n";

my $entry = <QUEUE>;
$/ = "";

while ($entry = <QUEUE> ) {
if ($entry =~ / $mail_addr$/m) {
($qid) = split(/\s+/, $entry, 2);
$qid =~ s/[\*\!]//;
print  $qid."\n";
next unless ($qid);
if (system($POSTSUPER, "-d", $qid) != 0) {
die "Error occur while Excuting $POSTSUPER, error code".($?/256)."\n";
}
}
}
close(QUEUE);

if (! $qid) {
die "No messages from <$mail_addr> found in mail queue.\n";
}

exit 0;

上面是獨立特派員節目的BLOG連結

這集的內容還以公視內部派遣員工做為訪談對象, 算是自我批判吧.

想要查人力派遣這字的英文, 意外的發現英文沒有對應字, 這是從日文來的. 目前就業市場上有越來越多的工作是人力派遣, 但是大多數的案例都只是顧主逃避人事成本的產物. 最近公家機關大量將約聘人員改為外包公司派遣, 政府單位帶頭鑽勞基法漏洞, 這或許也算是另一個台灣奇蹟.

人力派遣是潮流嗎? 如果扣除黑心苛扣勞工的部份, 我個人很懷疑人力派遣還會造成風潮. 目前的人力派遣說穿了只是官商交相賊,  合力剝削沒有抗爭力量的小勞工罷了.

被指控抄襲的作品  顛倒-斷絃

九把刀的作品  語言-九把刀

有興趣可以分別看看.

就我的看法, 我並不認為[顛倒]這篇有抄襲[語言]. 兩篇的重點並不相同, [語言]的論點在失序, [顛倒]的論點在時間倒流. 主題上並不相同, 硬要說對方抄襲是很勉強的. 如果這樣抄襲可以成立, 那兩篇文章都抄襲了卡夫卡的[審判]. 從存在主義之後, 生活的荒繆就是一個常被使用的題材, 這兩篇的對比用的是很單純的正反相對, 相同的是, 用原本的世界當做正, 根據正做出一個相對的事實當作反. 跟存在主義所推崇的個體存在與自由意識相比, 這兩篇的寫法就欠缺深度探討.

好笑的是, 其實沒有多少人認真比較兩邊. 大多數人都事先有立場, 然後想盡辦法要把對方打死.  是否抄襲大約沒多少人在意吧. 每個人對怎樣算做抄襲也莫衷一是, 其實我會對這感興趣是看到八卦板上一篇對照兩邊文字的PO文, 那是篇認為抄襲成立的文章. 可是從他摘出來的文字, 我看的感覺就是沒有相似處, 所以才會去找兩邊的全文. (想想我還真是無聊 =.=)

文學作品的抄襲主要來自描寫手法, 比方說寫景. 同一個鏡頭的畫面, 不同作家會用不同文字來表達. 每個人形容月光都不會相同, 因為不同人的經歷不一樣, 在同樣的事物中抽取出來的元素也會不同. 至於主題相同, 難道高陽寫過胡雪巖, 二月河再寫胡雪巖, 就能說二月河抄襲?

1. 何謂癌症

癌症是一般的口語說法, 比較嚴謹的用語是惡性腫瘤, 指的是組織細胞不受限制的增生現象. 人體是各高度分化的細胞所組合的整體, 每各細胞根據DNA上的指令生長各種器官, 但是在某些誘發機制的運作下, 部份細胞會不斷的成長而不會停止. 發生這樣的情形的時候通常肉眼所見的會是腫瘤, 只是這腫瘤會不斷的成長, 這種不斷成長的腫瘤就被稱為惡性腫瘤, 也就是癌症. 而不會持續成長的腫瘤也被稱作良性腫瘤.

2. 癌症是否是不治之症

怎樣叫做不治之症? 癌症是各死亡率高的疾病, 但是不代表得了癌症就一定會死. 這是不管病人或家屬都要有的體認. 癌症是細胞不正常增生,可能會發生在任何器官上, 一般致死的原因是器官衰竭, 而不是癌細胞本身有多大殺傷力, 事實上癌細胞也是人體細胞, 只是過度增生會排擠正常細胞. 也就是說, 癌細胞是以量取勝, 在它組成大軍之前都是有機會擊敗它的. 即使是當他已經完成招兵買馬, 打戰也沒有穩贏的, 如果不放棄, 在任何階段都還是有機會的.

3. 為什麼會得癌症

目前的醫學對於癌細胞如何成型仍然不清楚, 只是從以往病例中歸納出一些規律, 比方說長年吃檳榔的得口腔癌的機率比較高, 老菸槍得肺癌的機率也比較高. 肝癌在台灣則大多數是由B型肝炎轉變. 癌症是一種疾病, 任何人都有可能得到, 但是長期接觸高風險因子的人得到的機率比較高.

4. 家中有人得了癌症怎麼辦

在這裡的命題是[家中有人得], 身為家屬最重要的就是, 保持冷靜. 病人在得知罹患癌症的時候都會陷入恐慌, 否定, 沮喪, 振作的情緒反應. 身為家屬必須要能提供精神上的支持, 最忌陷入集體悲觀.

其次是不要意圖做些鼓勵的舉動, 生老病死都是個人要自己面對的, 不是旁人能夠代勞, 過度的言語與動作只會造成反效果.

第三是要多蒐集疾病以及醫療的相關資訊, 這裡的資訊不是說民間偏方, 而是過往的健康資料, 曾做過的健檢報告, 這些資料在就醫時會有幫助.

5. 去哪裡找有用資訊

網路上的資料真真假假, 不是專業人士也未必看的出真假, 就算是真的也未必看的懂, 所以先不要找網路. 請先找相關的醫學類書籍. 以肝癌為例,我個人推薦先讀這兩本書找回健康肝跟肝病診療室. 這兩本書對於目前醫學界如何治療以及許多背景知識都有著墨, 而且寫的很淺顯易懂. 至於其他癌症我就不敢亂推薦書籍. 網路上的資料請優先選擇各大醫院的網頁, 有不少頁面提供的是賣藥廣告而非醫療資訊. 請謹記醫學院是需要七年時間去唸的, 自行尋找的資料不能取代醫生診斷.

6. 西醫對癌症沒辦法要靠中醫

就癌症診斷來說, 西醫遠比中醫來的快速而且準確, 所以一定要去醫院做檢查. 醫院的病歷是可以影印的(要病患本人攜帶證件), 癌症是重大疾病最好是將A醫院的病歷與檢驗報告帶著在B醫院詢問另一位醫師意見. (不過不要去考醫生, 有多少資料就說多少) 以西醫來說, 對癌症的治療主要是透過外科手術與化學藥品. 過程難免會有些疼痛與不適. 傳統中醫對癌症的紀錄要到清代才有較多案例, 主因在於癌症的病症大多內隱, 肉眼不可見, 遠古的大夫可沒有X光眼能看穿人體. 大陸方面近年來有不少中醫投入癌症治療研究, 但是一樣需要藉助X光等現代醫療儀器才能進行, 到目前為止也沒有能光靠吃中藥治好癌症的. 目前比較一致的結論是中藥某些方濟有療效, 反應率(癌症藥物並非每個人吃都會有效)還算高(癌症藥物有20%就算是高反應率了), 但是療效到哪裡就很有爭議. 但是中藥用來減緩化療痛苦與降低手術後遺症有相當功效, 可惜的是, 台灣這邊醫療體系並沒辦法做到中西藥並用. (藥物會有交互作用, 不可以私自亂嘗試)

7. 民俗療法與氣功還有食療的效果如何

面對癌症, 順序應該是這樣 西醫>中醫>飲食>氣功>民俗療法>宗教, 千萬不可以為了任何原因放棄去醫院治療. 有什麼說中藥可以吃到好或是氣功可以練到好, 都但信不彷, 可是要等西醫治療告一段落之後才能實行. 簡單說以西醫對癌症的認識與治療最為有效, 其餘手段都還比不上. 至於直銷的商品, 切末輕信. 試想如果有人發明特效藥怎麼會[只]透過直銷販賣, 必然是到處都能買到. 既然這藥物不是到處能買, 其功效理所當然的要存疑.

8.  如何選擇要去哪裡就醫

目前台灣罹患癌症的人不少, 但是專門診斷癌症的醫師相較之下人數不太足夠, 是以幾乎每各醫生都是處在病人看不完的情況下, 許多醫院連門診都很難掛到號. 癌症是慢性病, 一般來說要4-6各月的時間腫瘤才會成長到原本兩倍大. 是以一兩星期的時間是不會有遠端轉移現象出現的, 在就醫前的等待期所能做的是努力過日子, 吃飯, 睡覺, 運動. 癌症的治療非常消耗體力, 要在入院前把身體狀況調整好. 至於哪家醫院或哪各醫生比較好?  這就真的很難給明確說明. 我個人的建議是: 抗癌是一個長期的事, 除了病患之外對家屬也是一個很大的消耗. 交通問題要做一個考慮. 另外醫生跟患者之間是不是有良好互動也是很重要的選擇依據. 簡單說要看跟醫生是不是[投緣].

9. 其他注意事項

保持樂觀. 這雖然說來簡單做來難, 但還是要盡力.

注意與病患的交談用字. 古人說:[除死無大事], 罹癌正是大事. 話說出口之前要多斟酌, 沒必要的寧可不說. 一言之失會對病患造成極大影響.

保重自己. 這時候正是要當家人依靠的時候, 可不能自己先倒下.

希望這篇能帶來一些幫助, 祝大家平安

閱讀相關資料的時候才發現, 台灣罹患癌症的人還真是不少. 根據衛生署的統計資料, 有將近1/3的人自己或是親人是癌症患者, 癌症也長年佔居10大死因之首. 在陪父親就醫的過程中, 也實際上見到許多患者, 甚至親眼見到其他病人急救無效. 這各月想了許多原本根本不會去想的, 或者說原本不會把這些事放在腦袋中太久.

其實人生 [生老病死] 乃是必然循環, 只是我們都下意識的把它遺忘, 直到被迫面對為止.

看了評鑑方法的第一段我就暗自搖頭, 讓媒體記者評價, 可是我不相信記者阿 =.= 今天的媒體亂象的根源不就在於[記者無專業]

不過讓被質詢的官員填問卷, 我個人倒是深表贊同. 就像讓學生可以評鑑老師一樣, 官員也應該要有機會評鑑質詢立委. 以出席率來作為篩選標準, 更是應該. 總結來說, 我會認為這份評比或許無法完全正確顯示立委的好壞, 但確實算的上是客觀的評價. 特別是出席率, 那個出席率不到29%的人, 擠進那各委員會是要做什麼的.

另外還有一個議題與立院有關, 但卻不是商周所提, 而是上星期在天下雜誌上看到的[立院透明化].

說到天下, 有段插曲提一下, 老實說2000年以前我是天下的忠實讀者, 但是2000年總統選舉前的那一期讓我對這本雜誌的可信度打了一個大問號. 怎麼說可信度有懷疑?  因為在這期之前, 天下的立場很鮮明, 評斷執政者很多缺失, 也提出不少[他山之石](主要是新加坡), 當然當時的執政者是兩千年的候選人之一, 選舉前對參選人做一番評論也是媒體該做的. 可是看完那期的評論之後, 卻讓我覺得寒毛直立, 驚覺自己原來是各傻子. 原來天下對其中某候選人的表現與構想多所批評, 對另一位曾經落選者的所作所為大加讚揚, 但卻再那一期180度大逆轉, 如果單看當期雜誌會覺得, 天下雜誌沒有特殊政治立場甚至稍微偏向原本執政者, 因為其中有一篇找來某位社運人士評論候選人之一, 對弱者欠缺同情. 這可跟前面許多期雜誌累計下來的印象差很多喔. 隨著接下來選舉開盤, 當選者展現的性格, 恰如這句評論. 從此我就不再訂閱天下雜誌, 甚至連他們出的書所寫內容我都抱持懷疑態度. 因為我覺得這本雜誌不是客觀報導, 而是在灌輸你想法. 也就是那時候開始,  我對所有讀到的新聞都抱著懷疑態度,  如果連一家連續許多年被認為是優良媒體的雜誌都欠缺公平與公正,  甚至有長期隱瞞事實的嫌疑,  那所有媒體基本上都是不可相信的. 上星期會看天下是因為裡面提到了working poor, 一個我正在蒐集資訊的主題.

雖然事隔多年但是我對這本雜誌的信心仍未恢復, 不過這各[立院透明化]的主張倒是深深贊成. 記得很久以前, 有一個國會電視台專門播出立院的會議討論, 後來因為經費不足而停播(記憶中似乎如此,  不太確定), 到上星期看到天下那篇文章為止, 我一直已為立法院還是會提供畫面, 只是沒有電視台肯播出. 原來後面有黑手不讓畫面外流阿. 立院每年花費納稅人大筆血汗錢, 讓大眾看見立委的表現是立法院的義務, 如果王金平真的有說過天下報導中提到的那句話, 我會認為王金平不配當立法院長. 如果沒有看到王金平出面反駁這則報導, 我個人政黨票將不會投給國民黨, 因為王金平是國民黨不分區第一名(應該沒錯吧).

看完這篇立委評鑑的報導, 其實很感慨, 終於有媒體做了媒體應該做的事情. 不管對於評鑑結果認不認同, 對於商周肯碰觸這各議題, 在這裡給它一個大大的掌聲.

對歐美兒童來說, 這假日可比中國農曆新年, 大人們買禮物的舉動, 卻造成了所謂的聖誕購物潮. 在資本主義的社會中, 有賺錢的機會叫商機. 商機這字眼的意思就是[各各有機會, 人人沒把握], 所以各商家不管是製造者還是通路業者, 莫不卯足全力大聲促銷, 希望把鈔票從人們的口袋中釣出來. 於是乎經濟學神奇的地方就出現了, 消費者掏出來的錢加上商家的促銷費用加上運送商品的費用加上……族繁不及備載, 之後得出了一塊畫在空中的大餅叫做商機.

這是資本主義一直以來的認知, 越多人花錢經濟就越繁榮. 隨著資本主義席捲全球, 原本最大敵對陣營的紛紛[棄暗投明], 資本主義, 背後其實就是經濟學, 幾乎成為真理. 但是在此同時, 許許多多的矛盾與困惑也漸漸浮出水面. 更麻煩的是, 隨著奉行者的增多, 最早的擁護者們開始陸續嚐到苦澀的果實, 特別在中國大陸加入擁護行列之後. 挾著大量的勞動力一舉成為全球最大工業生產基地之後, 雖然物品價格下跌, 但是消費者卻發現, 他們反而買不起商品, 因為收入下跌的幅度遠比物價下跌幅度來的大. 大量工業在短時間遷移的結果是, 造成牽出地區的大量失業, 對失業的人們來說, 便宜10%的商品一樣是買不起的商品.

再這過程中有位老兄想出了一個看似無比正確的標語, M型社會. 就是說從沒錢到有錢的人數照順序排列,  會形成一個類似英文字母M的線條. 不過, 任何歷史學家都會告訴你, 如果用沒錢到有錢的順序排列來畫圖, 人類社會到目前為止(未來不屬於歷史的範圍)都會出現一個長尾. 也就是貧窮者佔大多數, 大部分的財富, 或者精確點說資源, 都是掌握在少數人手中. 所謂M型只是一個誤會, 一個用地理位置取樣所看到的偏差.

有各簡單的例子可以說明這現象, 一個學生在50人的班上中文成績排序是20, 屬於前段, 但是在全校20各50人班級中的排序卻是500. 原本有一筆獎學金是讓這各學生所在班級的學生按照中文成績高低領取. 某一年開始, 發獎學金的單位決定通通有獎, 整各年級的人都可以按照成績高低分享, 這各學生所能得到的獎學金, 可以想見會有很大幅度的減幅.

NHK再去年(06)年底推出了一部紀錄片, 探討working poor問題, 時隔一年, 這問題似乎有不受控制擴張的趨勢. 前兩天看到片中繳不出妻子保險費的老先生說出,  [叫窮人去死是每各朝代都有的事, 沒想到現在也變成這樣子], 忍不住落下淚來. 原來資本主義走到最後還是一樣, 朱門酒肉臭, 路有凍死骨. 如果連日本都是這樣的情形, 那台灣想必也難以避免. 只是NHK能夠深入探討, 台灣卻沒有媒體有能力追蹤這各主題. 這一期的天下雜誌倒是有篇相關報導, 不過天下向來往有錢人傾斜, 對於很多事情也是[何不食肉糜].不過倒是找到了不少圖表可供參考, 也算有所貢獻.

事實上人類社會一直都是金字塔形, 掌握越多資源的人永遠是少數, 貧窮者則是佔總族群的大多數, 資本主義看起來成功其實是先行國家透過貿易手段取得大量後行國家的資源所得到的成果. 所以一個無一技之長的美國人所能支配的資源比一個印度的天才還要來的多, 這是20世紀的現實. 但是隨著後進國家也加入這各體系, 造成兩各很重大的影響, 個人的經濟貢獻度被重新估價以及天然資源不足. 這兩各事件的影響力看來將會成為21世紀的發展主軸.

A new function was added, if there no new lines need to inform the script will skip mail action.

這是從sun網站上抓來的log scan script, 大概是從sun網站抓的吧, 我已經忘記了, 改寫部分功能讓它檢查log時如果沒有新發現就不要寄信出來. 這script要排程每各小時讓它跑, 因為它只會檢查上一各小時的log.

#########################################################

#!/bin/perl -w
# msg_log - A sysadmin tool...
# Scans indicated files for indicated things...

# NOTE:  You NEED to READ The Code and SET Some Variables BEFORE Installing!
#        Those areas which need setting are INDICATED by the word 'Set ...'.
# Version v0.05s -

# 071004 modified by parus, not mail if no new entry
# scan specified log file a hour ago, if anything new mail to user's mailbox

use strict;
use diagnostics;

# Set your path to sendmail. Oops! That means "Here there be Unix..."
my $SENDMAIL = '/usr/lib/sendmail';

# Set (pick) a reporting style...
my $report = 1; # Note: 0 = Complete, 1 = Summary reporting...

# WARNING: Selecting 0 (Complete reporting) can generate A LOT of data!!!
# Set your locahost, default host; and localdomain, default domain:
my $defaulthost   = "localhost";
my $defaultdomain = "localdomain";

# I'll get your host and userID (who will get these reports?)
# Or Set a recipient at the end of the first command here:
chomp(my $userid = `/usr/ucb/whoami` || `/usr/bin/whoami` || 'root');# Set as appropriate for your system.
chomp(my $host   = `/bin/hostname` || `/bin/uname -n` || $defaulthost);
chomp(my $domain = `/bin/domainname` || $defaultdomain);

# NOTE:  Some of these logs may require root access to view...
# Use with appropriate caution!  You've been warned!

# Where are your system logs?  The defaults are for Solaris (the OpSys I use...)
# Note:  You can add other logs to scan here as needed...
my $msgpath = '/var/adm/messages';
#my $supath  = '/var/adm/sulog';    # Requires root access to view...
my $syspath = '/var/log/syslog';

# What do you wish to scan the 'messages' log for?
my $msglog = '(fail|snif|unkn|denied|root|inetd|warn|fatal|full|error|NOTICE|WARN|Failed)';

# What do you wish to scan the 'sulog' log for (requires r00t axces) ?
#my $sulog = '(su)';

# What do you wish to scan the 'syslog' log for?
my $syslog = '(denied|unix)';

# Example of DATE: Tue Feb  2 19:34:24 EST 1999
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my   @days = qw(Sun Mon Tue Wed Thu Fri Sat);
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
#  (  00   20    20    16   10    63    06 197 01); # Last two not used...
# Ex: $days[$wday] $months[$mon] $mday $hour:$min:$sec $year
my $thour = 0;
if ( $hour == 00 ) {
$thour = 23;
}
else {
$thour = $hour -1;
}
my $today = $months[$mon] . " " . sprintf("%2d", $mday) . " " . sprintf("%02d", $thour); # Get just today's Date...

my $ntday = sprintf("%02d", ++$mon) . '/' . sprintf("%02d", $mday); # Get just today's Numbers...

# ..... Start Main Logic .....
# Add each path_to_log, Log_date_format, and search_data here as
# previsouly defined above...
#print MAIL "$supath -\n";
#&process_log($supath, $ntday, $sulog);

my @messege = process_log($msgpath, $today, $msglog);
my @system = process_log($syspath, $today, $syslog);

if ( scalar @messege > 0 || scalar @system > 0 ) {
&write_mail();
}

# ..... End Main Logic .....

exit; # End of program...

##############################
##### Subroutine Area... #####
##############################
sub process_log {
my $target_log  = shift;
my $search_date = shift;
my $search_data = shift;
open (MY_LOGS, "$target_log") or die "Can't find $target_log: $!";
while (<MY_LOGS>) {
chomp;              # no newline...
s/#.*//; # no comments...
s/^\s+//; # no leading whitespace...
s/\s+$//; # no trailing whitespace...
next unless length; # anything to process?
next unless /$search_date/;
if ($report) {
next unless /$search_data/i;
}
push(@_,$_);
}
return @_;
}

sub write_mail {
open (MAIL, "| $SENDMAIL $userid") || die ("$0: Can't open $SENDMAIL: $!\n");
print MAIL "Reply-to: root\@$domain\n";
print MAIL "From: \"$host.Message.Log\" \<root\@$host.$domain\>\n";
print MAIL "To: $userid\n";
print MAIL "Subject: $host MsgLog Report at ", scalar localtime, "\n";
print MAIL "\n\n";
print MAIL "\n\n";
($report) ? print MAIL "Summary" : print MAIL "Complete";
print MAIL " report from " . $host . $domain . ":\n";

print MAIL "\n$msgpath -\n";
foreach (@messege) {print MAIL "$_\n"};

print MAIL "\n$syspath -\n";
foreach (@system) {print MAIL "$_\n"};

print MAIL "\n\nEnd of Report...\n";
close (MAIL);
}