hi,

I have 2 questions.

(1) Is there any way to avoid the venus cache overrun. I have tried 'cfs
strong', 'venus -cf 10240 -c 102400 -vdds 300000000 -vlds 30000000'.

I thought I make the cache large enough to hold the entire /usr filesystem
(ca. 300MB). This blowed up the venus client to 350 MB RAM but the problem
still happens.

(2) Sometimes I get 'ls: ...: Connection timed out'. I tried 'cfs
waitforever'. Yes, it waits forever. This timeout happens also on readonly access.
If I cannot avoid this I can't use coda for my servers. 

Now I have a 'Local inconsistent object at /coda/bin' after such a
connection timeout. How can I repair it?

I have written a perl script to stress a filesystem. Are you interested
in? Coda is about 2-3 times slower than an ext2fs. This is a good result I
think.

Torsten

---perl---
#!/usr/bin/perl

# stress.pl <directory> <MB_to_read> <from_approx_that_number_of_files>
# This script reads <MB_to_read> Megabytes from files from the directory
tree
# that begins with <directory>. It assumes that there are some files that 
# are accessed more often than other. The 3 parameter gives a hint how
many
# different files should be accessed.

use strict;

my $log=0;

srand time ^ ($$+($$<<15));

#system "cfs flushcache";

my @files=`find $ARGV[0] -type f -print`;

my $amount=$ARGV[1]*1024*1024; # MB

sub magic {
  my ($x, $s, $m)=@_;
  if( 0<$x && $x<=0.5 ) {
    return -log(2*$x)*$s+$m;
  } elsif( 0.5<$x && $x<1 ) {
    return log(2*(1-$x))*$s+$m;
  } else {
    return 0;
  }
}

my $varianz=$ARGV[2]/15;

my @a;

for( my $i=0; $i<2*$#files; $i++ ) {
  $a[$i]=$files[int(rand( $#files ))];
  chomp $a[$i];
}

my $starttime=time;

my %h=();

my ($len, $read, $rbuf);
for( $read=0; $read<$amount; $read+=$len ) {
  local *F;
  my $s=int( magic( rand, $varianz, $#a/2 ) );
  $s=0 if( $s<0 );
  $s=$#a if( $s>$#a );
  my @stat=stat $a[$s] or die "ERROR: Stat $a[$s]: $!\n";
  $len=$stat[7];

  open F, "<".$a[$s] or do {
    warn "WARNING: Cannot open $a[$s]: $!\n";
    $len=0;
    next;
  };
  read F, $rbuf, $len;
  close F;

  $h{$a[$s]}=[0, 0] unless( exists $h{$a[$s]} );
  $h{$a[$s]}->[0]++;
  $h{$a[$s]}->[1]+=$len;
}

my $endtime=time;

print "read $read bytes from ", scalar(keys %h), " files:\n";
if( $log ) {
  print "Count\tBytes\tFile\n";
  foreach (sort {$h{$b}->[0]<=>$h{$a}->[0]} keys %h) {
    print $h{$_}->[0], "\t", $h{$_}->[1], "\t", $_, "\n";
  }
}

print "elapsed amount of time: ", $endtime-$starttime, "sec.\n";

-- 
Sent through Global Message Exchange - http://www.gmx.net