October 30, 2003

pirmi php zingsniai

Siandien pradejau kurti savo weblog'a su php. Viskas kolkas sekasi OK. Pasidariau mazuti CMS, tipo irasyt ir trint irasama (cia kolkas, kad galeciau testuot). Ir plika INDEX.PHP. Seip dabar susiduriau su problema, nesumastau kaip priskirt komentarus temai, ir kaip padaryt kad paspaudus ant temos, atsidarytu naujam page ta tema, su komentarais. Nu cia gal sugalvosiu kai pailsesiu nuo kompo, nes jau pavargau nuo ryto tiek daug mastyt:) Viski pirmi php zingsniai nera lengvi ( bet nera ir sunkus, kaip atrode).
Mygtukus maigė: vooz2 kažkurtai 03:43 PM laiku | Papezėta 6 kartų

October 24, 2003

Irc bot by PERL

Pas moxliuka radau idomu dalyka: Perl'ini irc bot'a kuris ten tipo visus parasytus kanale www ikelia i mysql baze, o is ten i www. Viezo idomus dalykas. So... as irgi pabandziau toki pasidaryti, viskas ok, po sunkiu darbu paleidau, bet... Jis sedi kanale, ale kai paras¡ai koki http://.... jis jo neikelia i mysql baze. Kazkaip itariu kad prisijugnia normalei, bet arba nemoka ikelt, arba mano kodas kreivas, arba nepasirenka mano duombazes: "woozdb". bbz vienu zodziu pateikiu Jums koda, gal kas pades man...
#!/usr/bin/perl -w
$|++;
use strict;
use Data::Dumper;
use Net::IRC;
use DBI;

my $config = {
'db' => {
'duombaze' => 'woozdb',
'user' => 'wooz',
'password' => 'i'},
'irc' => {
'nick' => 'Tarantula',
'server' => 'irc.parok.lt',
'kanalai' => [ '#parok' ],
'ircname' => 'by VooZ2',
'port' => 6667 },
};
my $dbh = DBI->connect('DBI:mysql'.$config->{'db'}->{'duombaze'}.',
$config->{'db'}->{'user'},
$config->{'db'}->{'password'});

my $dbinsert = $dbh->prepare("INSERT INTO links
SET linkas = ?,
nick = ?,
kanalas = ?");
my $irc = new Net::IRC;
my $conn = $irc->newconn(Nick => $config->{'irc'}->{'nick'},
Server => $config->{'irc'}->{'server'},
Port => $config->{'irc'}->{'port'},
Ircname=> $config->{'irc'}->{'ircname'});

$conn->add_global_handler('public', \&on_public);
$conn->add_global_handler('376', \&on_connect);
$conn->add_global_handler('422', \&on_connect);

$irc->start;

sub on_connect {
my $self = shift;
for my $c (@{$config->{'irc'}->{'kanalai'}}) {
$self->join($c);
}
}


sub on_public {
my $self = shift;
my $msg = shift;
my $txt = $msg->{'args'}->[0];
$txt =~ /(http:\/\/S+)/
&& prideti_linka($1,
$msg->{'nick'},
$msg->{'to'}->[0]);
}

sub prideti_linka {
$dbinsert->execute(@_) or warn $dbh->errstr;
}

Mygtukus maigė: vooz2 kažkurtai 04:11 PM laiku | Papezėta 2 kartų

October 22, 2003

Linux ir OpenBSD benchmark'as

Vat radau įdomų benchmark'a tarp Linux ir OpenBSD. Gal mane sudomino ne kiek pats testas, o Conclusion apie OpenBSD:
OpenBSD 3.4 was a real stinker in these tests. The installation routine sucks, the disk performance sucks, the kernel was unstable, and in the network scalability department it was even outperformed by it's father, NetBSD. OpenBSD also gets points deducted for the sabotage they did to their IPv6 stack. If you are using OpenBSD, you should move away now.
Čia mūsų nuomonės labai sutapo, ypač dėl installation.

Testas
Mygtukus maigė: vooz2 kažkurtai 08:52 PM laiku | Papezėta 0 kartų

Alus mums ir Jums

Jei alus tai alus, ir jokų komentarų :) Juk alus tai mano gyvenimas...
Mygtukus maigė: vooz2 kažkurtai 06:02 PM laiku | Papezėta 0 kartų

October 20, 2003

Gyvenimas nestovi vietoje

Kaip tai vis nerasdavau laiko prisėsti prie gerb. Kompiuterio. Ir jo net nepasigedau :) Šeip nieko naujo, tik va mano PC yra Slackware 9.0 (nors labiau man Debian patinka), bet kai ten daug tų ext2 partiiju ( /; /vat; /home ir t.t.) niekaip nesugebu padaryt kad galima būtų kraut ir Slack'ą ir WinXP. Nei LILO, nei Partition Magic'as nekrauna, jei krauna tai tik arba Slackware (Lilo), arba WinXP (PM). Iš vis sugalvojau stumsiu savo kompą, ir pirksiu notebook'ą. Tik dabar reik sugalvoti kiek gi jis vertas :)
Susidėjau į savo WinXP ( visgi nepasikrauna man dabar Slack'as) MSN Messenger'į, tai jei ką wooz95@msn.com :)
Mygtukus maigė: vooz2 kažkurtai 03:11 PM laiku | Papezėta 0 kartų