#!/usr/bin/awk -f # bbs.awk ¥á¡¼¥ëBBSÀ°·Á # Rev:991211 BEGIN{ BODY="False" L_null="False" OWNER="" DATE="" SUB="" OWNER_ID="" } BODY ~ /F/{ if ( $0 ~ /^From:[ ]/ ){ for( i=2;i<=NF;i++){ OWNER = OWNER " " $i} split( OWNER, cut ,"<" ) OWNER = cut[1] OWNER_ID = cut[2] split( OWNER_ID, cut ,">" ) OWNER_ID = cut[1] if ( OWNER_ID == "" ){ OWNER_ID = OWNER } next } if ( $0 ~ /^Reply-To:[ ]/ ){ for( i=2;i<=NF;i++){ REPLY = REPLY " " $i} split( REPLY, cut ,"<" ) REPLY = cut[1] REPLY_ID = cut[2] split( REPLY_ID, cut ,">" ) REPLY_ID = cut[1] if ( REPLY_ID == "" ){ REPLY_ID = REPLY } next } if ( $0 ~ /^Date:[ ]/ ){ for( i=2;i<=NF;i++){ DATE = DATE " " $i } next } if ( $0 ~ /^Subject:[ ]/ ){ for( i=2;i<=NF;i++){ SUB = SUB " " $i } next } } /^$/ && BODY ~ /F/{ if ( REPLY_ID != "" ){ OWNER_ID = REPLY_ID } BODY = "True" print "From: " OWNER " <"OWNER_ID">" print "Date:" DATE print "Subj:" SUB print "
" DATE="" SUB="" OWNER="" OWNER_ID="" REPLY="" REPLY_ID="" next } BODY ~ /T/{ if ( L_null ~ /T/ && $0 ~ /^From[ ]/ ) { BODY = "False" print "