38
38
gennicknameregexp="; $gennicknameregexp"
39
39
gennicknameregexp='s/\s*\(recommended\)//'"$gennicknameregexp"
42
42
tmpfile1=`mktemp -t updateppds.XXXXXX`
43
43
tempfiles="$tempfiles $tmpfile1"
47
47
[ -r "$ppd" ] || continue
50
50
nickname=`grep '\*NickName:' "$ppd" | cut -d '"' -f 2 | perl -p -e 's/\n$//' | perl -p -e "$gennicknameregexp" | perl -p -e 's/(\W)/\\\\$1/g'`
51
51
lang=`grep '\*LanguageVersion:' "$ppd" | cut -d ' ' -f 2 | perl -e 'print lc(<>)' | perl -p -e 's/[\r\n]//gs'`