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);}
HÜLLYEE!! Annamari compile-olja magának, lefuttatja és???
És így készül a gyerek…
atyaég! mé nem C++-ban írtad azt a kiskölkökt? Stabilabban futna, nem?
Még nem fut. Lehet átírom
Mi a fasz ez??? Ha nem lehet káromkodni a blogon, zárj ki! Lehet, jobban járok..
Neked mindent szabad!
Ez kérlek annak a gyümölcse, amikor szépen dolgozom.