Roxen.git/ server/ base_server/ roxen.pike

2006-08-21

2006-08-21 12:00:26 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 9b0aaa7ed79aba3dbd6e5f35ab4f74a41c733262 (21 lines) (+20/-1) ^{[ Show | Annotate ]}
  Branch: 5.2

Ported some ARG_CACHE_DEBUG from Roxen 4.0.

Rev: server/base_server/roxen.pike:1.929

6:   // Per Hedbor, Henrik Grubbström, Pontus Hagland, David Hedbor and others.   // ABS and suicide systems contributed freely by Francesco Chemolli    - constant cvs_version="$Id: roxen.pike,v 1.928 2006/08/21 11:56:38 grubba Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.929 2006/08/21 12:00:26 grubba Exp $";      //! @appears roxen   //!
3291:    " (id,size,atime,meta,data) VALUES"    " (%s,%d,UNIX_TIMESTAMP(),_binary%s,_binary%s)",    id, strlen(data)+strlen(meta_data), meta_data, data ); + #ifdef ARG_CACHE_DEBUG +  array(mapping(string:string)) q = +  QUERY("SELECT meta, data FROM " + name + +  " WHERE id = %s", id); +  if (!q || sizeof(q) != 1) { +  werror("Unexpected result size: %d\n", +  q && sizeof(q)); +  } else { +  if (q[0]->meta != meta_data) { +  werror("Meta data differs: %O != %O\n", +  meta_data, q[0]->meta);    } -  +  if (q[0]->data != data) { +  werror("Data differs: %O != %O\n", +  data, q[0]->data); +  } +  } + #endif +  }       static mapping restore_meta( string id, RequestID rid )    {