english info
中皮腫・アスベスト疾患・患者と家族の会

ホーム

ニュースとイベント

会の案内

支部の活動

医療についてのQ&A

アスベストについて

要望に関して

会員の紹介

尼崎から

リンク

フリーダイヤル : 0120-117-554

ご相談の方へ

人員不足の為、電話対応ができずにご迷惑をおかけしています。外出が多い為、是非ご連絡先を留守番電話またはFAXでお知らせ下さい。追ってご連絡致します。尚、建材などアスベスト一般のご質問はご遠慮下さい。

フリーダイヤル :
0120-117-554
FAX:
03-3637-5052

お知らせ

2011年06月14日

―”クボタ・ショック” から6年―

☆アスベスト被害の救済と根絶をめざす尼崎集会☆
に参加しましょう!

6月25日(土)12時~4時半
◆小田公民館
(JR尼崎駅東北すぐ)

お問い合わせは・・・TEL/FAX 06-4950-6653 尼崎安全センターまで

詳細はこちらをご覧ください。(PDF)

2011年05月30日

関西支部集会の報告

5月15日(日)、支部集会を行いました。
前回の集会から参加して下さっている「はつりじん肺」の方々も交えて、和気あいあいと行いました。
この日の大きなテーマは東日本の大震災による甚大な被害。地震・津波・原発・アスベスト飛散の恐怖について皆で語りあいました。
マスクプロジェクトの話の時には、簡易マスクと強固な防塵マスクを実際に装着して比較しました。
集会の後半では、皆さん方が折った折り鶴を持参して千羽鶴の束に仕上げ、リボンを付けました。後日、患者さんに送ったら、千羽鶴を片手にした喜びの写真が送られてきました。

DSC00194.jpg

エアー付き防塵マスク。宇宙人みたいです。

20110520182818.jpg

肺がんで闘病中のTさん。「まだビール飲む元気がある!頑張っている!」と、千羽鶴とビールを片手に感謝のメールが。

2011年05月24日

ひょうご支部の活動報告

「東日本大震災の被災地にアスベスト用マスクを届けよう」
4月29日と5月1日に街頭募金活動を行いました。幼い兄弟が恥ずかしそうに背伸びしながら、手を高く伸ばして…、また、年配の方がそっと駆け寄って募金して頂きました。本当に、多くの方々にご協力を頂きました。ありがとうございました。

「神戸大学生との初交流会の報告」
5月16日の交流会では、学生の皆さんの真剣に学ぼうという気持ちが伝わり、答える私たちも伝えたい、理解してほしいとの一心で話ました。純真な心で取組まれている姿に、パワーとエネルギーを頂きました。次の世代にバトンを渡す第一歩になりました。

2011年05月15日

北海道支部からのご案内

患者と家族の会」を下記の予定で行います。
会員の方はもちろん、会員でない方もお気軽にご参加ください。

日 時:平成23年6月4日(土)
  「アスベスト医療・労災相談」午前9時30分~午前11時30分
  「分かち合いの集い」午後1時30分~午後3時30分

場 所:道民活動センターかでる2・7
     (札幌市中央区北2条西7丁目)10階1020号会議室

2011年05月01日

岡山支部からのご案内

若葉青葉をわたる風も快く感じられます。
皆様、お元気でしょうか。
岡山支部では下記の通り総会・集会を行います。
是非、多くの方のご参加をお待ちしております。

日時・・・平成23年6月4日(土曜日)
時間・・・ 10時~12時  相談会 
      13時30分~15時 総会・集会
場所・・・岡山国際交流センター 
      相談会  5階 会議室(2)
      総会・集会  3階 研修室

2011年04月29日

関西支部からのご案内

関西支部集会を行います。
皆様のご参加をお待ちしています。

日  時:5月15日(日)  13時半から
場  所:エルおおさか  南館7階  74号室
連絡先:関西労働者安全センター内 TEL:06-6943-1527 
     古川携帯:090-3705-3903
※ 今回から場所変更を致しますので、お間違えの無いように。
   エルおおさかの入口に、案内の掲示板が表示されます。

2011年04月27日

ひょうご支部の予定

「東日本大震災の被災地へ
 アスベスト用マスクを届けよう」募金活動のお知らせ

被災地にマスクを届ける活動をひょうご安全センターと一緒に行います。マスク購入のための街頭募金活動にご協力をお願いします。

日時:  4月29日(金・祝)13:30~15:30
場所: 三宮 マルイ前

日時:  5月1日(日)11:00~15:00
場所: 新長田・若松公園 被災地メーデー会場



「神戸大学生との初交流会のご案内」
東日本大震災でのアスベスト問題点やご自身の体験談や日頃感じられていることなどの意見交換を行います。世代を超えてアスベスト問題に取り組みたいと思います。皆様のご参加をお待ちしています。

日時:  5月16日(月)15:10~
場所: 神戸大学文学部・大学院人文学研究棟B棟234教室

2011年04月20日

関東支部から<遺族の会>のご案内

3月は震災の影響で交通機関が動かずとりやめとしました。
このような時ではありますが、お互いに親しい人を理不尽に亡くさねばならなかった人の心中を思いやって、話し合うのも良いかと考えます。

5月の遺族の会を下記のように開きますので、参加いただける方は13日(金)までにFAX.TEL 03-3637-5052へご連絡下さい。

日時: 5月15日(日)12時~
場所: 亀戸事務所の4階
会費: 1200円 昼食代など

 ご相談の方へ

