Honlapszerkesztés, ezúttal PHP+MySQL-ben

Ezek után már nem csoda, ha egy nap alatt összesen két (és fél) oldalt sikerült összedobnom (értsd: összeszenvednem). Minél többet csinálom, annál kevésbé megy. Főleg, most hogy TFT monitorom van, úgy érzem, nem pörög annyira az agyam és lassabban tudok gondolkodni, mint CRT előtt. Ma arra vetemedtem, hogy megkönnyítem a dolgom egy kicsit. Mivel távoli szerveren van a honlap, amit csinálok, ezért állandóan FTP-n kell feltölteni a fájlokat, amiket szerkesztek. Egy idő után (főleg a fentiekkel fűszerezve) kissé unalmassá válik állandóan Total Commander-ből F5+Enter, sőt néha idle timeout is van (újra kell kapcsolódni), ha jó szokásomhoz híven túl sokáig gondolkodom egy néhány soros megoldáson. Szerkesztésre Notepad++ -t használok, szeretem, mert rengeteg nyelvet ismer, összevonja a blokkokat, kiemeli a szintaxist és tud bűvészkedni is a szöveggel/kóddal. Ami még említésre méltó, hogy el tudja indítani adott külső programmal az éppen szerkesztett fájlt, ráadásul mindezt egy gombnyomásra (lehet billentyűparancsot rendelni az ilyen feladatokhoz). Gondoltam írok hozzá egy külső programot, ami szépen feltölti nekem arra a bizonyos FTP szerverre. Neki is láttam perl-ben, és természetesen mi más lett a vége, mint szenvedés, szarakodás.

Íme a script

	use Net::FTP;
	print "bejelentkezes... ";
	my $ftp = Net::FTP->new("*********.******.**");
	print "ok.n" if($ftp->login("*****","*****"));
	$ftp->pasv();
	$ftp->binary();
	$ftp->cwd("/*********/****/*****");
	print "feltoltes: $ARGV[0]...";
	if($ftp->put($ARGV[0])) {
		print "ok.n";
	} else {
		print "nemok.n";
	}
	$ftp->quit;

Ez a része nem működött. Eddig ismeretlen okokból, azokat a CSS fájlokat (mást nem próbáltam feltölteni), melyeket ennek segítségével akartam feltölteni, egyszerűen szétcseszte. A kapcsoszárójeleket ('{' és '}') véletlen vagy direkt kihagyta a fájlból. Próbáltam $ftp->binary() és $ftp->ascii() -val is, de természetesen nem működött. Teljesen úgy érzem magam ilyenkor egyrészt, mintha valaki szándékosan csinálná ezt velem odafentről, vagy akárhonnan, ahonnan irányítani lehet. Másrészről pedig mindig ott van az előreszabott szarakodási idő, amely időt el kell szarnom, nehogy véletlenül hatékony lehessek és elmondhassam, hogy értek a témához. Azaz egy 1-10-es skálán 1-es bonyolultságú programot is annyi idő alatt kell megírnom, mint egy 7-est mondjuk. Az időelbaszásról pedig gondoskodnak a másoknál soha ki nem jött, megoldhatatlan szar problémák, amik csak és kizárólag azért vannak, hogy nekem keresztbe tegyenek. Érdekes, összetettebb dolgoknál kevesebb problémával találkozom, bár a debug-olás ott is majdnem soronként megy. Lényeg, hogy az időt kitöltsem. 16:29 - 16:54 percig, azaz 25 percig kellett írnom egy néhány soros perl scriptet.

Végül a Perl WinInet library-je kihúzott annyira a szarból úgy, hogy a fejem már kilátszik.

Íme az ugyanazt megvalósító script WinInet32-vel

	use Win32::Internet;
	$INET = new Win32::Internet();
	$INET->Pasv(1);
	$INET->FTP($FTP, "***************", "**********", "***********");
	$FTP->Ascii();
	$FTP->Cd("/public_html/********/*******");
	$FTP->Put($ARGV[0],$ARGV[1]);
	$FTP->Close();

	print "$ARGV[0] $ARGV[1]";

Így a végére, leírva ezt, természetesen már el is ment a kedvem a mai honlapszerkesztéstől, mert tudom, mi vár rám. Így most már nagyra becsülök bármilyen honlapot, amit meglátok. Kíváncsi vagyok, egy HUP portálrendszert mennyi idő alatt írnék meg.
A kérdés inkább az: befejezném-e ebben az életemben?