Dar vieno analitiko svetainė

Po visų migracijų po serverius, lūžių ir kitų kataklizmų, mano moblogas neveikė jau beveik pusmetį. Bet šiandien jį šiek tiek prigaivinau, ir prisiminęs savo Perlines žinias suraišiojau su virvutėmis sistemą, per kurią vėl galiu talpinti nuotraukas. Tik spamo filtrą reikės dar priraišioti.

Vakar Rimantas pastebėjo, kad mano svetainėje nėra iki galo sutvarkyta RSS sistema, tad jam pažadėjau tai kuo skubiau ištaisyti. Kaip tariau, taip ir padariau, įdėjęs į šabloną vieną naują eilutę

<link rel="alternate" type="application/rss+xml" title="RSS 2.0"
    href="http://moxliukas.esu.as/index.php?id=rss" />

Šiandien ryte ėmiau ir padariau, kaip siūlė tamolė:

s/kompiuterasto/analitiko/g;

Po labai ilgos pertraukos padariau šiek tiek pakeitimų moxWiki. Kai kurie pakeitimai pačiame variklyje, o kai kurie ir turinyje. Nežinau, ar kas naudojasi moxwiki (norint jį pildyti reikia slaptažodžio, tad prieinu prie to tik aš), bet tai man kartais padeda susisteminti kai kurias žinias.

Jeigu kam norisi pažiūrėti į moxwiki pradinius tekstus, parašykite man ;)

Prie pietų stalo, sėdėdamas „Čili“ picerijoje ir belaukdamas kada man atneš ką nors pavalgyti, papildžiau santrumpų sąrašą. Be to sudėjau jį į YAML formatą, kad būtų jį lengviau parsisiuntus panaudoti.

Šiandien ėmiau ir pritaikiau dienoraštį prie XFN sistemos. To pasekoje šone atsirado labai dažnas dienoraščių atributas – blogrollas. Stengiausi surašyti visus, ką pažįstu ir kieno lankausi svetainėse. Tiesa, keblumų kilo, nes stengiausi nuorodose rašyti tikrus vardus ir pavardes, bet kai kurių žmonių žinau tik pravardes. Kol kas tokiais atvejais jų neįtraukiau į šoninį sąrašą, nors gal reikės surašyti jų pravardes – dar nenusprendžiau.

Atsibodo kiekvieną kartą darant įrašą visoms santrumpoms <abbr> žymas dėlioti rankomis. Tad pasirašiau
Perlinį skriptuką, kuris visą tai atlikea automatiškai. Visą skriptą rašiau troleibuse važiuodamas namo ant Psiono
– vat dėl Perlo jį galima mylėti ;-)

Šitam automatizavimui išrinkau visas santrumpas, kurios buvo naudotos mano dienoraštyje. Visos jos čia – gal kam
pravers.

API	Application Programmer's Interface
ASCII	American Standard Code for Information Interchange
CGI	Common Gateway Interface
CMS	Content Management System
CPAN	Comprehensive Perl Archive Network
CSS	Cascading Style Sheets
CVS	Concurrent Version System
DDOS	Distributed Denial of Service
DOS	Denial of Service
DRM	Digital Rights Management
DTD	Document Type Definition
FOAF	Friend Of A Friend
GPL	GNU Public Licence
GPS	Global Positioning System
HTML	HyperText Markup Language
IP	Internet Protocol
IRC	Internet Relay Chat
JAPH	Just Another Perl Hacker
LCD	Liquid Crystal Display
LWP	Lib-Www Perl
MIT	Massachusetts Institute of Technology
MMS	Multimedia Messaging Service
PEAR	PHP Extension and Application Repository
PECL	PHP Extension Community Library
PHP	PHP: Hypertext Preprocessor
PMC	Perl Magic Cookie
POP3	Post Office Protocol version 3
PPM	Perl Package Manager
RC	Release Candidate
RDF	Resource Description Framework
RSS	Really Simple Syndication
SMTP	Simple Mail Transfer Protocol
SQL	Sequential Query Language
TCO	Total Cost of Ownership
TVS	Turinio Valdymo Sistema
URL	Universal Resource Location
W3C	World Wide Web Consortium
WAP	Wireless Application Protocol
WML	Wireless Markup Language
XFN	XHTML Friends Network
XHTML	eXtensible HyperText Markup Language
XML	eXtensible Markup Language
XSS	Cross Site Scripting
ssh	Secure SHell
yacc	yet another compiler compiler

OK, bandau dar kartą postint, testuodamas lietuviškas raides:
ąčęėįšųūž

Vyksta IP adresų keitimai, tad ši svetainė gali būt nepasiekiama šiandien. (Lyg kam tai rūpėtų ;-)

Vakar naktį pasidariau moblogą. Tai turbūt vienas iš tų projektų kur dariau nes galiu padaryt, o ne todėl kad reikia. Faktiškai Perlo kodo rašymas visada malonus, net jei ir nepildysiu to moblogo ateityje – iš manęs fotografas tai kaip iš mano bobulės perlininkė.

Visam šitam daiktui tiesiog persikopijavau savo svetainės kodą į kitą direktoriją, šiek tiek pataisiau šablonus (bet ne iki galo, nes vakar jau labai norėjosi miego), sukūriau porą SQL lentelių, pataisiau kodą, kad dirbtų su tomis naujomis lentelėmis ir parašiau el. pašto apdorojimo programėlę. Pakeitimų ne tiek daug kaip atrodo ;)

Štai kodas, kuris apdoroja gautą el. paštą, surašo kur reikia attachmentu atėjusias JPG bylas ir įterpia reikiamus duomenų bazės įrašus:

#!/usr/bin/perl -w

use strict;use MIME::Parser;

use FileHandle;

use File::Path;

use DBI;

$|++; # Autoflush on

# Prisijungiam prie MySQL

my $dbh = DBI->connect("DBI:mysql:database=moxliukas;dbhost=localhost",

        'moxliukas', 'passwordas');

# katalogų keliai - laikinas ir output

my $tmp_dir = '/home/moxliukas/tmp';

my $output_dir = '/home/moxliukas/public_html/moblog/images';

my $parser = MIME::Parser->new;

$parser->output_dir($tmp_dir);

# Skaitom viską iš STDIN

my $entry = $parser->parse(*STDIN);

# Kiekvienai MIME daliai...

for my $part ($entry->parts) {

       # Žiūrim koks duomenų tipas

        my $mime = $part->mime_type;

        if($mime =~ /jpeg/) {  # jei tai JPG...

             # sukuriam bylos pavadinimą pagal unix timestamp

                my $url = time() . '.jpg';

                my $fh = FileHandle->new($output_dir . '/' . $url, 'w');

                binmode($fh);

                my $ifh = $part->open('r');

             # perkopijuojam bylas kur reikia

                $fh->print($ifh->getlines);

                $_->close for($fh, $ifh);

             # įterpiam į duombazę

                my $sql = "INSERT INTO moblogs SET kada=NOW(), url='$url'";

                $dbh->do($sql);

        } else {

          # Jei tai ne JPG, praleidžiam šią dalį

                next;

        }

}

$dbh->disconnect;