{
    # process all printers

    use esmith::db;

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

    $OUT = "";

    foreach my $account (keys %accounts)
    {
	my ($type, %properties) = db_get(\%accounts, $account);
	if ($type eq 'printer')
	{
	    $OUT .= "\n";
	    $OUT .= "$properties{'Description'}:\\\n";
	    $OUT .= "\t:pr=|/usr/bin/lpr -P$account:\n";
	}
    }
}

