manual/tools/make_mail_subjects.awk

BEGIN{nop=0}
/.*TITLE.*/{split($0,pt,">"); split(pt[2],ptt,"<")}
/<a href=mailto:.*/{ 
              printf("<a href=\"mailto:support@mitgcm.org");
              nf=split($0,ma,">");
              printf("?subject=[MITgcm Manual] %s",ptt[1]);
              printf("&body=Feedback on section - %s",ptt[1]);
              printf("\">"); 
              for(i=2;i<=nf;i++) {printf("%s",ma[i])};
              printf(">"); 
              printf("\n");
              nop=1}
{if ( nop ==0 ) print}
{if ( nop ==1 ) nop=0}
END{}
1	BEGIN{nop=0}
2	/.TITLE./{split($0,pt,">"); split(pt[2],ptt,"<")}
3	/<a href=mailto:.*/{
4	printf("<a href=\"mailto:support@mitgcm.org");
5	nf=split($0,ma,">");
6	printf("?subject=[MITgcm Manual] %s",ptt[1]);
7	printf("&body=Feedback on section - %s",ptt[1]);
8	printf("\">");
9	for(i=2;i<=nf;i++) {printf("%s",ma[i])};
10	printf(">");
11	printf("\n");
12	nop=1}
13	{if ( nop ==0 ) print}
14	{if ( nop ==1 ) nop=0}
15	END{}