+sub doinfo
+{
+ my $clientfile = shift @_;
+ my $fn = getfile($clientfile);
+ $clientfile = basename ($fn);
+ my $size = "unknown";
+ my $sb = stat($fn);
+ $size = $sb->size if (defined($sb) && defined($sb->size));
+ my $md5sum = "unknown";
+ my $md5fn = $fn.".md5sum";
+ if ( -r $md5fn )
+ {
+ my $md5;
+ open $md5, "<", $md5fn || qdie ("Can't read md5sum");
+ while (<$md5>)
+ {
+ chomp;
+ $md5sum = $1 if (/^([a-f0-9]+)\b/);
+ }
+ close $md5;
+ }
+ $sentheader = 1;
+ print CGI::header(
+ -type => 'text/plain' );
+
+ print "$clientfile $size $md5sum\n";
+}
+