{
    # process all printers

    use esmith::AccountsDB;
    my $adb = esmith::AccountsDB->open_ro();

    $OUT = "";

    foreach my $printer ($adb->printers)
    {
        $OUT .= "\n";
        $OUT .= $printer->prop('Description') . ":\\\n";
        $OUT .= "\t:pr=|/usr/bin/lpr -P" . $printer->key . ":\n";
    }
}

