## Return-Path: lou@metron.com
## Delivery-Date: Thu Aug  8 17:40:09 2002
## Received: from metron.com (uucp@localhost) by toad.com (8.7.5/8.7.3) with UUCP id RAA19948 for hoptoad!gnu; Thu, 8 Aug 2002 17:40:09 -0700 (PDT)
## Received: from violet.metron.com (indigo.metron.com [192.160.193.52])
## 	by ecotone.toad.com (8.8.7/8.8.7) with ESMTP id RAA32090
## 	for <gnu@toad.com>; Thu, 8 Aug 2002 17:32:15 -0700
## Received: from violet.metron.com (violet.metron.com [127.0.0.1])
## 	by violet.metron.com (8.12.3/8.11.6) with ESMTP id g790YwWw009815
## 	for <gnu@toad.com>; Thu, 8 Aug 2002 17:34:58 -0700 (PDT)
## 	(envelope-from lou@metron.com)
## Received: (from lou@localhost)
## 	by violet.metron.com (8.12.3/8.12.3/Submit) id g790Ywgq009814
## 	for gnu@toad.com; Thu, 8 Aug 2002 17:34:58 -0700 (PDT)
## 	(envelope-from lou@metron.com)
## Date: Thu, 8 Aug 2002 17:34:58 -0700
## From: Lou Katz <lou@metron.com>
## To: gnu@toad.com
## Message-ID: <20020808173458.A9808@metron.com>
## Mime-Version: 1.0
## Content-Type: text/plain; charset=us-ascii
## Content-Disposition: inline
## User-Agent: Mutt/1.2.5.1i
## 
# face.awk
# Parse out a facesaver file
# LK 29 Jun 93
#

BEGIN {
    indeks[0]  = "LastName:";
    indeks[1]  = "FirstName:";
    indeks[2]  = "Company:";
    indeks[3]  = "Address1:";
    indeks[4]  = "Address2:";
    indeks[5]  = "City";
    indeks[6]  = "State";
    indeks[7]  = "Zip:";
    indeks[8]  = "Telephone:";
    indeks[9]  = "E-mail:";
    indeks[10] = "Date:";
    indeks[11] = "Image:";
    indeks[12] = "Mirror:";
    indeks[13] = "PicData:";
    picture = 0
    tname = "../tmp/atemp"
}

{
    if (picture)
	 print $0 > tname
    else if (NF > 1) {
	if ($1 == "CityStateZip:") {
	    field["Zip:"] = $NF
	    field["State"] = $(NF-1)
	    field["City"] = ""
	    if ((NF-3) > 1) {
		field["City"] = $2
		for (i=3; i<=(NF-3); i++) {
		    field["City"] = field["City"]" "$i
		}
	    }
	    if (field["City"] != "" )  field["City"] = field["City"]" "
	    if ((NF-2) >=0) {
		split($(NF-2),arr,",");
		field["City"] = field["City"] arr["1"]
	    }
	}
	else {
	    field[$1] = $2
	    for (i=3; i<=NF; i++)
		field[$1] = field[$1]" "$i
	    if ($1 == "PicData:") {
		width = $2;
	    }
	}
    }
    else if (NF < 1){
	picture = 1
    }
}

END {
    fflush(tname)
    
    if (width == 96)
	system("./binarify < ../tmp/atemp | rawtopgm 96 128 | ppmtogif ")
    else
	system("./binarify < ../tmp/atemp | rawtopgm 108 128 | pnmscale -xsize 96 -ysize 128 | ppmtogif")
}