Scritpul este:

#!/usr/bin/perl -w
#
# pfdel - deletes message containing specified address from
# Postfix queue. Matches either sender or recipient address.
#
# Usage: pfdel
#
use strict;
# Change these paths if necessary.
my $LISTQ = "/usr/local/sbin/postqueue -p";
my $POSTSUPER = "/usr/local/sbin/postsuper";
my $email_addr = "";
my $qid = "";
my $euid = $>;
if ( @ARGV != 1 ) {
die "Usage: pfdel \n";
} else {
$email_addr = $ARGV[0];
}
if ( $euid != 0 ) {
die "You must be root to delete queue files.\n";
}
open(QUEUE, "$LISTQ |") ||
die "Can't get pipe to $LISTQ: $!\n";
my $entry = ; # skip single header line
$/ = ""; # Rest of queue entries print on
# multiple lines.
while ( $entry = ) {
if ( $entry =~ / $email_addr$/m ) {
($qid) = split(/\s+/, $entry, 2);
$qid =~ s/[\*\!]//;
next unless ($qid);
#
# Execute postsuper -d with the queue id.
# postsuper provides feedback when it deletes
# messages. Let its output go through.
#
if ( system($POSTSUPER, "-d", $qid) != 0 ) {
# If postsuper has a problem, bail.
die "Error executing $POSTSUPER: error " .
"code " . ($?/256) . "\n";
}
}
}
close(QUEUE);
if (! $qid ) {
die "No messages with the address <$email_addr> " .
"found in queue.\n";
}
exit 0;


Zilele trecute colegii au avut probleme tehnice cu o mașină (Opel, clasic, nu se putea altceva). S-a spart un furtun de la instalația de răcire și curgea antigelul. Se întâmpla la 30 de km de Câmpulung Moldovenesc. Pentru a nu le compromite toată ziua de muncă m-am dus cu o altă mașină după ei cu care să o tractăm pe cea defectă la un service auto și ei să își continuie drumul cu a doua mașină cât timp o repară pe cea defectă.
Merg la service-ul ING Service din Câmpulung Moldovenesc. Le explic care e problema și îi întreb dacă mi-o pot rezolva repede. SIGUR, aduceti-o la noi.
Si le-am dus-o. Completat hârtii, semnat, predat cheia. Și a urmat… așteptarea. O oră. Două ore. Mașina încă afară. Le-am citit acolo toate revistele.
Îi intrebam din când în când de ce nu o bagă să se uite la ea. NU au loc. NU au oameni.
Păi, știți.. de ce nu mi-ați spus înainte să o aduc toate acestea? Că mergem în altă parte.
Încă o oră…
În sfârșit o bagă în hală. Peste vre-o douăzeci de minute primesc vestea cea „bună”:
-Știți, noi terminăm acum programul la 16:30 și nu am reușit să desfacem să vedem care e problema. Mașina trebuie să rămână aici, reveniți mâine.
Tu’va mama voastră! Îmi promiteți că o rezolvăti repede. Stau la voi de la 13 la 16 și mașina nu o băgăți în hală. Și apoi îmi spuneți să vin mâine?
Păi, la ora aia am altă soluție? Trebuie să dansez așa cum cântă ei.
Și a rămas pe a doua zi.
Pe la amiază mă sună că este gata. Superb! Încă un drum până la Câmpulung Moldovenesc la ING Service (BOSCH CAR Service) pentru a ridica mașina.

Au prins prostul. Prostul a dus mașina la ei în service. Mai bine să aibă banii în buzunar și clienți nemulțumiți decât bani mai puțini și clienți mulțumiți de serviciile lor.

PS: Nu vă bucurați că are website. Cică e întreținut de OVO-Media. Nu știu cine sunt ăștia, dar în afară de prima pagină, nu am găsit pe site-ul ING Service din Câmpulung Moldovenesc nici un link funcțional.

Nu vreau internet mobil ieftin. Vreau internet mobil bun!