Monthly Archives: February 2012

A nap tanulsága

Este, sötétben, kivilágítatlanul, ittasan ne gyalogolj át egy négysávos úton, miközben a kocsiknak zöld van, mert el fognak ütni. Na igen, ez nem egy akkora okosság, amit sehol máshol nem hallhattatok, de bizton állíthatom van olyan, akinek ez új lenne. Például annak a hajléktalannak (de legalábbis nem volt jól eleresztve), akit ma este ütöttek el szemünk láttára a BAH csomópontnál, a mellettünk lévő sávban. Akkorát repült, hogy meg voltunk győződve, hogy nem élhette túl, de szerencséjére úgy néz ki, hogy csak az egyik  lábát törte el. Bátor volt, az átkelést maximum 30 méterre egy zebrától próbálta meg csúcsforgalom idején. Mondjuk amíg az aszfalton feküdt, biztos eszébe jutott, hogy ez nem volt egy nagy ötlet, mert legalább 6-7 zöldről lemaradt a mentők érkezéséig. Jobb vigyázni, na.
Érdekes színfoltja volt a balesetnek az a fiatal gyerek, aki véletlenül épp arra járkált. Először megkérdezte, hogy elütötték a férfit (sajna nem jutott eszembe, hogy az “igazat” mondjam neki: “Nem, csak szeret a beton feküdni”), aztán elkezdte nagyon aggódva bámulni. Amikor kérdeztem, hogy “orvos vagy, tudsz segíteni?”, akkor mondta, hogy max imádkozni tud érte. És hogy lássuk nem csak a szája jár, le is térdelt a fekvő ember mellé, rátette a kezét a lábára, és valószínűleg imádkozott. Mázlija volt az elütöttnek, hogy nem a törött lábát fogdosták :-) .

Aki mégis inkább kocsik közt szeretne rohangálni, annak ajánlom az Intacto című filmet.

36

Mivel nem csak számomra nagy jelentőségű ez a nap, hanem bizony Valentin nap is ma van, engedjétek meg, hogy egy igazi informatikus költeménnyel köszöntselek Titeket. A vers címe “Purge Static Webe Data”, és én írtam perl-ben. (Ajnálom figyelmetekbe a gyönyörűen kidolgozott jambikus verslábakat!)

#!/usr/bin/perl
use strict;
use Getopt::Long;
use File::Temp qw/ tempfile tempdir /;
use DBI;
use Crypt::TripleDES;
use MIME::Base64;
use LWP::UserAgent;
use File::Path 'rmtree';
use MIME::Lite;
use Net::Domain qw(hostname hostfqdn hostdomain);
my $PASSPHRASE = "HajraHonved";
my $CURRENT_CMP = -1;
my $market = '';
my @email_to = ();
my $filetosave = '';
my $configfile = '';
my @argv_copy = @ARGV;
GetOptions ("email=s" => \@email_to,
                        "help|?"   => \$help,
						"save=s"  => \$filetosave,
						"keepdays=i"  => \$keeplastxdays,
						"keepcampaigns=i"  => \$keeplastxcamp,
						"ebrochurefolder=s"  => \$ebrochurefolder,
						"logfile=s"  => \$logfile,
						"gomezzones=s"  => \$gomezzones,
						"emailfrom=s"  => \$email_from,
						"smtp=s"  => \$email_smtp,
						"marketconnectionurl=s"  => \$marketconnectionurl,
						"deletefiles"  => \$deletefiles,
						"configfile=s"  => \$configfile
						)
	or  printusage();
printlog("script started: " .  localtime() . "\n");
openemaillogfile();readconfigfile();
my $efoldpattern = $ebrochurefolder;
$efoldpattern =~ s/MARKET/\*/g;
$efoldpattern =~ s/SUITE/\*Suite/g;
printlog("searching folders in '$efoldpattern'\n");
my @ebrochurefolders = glob($efoldpattern);
printlog("skipped dirs: $skipped, processed dirs: $olddir\n");
printlog("script ended normally: " . localtime() . "\n");
if ($#email_to >= 0)
{
printlog("sending email(s)\n");
closeemaillogfile();
my $msg = MIME::Lite->new(         From     => "$email_from",
         To      => join(",", @email_to),
         Subject =>"Log of the purge of static data from Webe (" . hostname() . ")",
         Type    =>'multipart/mixed'    );
    $msg->attach(        Type => 'TEXT',
		Data => "Please check attachment for purge details on '" . hostname() . "' - folder: $ebrochurefolder.\n",    );
	if (-e "$tempname")
{
$msg->attach(			Type => 'text/plain',
			Path     => "$tempname",
			Filename => "" . hostname() . ".txt",
			Disposition => 'attachment',
		);
}   
$msg->send('smtp',"$email_smtp",Debug=>0);
# send via default
printlog("email(s) sent\n");
}
END{	close($logfh) if ($logfh);}

 

Még mindig fóka

Jelentem, sikerült félig életet lehelni kedvenc fókámba. Köszönet Czalbinak, aki bebikázta, és az aksisnak, aki adott új aksit. Na jó, neki csak egy picit, végül is ez volt a dolga. Sajnos csak ezért félig sikerült feléleszteni, mert úgy tűnik a jobb első kerék defektes lett. Nem tudom milyen éles hópihe okozhatta, de most vihetem újra szerelő bához. (friss ápdét: egyelőre mégsem ereszt, jónak tűnik)
Azt meg végképp alig merem megemlíteni, hogy a benzin (dízel) is kifogyott, tankolnom kellett, és ablakmosó folyadék sincs már benne. Esküszöm, csak a baj van a kocsikkal. Egy bringával sokkal kevesebbet kell törődni…
Ja, és amint újra elkezdett gurulni a fóka, rögtön mehettem nagybevásárolni. Teljes a csőd.

Boka gyógyulófélben

Az előző bejegyzés sokatokat írásra ösztökélt (köszi az aggódást). Szereztem pár tuti jó sebész nevet, akik biztos kézzel amputáltak/meggyógyítottak volna. Ezeket elrakom, jól fog az jönni később. De örömmel jelentem, a boka már sokkal jobban néz ki, picit vérzett csak be, és a hétköznapi használatot már gond nélkül bírja. A focit pár hétig még nem erőltetem, de egy kis csúszkálás jövő héten szerintem bele fog férni. Gretzky retteghet!