Changeset 356 for branches/stable/cgi-bin/IPDB.pm
- Timestamp:
- 01/05/07 10:50:47 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/IPDB.pm
r354 r356 25 25 %allocated %free %routed %bigfree %IPDBacl 26 26 &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock &deleteBlock 27 & mailNotify27 &getBlockData &mailNotify 28 28 ); 29 29 … … 33 33 @masterblocks %allocated %free %routed %bigfree %IPDBacl 34 34 &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock 35 &deleteBlock & mailNotify35 &deleteBlock &getBlockData &mailNotify 36 36 )] 37 37 ); … … 668 668 669 669 670 ## IPDB::getBlockData() 671 # Return custid, type, city, and description for a block 672 sub getBlockData { 673 my $dbh = shift; 674 my $block = shift; 675 676 my $sth = $dbh->prepare("select cidr,custid,type,city,description from searchme". 677 " where cidr='$block'"); 678 $sth->execute(); 679 return $sth->fetchrow_array(); 680 } # end getBlockData() 681 682 670 683 ## IPDB::mailNotify() 671 684 # Sends notification mail to recipients regarding an IPDB operation
Note:
See TracChangeset
for help on using the changeset viewer.