{
    use esmith::db

    # process all accounts

    my %accounts;
    tie %accounts, 'esmith::config', '/home/e-smith/accounts';

    my @printers = grep { db_get_type(\%accounts, $_) eq 'printer' }
			keys %accounts;
    $OUT = "";

    foreach my $printer ( @printers )
    {
        $OUT .= "\n";
        $OUT .= $printer; 
        $OUT .= "|" . db_get_prop(\%accounts, $printer, 'Description') . ":\\\n";
        $OUT .= "\t:server:\\\n";
        $OUT .= "\t:mx#0:\\\n";
        $OUT .= "\t:sh:\\\n";
        $OUT .= "\t:ff_separator=false:\\\n";
        $OUT .= "\t:sd=/var/spool/lpd/$printer:\\\n";

        if (db_get_prop(\%accounts, $printer, 'Location') eq 'remote') 
        {
	    $OUT .= "\t:rm=" . db_get_prop(\%accounts, $printer, 'Address') . ":\\\n";

	    # no trailing backslash for last entry

	    if (db_get_prop(\%accounts, $printer, 'RemoteName'))
	    {
	        $OUT .= "\t:rp=" . db_get_prop(\%accounts, $printer, 'RemoteName') . ":\n";
	    }
	    else
	    {
	        $OUT .= "\t:rp=raw:\n";
	    }
        }
        else
        {
	    # no trailing backslash for last entry
	    $OUT .= "\t:lp=/dev/" . db_get_prop(\%accounts, $printer, 'Location') . ":\n";
        }
    }

}
