Changeset 578 for trunk/cgi-bin
- Timestamp:
- 12/28/12 16:21:18 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r576 r578 800 800 $msg .= ": $@"; 801 801 eval { $dbh->rollback; }; 802 return ('FAIL', $msg);802 return ('FAIL', $msg); 803 803 } else { 804 return ('OK', "$args{cidr}");804 return ('OK', $args{cidr}); 805 805 } 806 806 … … 825 825 my $rtype = $1; 826 826 $dbh->do("UPDATE freeblocks SET routed=?,rdepth=rdepth+1,city=?,parent=? WHERE cidr=? AND rdepth=?", 827 undef, ($rtype, $args{city}, $args{cidr}, $args{cidr}, $args{rdepth}) );827 undef, ($rtype, $args{city}, $args{cidr}, $args{cidr}, $args{rdepth}) ); 828 828 } else { 829 829 # "normal" case
Note:
See TracChangeset
for help on using the changeset viewer.