sub GetNonce()

in t/modules/proxy_balancer.t [24:49]

• 26 lines of code
• 7 McCabe index (conditional complexity)

sub GetNonce {
  my $url = shift;
  my $balancer = shift;
  my $r;
  $r = GET($url);
  my $NONCE;
  foreach my $query ( split( /\?b=/, $r->content ) ){
    if ($query =~ m/$balancer/) {
      foreach my $var ( split( /&/, $query ) ){
        if ($var =~ m/nonce=/) {
          foreach my $nonce ( split( /nonce=/, $var ) ){
            my $ind = index ($nonce, "\"");
            $nonce = substr($nonce, 0, ${ind});
            if ( $nonce =~ m/^[0-9a-fA-F-]+$/ ) {
              $NONCE = $nonce;
              last;
            }
          }
          last;
        }
      }
    last;
    }
  }
  return $NONCE;
}