#!/bin/rc
nl = '
'
tab = '	'
atnl = '@
'

fn face_list {
	cat /usr/$USER/lib/face/48x48x*/.dict /lib/face/48x48*/.dict
}

fn find_user {
	face_list | grep -is $face_entry
}

fn create_face {
	echo $face_entry ^' ' ^$default_face >> /usr/$USER/lib/face/48x48x1/.dict
}

ifs = $nl

for (pattern_face in `{cat /usr/$USER/lib/face/auto_create_patterns}) {
	ifs = $tab
	bits = `{echo $_pattern_face}
	pattern = $_bits(1)
	default_face = $_bits(2)
	
	if (grep -s $pattern $D/rawheader) {
		ifs = $atnl
		bits = `{cat $D/from}
		luser = $bits(1)
		ldomain = $bits(2)
		face_entry = $ldomain ^'/' ^$luser
		if (! find_user)
			create_face
	}
}