Changeset 66

Timestamp:

11/12/04 15:17:59 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Shell of allocateBlock() function added
mailNotify function added

File:

• trunk/cgi-bin/IPDB.pm (modified) (4 diffs)

trunk/cgi-bin/IPDB.pm

@@ -1 +1 @@
 # ipdb/cgi-bin/IPDB.pm
-# Contains DB-related functions for IPDB
+# Contains functions for IPDB - database access, subnet mangling, block allocation, etc
 ###
 # SVN revision info
@@ -7 +7 @@
 # Last update by $Author$
 ###
-
-# Split from CommonWeb.pm 08/13/2004 kdeugau@vianet
+# Copyright (C) 2004 - Kris Deugau
 
 package IPDB;
@@ -15 +14 @@
 use warnings;
 use Exporter;
+use Net::SMTP;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 $VERSION        = 1.0;
 @ISA            = qw(Exporter);
-@EXPORT_OK      = qw(&connectDB &checkDBSanity);
+@EXPORT_OK      = qw(&connectDB &checkDBSanity &allocateBlock);
 
 @EXPORT         = (); # Export nothing by default.
-%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity )]
+%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity &allocateBlock )]
                   );
+
 
 # Creates connection to IPDB.
@@ -66 +67 @@
 } # end checkDBSanity
 
+
+# allocateBlock()
+# Does all of the magic of actually allocating a netblock
+sub allocateBlock($) {
+}
+
+
+# mailNotify()
+# Sends notification mail to recipients regarding an IPDB operation
+sub mailNotify ($$$) {
+  my ($recip,$subj,$message) = @_;
+  my $mailer = new Net::SMTP "smtp.example.com";
+
+  $mailer->mail('ipdb@example.com');
+  $mailer->to($recip);
+  $mailer->data("X-Mailer: IPDB Notify v$IPDB::Version\n",
+                "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z\n", localtime)."\n",
+                "Organization: Example Corp.",
+                "From: \"IP Database\" <ipdb\@example.com>\n",
+                "Subject: $subj\n",
+                "\n",
+                "$message\n");
+  $mailer->quit;
+}
+
 # Indicates module loaded OK.  Required by Perl.
 1;