人員不足の為、電話対応ができずにご迷惑をおかけしています。
外出が多い為、是非ご連絡先を留守番電話またはFAXで
お知らせ下さい。追ってご連絡致します。
尚、建材などアスベスト一般のご質問はご遠慮下さい。

フリーダイヤル : 0120-117-554

〒136‐0071東京都江東区亀戸7-10-1 Zビル5階
中皮腫・じん肺・アスベストセンター内
中皮腫・アスベスト疾患・患者と家族の会
電話番号:0120-117-554
FAX:03-3637-5052
info@chuuhishu-family.net

  #!/usr/bin/perl -- # Access Counter Version 2.2 $COUNT_FILE = 'counter.dat'; $COUNT_FILE2 = 'counter.bak'; $IPDB_DIR = 'counterdb'; $IPDB_TIMER_UNIT = 600; $IPDB_LIFETIME = 6; $GARBAGE_COLLECTION_TIMER = 100; $IMAGE_DIR = '/counterdigits/'; $IMAGE_MINI = 6; ####################################################################### umask(066); use strict; use vars qw( $COUNT_FILE $COUNT_FILE2 $IPDB_DIR $IPDB_TIMER_UNIT ); use vars qw( $GARBAGE_COLLECTION_TIMER $IMAGE_DIR $IMAGE_MINI $IPDB_LIFETIME ); sub LOCK_SH { 1 } sub LOCK_EX { 2 } sub LOCK_NB { 4 } sub LOCK_UN { 8 } my ($number,@counter,$status); $status = 0; $number = read_counter($COUNT_FILE,$COUNT_FILE2); if ($IPDB_DIR) { if (!-d $IPDB_DIR) { mkdir($IPDB_DIR,0700); } ($status,$number) = remote_addr_check($IPDB_DIR, $ENV{REMOTE_ADDR}, $number, $IPDB_TIMER_UNIT, $IPDB_LIFETIME); } else { $number++; } if ($status == 0) { write_counter($COUNT_FILE,$COUNT_FILE2,$number); if (-d $IPDB_DIR && ($number % $GARBAGE_COLLECTION_TIMER) == 0) { garbage_collection($IPDB_DIR,$IPDB_TIMER_UNIT,$IPDB_LIFETIME); } } @counter = ($number=~ /(\d)/g); for (my $n=$#counter + 1;$n < $IMAGE_MINI;$n++) { unshift(@counter,0); } $IMAGE_DIR=~ s#/$##; $|=1; print "Content-type: image/gif\r\n\r\n"; foreach my $key (@counter){ print qq<$key>; } exit(0); ################################################################### sub read_counter ($$) { my $master_file = shift; my $slave_file = shift; my $master_nu = 0; my $slave_nu = 0; my $t = 0; if (-f $master_file) { READ: { if ($t < 10) { open(F,$master_file) or $t++ and sleep(0.1) and redo READ; $master_nu = ; close(F); $master_nu=~ s/\D//g; } else { $master_nu = -1; } } } $t = 0; if (-f $slave_file) { READ: { if ($t < 10) { open(F,$slave_file) or $t++ and sleep(0.1) and redo READ; $slave_nu = ; close(F); $slave_nu=~ s/\D//g; } else { $slave_nu = -1; } } } if ($master_nu < $slave_nu) { $master_nu = $slave_nu; } return $master_nu; } sub write_counter ($$$) { my $master_file = shift; my $slave_file = shift; my $nu = shift; my $t = 0; if ($nu > 0) { WRITE: { if ($t < 10) { open(F,">$master_file") or $t++ and sleep(0.1) and redo WRITE; flock(F,LOCK_EX); seek(F,0,0); printf F "%10d\n",$nu; close(F); } } } if ($nu > 0 && $nu % 4 == 0) { WRITE: { if ($t < 10) { open(F,">$slave_file") or $t++ and sleep(0.1) and redo WRITE; flock(F,LOCK_EX); seek(F,0,0); printf F "%10d\n",$nu; close(F); } } } return $nu; } sub remote_addr_check ($$$$$) { my $dbdir= shift; my $ip = shift; my $number = shift; my $timer_unit = shift; my $lifetime = shift; my $status = 0; my $time = time; my $now_filename = int($time/($timer_unit/$lifetime)); my $pattern_ip= $ip; $pattern_ip=~ s/\./\./g; CHECK_DATA: for (my $n=0;$n <= $lifetime;$n++) { my $filename=$now_filename - $n; if (-f "$dbdir/$filename") { open(F,"$dbdir/$filename"); while () { if (/^$pattern_ip;(\d+)/o) { $status = 1; $number = $1; close(F); last CHECK_DATA; } } close(F); } } if ($status == 0) { $number++; open(F,">>$dbdir/$now_filename"); flock(F,LOCK_EX | LOCK_NB) or flock(F,LOCK_EX); seek(F,0,2); print F "$ip;$number\n"; close(F); } return($status,$number); } sub garbage_collection ($$$) { my $dbdir= shift; my $timer_unit = shift; my $lifetime = shift; my $time = time; my $need_data = int($time/($timer_unit/$lifetime)) - $lifetime; opendir(DIR,$dbdir); foreach my $file (grep(/^\d+$/,readdir(DIR))) { if ($file < $need_data) { unlink("$dbdir/$file"); } } closedir(DIR); } sub sleep ($) { select(undef,undef,undef,$_[0]); } __END__