#!/usr/bin/perl #Kyoma TAKAHASHI www@kyoma.org 1999.10.23 # 1999.12.24 #SUGIYAMA Ko-ichiro sugiyama@gfd-dennou.org 2000-07-22 # #Manabu YAMADA 2005.12.04 # gate で得られたメンバー一覧から, 各アカウント名を # 分離する部分のバグ修正 # # epnetfan-html-list.pl > output_html_file # #Yumura Tsubasa 2005.12.29 # epnetfan@ep.sci.〜 の @ を全角＠に書き直し # $grpn = 'epnetfan'; $servername = 'www.ep.sci.hokudai.ac.jp'; $htmldir = 'public_html'; $indexfile = 'index.html'; $operator = 'epnetfan＠ep.sci.hokudai.ac.jp'; $gateus = '/usr/local/bin/gate-user-show'; $scripturl = 'http://www.ep.sci.hokudai.ac.jp/~epnetfan/member/epnetfan-html-list.pl'; print '',"\n"; print '',"\n" ; print '',"\n" ; print 'EPnetFaN Member',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '
',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '

[Policy]',"\n"; print '

[Project]',"\n"; print '

[座学編]',"\n"; print '

[手引き集]',"\n"; print '

[写真集]',"\n"; print '

[リンク集]',"\n"; print '

[メンバー]',"\n"; print '

[運営資料]',"\n"; print '

[HOME]',"\n"; print '',"\n"; print '

',"\n"; print '',"\n"; print '',"\n"; print '' ,"\n"; print '',"\n"; print '
',"\n"; print '

',"\n"; print 'Earth and Planetaly science network FaNclub',"\n"; print '

',"\n"; print '

Member list of group ',$grpn,'

',"\n", '
', "\n"; &dateget; print 'Processed on ' . $date . '',"\n"; print ' by using a Perl script',"\n"; print '
',"\n"; open(GATEG,"$gateus".' '."$grpn"." |"); while () { if (/member/) { ($member) = /member: \s*(.*)\s*/; } } close (GATEG); while ($member) { my($user); if($member =~ s/^\s*([A-Za-z0-9]+)\s*(.*)$/$2/){ $user = $1; } open(GATE,"$gateus".' '."$user"." |"); while() { if (/^status/) { ($statusq) = /^status: (.*)/; } if (/^name/) { ($nameq) = /^name: (.*)/; } if (/^kname/) { ($knameq) = /^kname: (.*)/; } # if (/^email/) { ($emailq) = /^email: (.*)/; } } close (GATE); $emailq = $user.'@ep.sci.hokudai.ac.jp'; $webq = '
  • '.$knameq.' '.$nameq.'
    '."\n"; $mailq = ''.$emailq.''."\n"; # $htmlq = $webq.$mailq; $htmlq = $webq; if ( $statusq eq 'insei' ) { $html2grad .= $htmlq; } else { if ( $statusq eq 'gakubu' ) { $html2ugrad .= $htmlq; } else { if ( $statusq eq 'kyoukan' ) { $html2edu .= $htmlq; } else { if ( $statusq eq 'staff' ) { $html2tecsec .= $htmlq; } else { if ( $statusq eq 'visitor' ) { $html2vis .= $htmlq; } else { if ( $statusq eq 'kenkyuusei' ) { $html2posd .= $htmlq; } else { if ( $statusq eq 'others' ) { $html2othauth .= $htmlq; } else { $html2oth .= $htmlq; }}}}}}} } $hnum = 2; $type = 'undergraduate student'; $html = $html2ugrad; &write; $hnum = 2; $type = 'graduate student'; $html = $html2grad; &write; $hnum = 2; $type = 'postdoctoral student / research student / occasional student'; $html = $html2posd; &write; $hnum = 2; $type = 'education staff'; $html = $html2edu; &write; $hnum = 2; $type = 'technician / secretary'; $html = $html2tecsec; &write; $hnum = 2; $type = 'visitor'; $html = $html2vis; &write; $hnum = 2; $type = 'others'; $html = $html2othauth; &write; $hnum = 2; $type = 'undefined'; $html = $html2oth; &write; print '
    ',"\n"; print '
    ',$operator,'
    ',"\n"; print '',"\n"; print '
    ',"\n"; print '


    ',"\n"; print '
    ',"\n"; print 'Copyright © 2000 EPnetFan. All rights reserved.
    ',"\n"; print '',"\n"; print 'This page updated on July 21, 2000    ',"\n"; print '

    ',"\n"; print '
    • ',"\n"; print '',"\n"; sub write { if ( $html ne '' ) { print '',$type,'',"\n"; print '',"\n"; }} sub dateget { open(DATE,"date ".'"+%a %b/%d/%Y %H:%M %Z"'."$dateopt"." |"); $date = $_ while(); chop($date = $date); close(DATE); }