summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/id.po
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-31 16:26:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-31 16:26:32 +0000
commitab567127a417fbe79f56d8160f0a462bb4b929b7 (patch)
treed7b424063ea1bf84b762d0a1cf4d54293693d988 /perl-install/share/po/id.po
parent7cc91015fcbe7ddfe28abe0fe8a1e84fbca4a465 (diff)
downloaddrakx-ab567127a417fbe79f56d8160f0a462bb4b929b7.tar
drakx-ab567127a417fbe79f56d8160f0a462bb4b929b7.tar.gz
drakx-ab567127a417fbe79f56d8160f0a462bb4b929b7.tar.bz2
drakx-ab567127a417fbe79f56d8160f0a462bb4b929b7.tar.xz
drakx-ab567127a417fbe79f56d8160f0a462bb4b929b7.zip
- new advertising
- nicer "Details" mode
Diffstat (limited to 'perl-install/share/po/id.po')
0 files changed, 0 insertions, 0 deletions
s="hl str">"; $sock->autoflush; print $sock join("\015\012" => "GET $path HTTP/1.0", "Host: $host" . ($port && ":$port"), "User-Agent: DrakX/vivelinuxabaszindozs", "", ""); #- skip until empty line my ($now, $last, $buf, $tmp) = 0; my $read = sub { sysread($sock, $buf, 1) || die; $tmp .= $buf }; do { $last = $now; &$read; &$read if $buf =~ /\015/; $now = $buf =~ /\012/; } until $now && $last; $tmp =~ /^.*\b200\b/ ? $sock : undef; } 1;