Changeset 17072 for trunk/Nebulous-Server/lib/Nebulous/Server
- Timestamp:
- Mar 20, 2008, 11:13:28 AM (18 years ago)
- Location:
- trunk/Nebulous-Server/lib/Nebulous/Server
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Server/Config.pm
r10628 r17072 1 1 # Copyright (C) 2005 Joshua Hoblitt 2 2 # 3 # $Id: Config.pm,v 1. 2 2006-12-12 00:06:27 jhoblitt Exp $3 # $Id: Config.pm,v 1.3 2008-03-20 21:10:57 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server::Config; … … 12 12 use base qw( Class::Accessor::Fast ); 13 13 14 use Nebulous::Util qw( %LEVELS);14 use Log::Log4perl qw( :levels ); 15 15 use Params::Validate qw( validate SCALAR ); 16 17 our %LEVELS = ( 18 off => $OFF, 19 fatal => $FATAL, 20 error => $ERROR, 21 warn => $WARN, 22 info => $INFO, 23 debug => $DEBUG, 24 all => $ALL, 25 ); 16 26 17 27 my $new_validate = { -
trunk/Nebulous-Server/lib/Nebulous/Server/SQL.pm
r16282 r17072 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: SQL.pm,v 1.4 8 2008-02-02 02:10:52jhoblitt Exp $3 # $Id: SQL.pm,v 1.49 2008-03-20 21:10:57 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server::SQL; … … 246 246 find_objects_with_unavailable_instances => qq{ 247 247 SELECT 248 s o_id,248 storage_object.so_id, 249 249 ext_id, 250 250 count(ins_id) as instances, 251 251 count(mountedvol.vol_id) as available_instances, 252 252 count(mountedvol.vol_id) < count(ins_id) as need_recovery, 253 count(mountedvol.vol_id) > 0 as recoverable 253 count(mountedvol.vol_id) > 0 as recoverable, 254 storage_object_xattr.value as copies 254 255 FROM storage_object 255 256 JOIN storage_object_attr 256 257 USING(so_id) 257 JOIN storage_object_xattr 258 JOIN instance 259 USING(so_id) 260 LEFT JOIN storage_object_xattr 258 261 ON storage_object.so_id = storage_object_xattr.so_id 259 262 AND storage_object_xattr.name = 'copies' 260 JOIN instance261 USING(so_id)262 263 LEFT JOIN mountedvol 263 264 USING(vol_id)
Note:
See TracChangeset
for help on using the changeset viewer.
