#!/usr/bin/perl -pi.bak -w

# This does a partial substitution of the really
# mechanical bits of our fonts.

    s/Albany;/Albany AMT;Albany;/g;
    s/albany;/albanyamt;albany;/g;
    s/Thorndale;/Thorndale AMT;Thorndale;/g;
    s/thorndale;/thorndaleamt;thorndale;/g;
    s/Cumberland;/Cumberland AMT;Cumberland;/g;
    s/cumberland;/cumberlandamt;cumberland;/g;
    s/comicsansms;/andymt;comicsansms;/g;

# New bits from SuSE:
    s/Arial;/Arial;Nimbus Sans L;/g;
    s/arial;/arial;nimbussansl;/g;
    s/Times New Roman;/Times New Roman;Nimbus Roman No9 L;/g;
    s/timesnewroman;/couriernew;nimbusmonol;/g;
    s/Courier New;/Courier New;Nimbus Mono L;/g;
    s/couriernew;/couriernew;nimbusmonol;/g;

    # prune duplicates
    s/nimbussansl;\(.*\)nimbussansl;/nimbussansl;$1/;
    s/nimbusmonol;\(.*\)nimbusmonol;/nimbusmonol;$1/;
    s/nimbusromanno9l;\(.*\)nimbusromanno9l;/nimbusromanno9l;$1/;
