Changeset 20202
- Timestamp:
- Oct 16, 2008, 12:24:39 PM (18 years ago)
- Location:
- trunk/Nebulous-Server/bin
- Files:
-
- 2 edited
-
neb-admin (modified) (2 diffs)
-
neb-voladm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/bin/neb-admin
r20176 r20202 3 3 # Copyright (C) 2005-2008 Joshua Hoblitt 4 4 # 5 # $Id: neb-admin,v 1.1 3 2008-10-15 20:58:02jhoblitt Exp $5 # $Id: neb-admin,v 1.14 2008-10-16 22:24:39 jhoblitt Exp $ 6 6 7 7 use strict; … … 199 199 exit unless scalar @rows; 200 200 201 print "re plicatePending MULTI\n\n";201 print "removalPending MULTI\n\n"; 202 202 203 203 foreach my $obj (@rows) { -
trunk/Nebulous-Server/bin/neb-voladm
r20174 r20202 3 3 # Copyright (C) 2008 Joshua Hoblitt 4 4 # 5 # $Id: neb-voladm,v 1. 9 2008-10-15 20:39:49 jhoblitt Exp $5 # $Id: neb-voladm,v 1.10 2008-10-16 22:24:39 jhoblitt Exp $ 6 6 7 7 use strict; … … 86 86 87 87 if (%set) { 88 my ($q, @bind) = sql_interp("UPDATE volume AS v SET", \%set, "WHERE", \%constraint); 89 warn "$q\n" if $debug; 90 my $query = $dbh->prepare($q); 91 $query->execute(@bind); 88 eval { 89 my ($q, @bind) = sql_interp("UPDATE volume AS v SET", \%set, "WHERE", \%constraint); 90 warn "$q\n" if $debug; 91 my $query = $dbh->prepare($q); 92 $query->execute(@bind); 93 $dbh->do("call getmountedvol"); 94 $dbh->commit; 95 }; 96 if ($@) { 97 $dbh->rollback; 98 die $@; 99 } 92 100 } 93 101
Note:
See TracChangeset
for help on using the changeset viewer.
