chiark / gitweb /
Merge branch 'stable-5.x' into web
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 5 Nov 2009 16:33:19 +0000 (16:33 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Thu, 5 Nov 2009 16:33:19 +0000 (16:33 +0000)
1  2 
yarrg/commod-update-receiver

@@@ -93,7 -93,7 +93,7 @@@ addlog("receiving")
  
  $o{'clientname'}= must_param('clientname',$re_any);
  my $clientinfo= $clients{$o{'clientname'}};
 -fail('unknown client') unless defined $clientinfo;
 +fail('unknown client '.errsan($o{'clientname'})) unless defined $clientinfo;
  
  my $clientfixes= must_param('clientfixes', "^([-0-9a-z ]*)\$");
  my @clientfixes= sort grep { m/./ } split /\s+/, $clientfixes;
@@@ -115,7 -115,7 +115,7 @@@ $o{'ocean'}= must_param('ocean', $re_an
  $o{'island'}= must_param('island', $re_any);
  
  my $arches= $oceans{$o{'ocean'}};
 -fail("unknown ocean") unless $arches;
 +fail("unknown ocean ".errsan($o{'ocean'})) unless $arches;
  
  parse_info_serverside_ocean($o{'ocean'});
  
@@@ -126,10 -126,10 +126,10 @@@ foreach my $islands (values %$arches) 
      die if $island_found;
      $island_found= $sources;
  }
 -fail("unknown island") unless $island_found;
 +fail("unknown island ".errsan($o{'island'})) unless $island_found;
  
  $o{'timestamp'}= must_param('timestamp', "^([1-9]\\d{1,20})\$");
- fail("clock skew") if $o{'timestamp'} >= $now;
+ fail("clock skew") if $o{'timestamp'} > $now;
  
  my $indatafh= upload('data');
  defined $indatafh or fail("data is not a file");