[Mldonkey-bugs] [ 100725 ] mldonk crash

[nobody]

Support Request #100725, was updated on 2002-Apr-11 14:02
You can respond by visiting: 
http://savannah.nongnu.org/support/?func=detailsupport&support_id=100725&group_id=1409

Category: None
Status: Open
Priority: 8
Summary: mldonk crash

By: pingpong772002
Date: 2002-Oct-11 18:39
Logged In: NO 
Browser: Mozilla/5.0 (Windows; U; Windows NT 5.0; de-AT; rv:1.1) Gecko/20020826

Yes !
You need this:
script one call's psg put it into the path:

#!/usr/bin/perl
my $PS="/bin/ps xa -A";
my $GREP="/bin/grep";
my $ARG;
for($x=0;$x<=$#ARGV;$x++){
    $ARG.=$ARGV[$x]." ";
    }
chop($ARG);
#print $ARG."\n\n";
for ($x=0;$x<=$#ARGV;$x++){
    $Ausgabe.=` $PS|$GREP $ARGV[$x]`;
    $Ausgabe=~ s/\n.*perl \/bin\/psg $ARG\n|^.*perl
\/bin\/psg $ARG\n/\n/g;
    $Ausgabe=~ s/\n.*sh \-c $PS\|$GREP $ARGV[$x]\n|^.*sh \-c
$PS\|$GREP $ARGV[$x]\n/\n/g;
    $Ausgabe=~ s/\n.*$GREP $ARGV[$x]\n|^.*$GREP
$ARGV[$x]\n/\n/g;
    $Ausgabe=~ s/\n\n/\n/g;
    }
if($Ausgabe eq "\n"|| $Ausgabe eq ""){
    print "No Match\n";
}else{
    print $Ausgabe;
    }

script two: 

#!/usr/bin/perl
$path="to your mldonkey directory";
while(1)
    {
    $run=`psg mldonkey`;
    $run=~ s/\n//g;
    if($run eq "No Match")
        {
        system("cd $path;ulimit -n 2048;ulimit -a >ml.log;echo
Starte mldonkey ".localtime(time)." >> Startml.txt;rm
*.tmp;./mldonkey >> ml.log &");
        }
    sleep 30;
    }
########

hop it is it

gruss fk

----------------------------------------------------------------------

By: event
Date: 2002-Oct-11 17:33
Logged In: NO 
Browser: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

does anyone have a skript to restart mldonkey every time it 
crashes, perhaps including deleting the *.tmp files

----------------------------------------------------------------------
You can respond by visiting: 
http://savannah.nongnu.org/support/?func=detailsupport&support_id=100725&group_id=1409