Changeset 71 for branches/stable/cgi-bin

Timestamp:

11/15/04 12:42:35 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Backport email notification for static IP assignments from /trunk
r66, r68, r69, and r70

Location:

branches/stable/cgi-bin

Files:

• IPDB.pm (modified) (4 diffs)
• main.cgi (modified) (2 diffs)

branches/stable/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 POSIX;
 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 &mailNotify);
 
 @EXPORT         = (); # Export nothing by default.
-%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity )]
+%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity &allocateBlock &mailNotify)]
                   );
+
 
 # Creates connection to IPDB.
@@ -66 +68 @@
 } # 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 = Net::SMTP->new("smtp.example.com", Hello => "ipdb.example.com");
+
+  $mailer->mail('ipdb@example.com');
+  $mailer->to($recip);
+  $mailer->data("From: \"IP Database\" <ipdb\@example.com>\n",
+        "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
+        "Subject: {IPDB} $subj\n",
+        "X-Mailer: IPDB Notify v".sprintf("%.1d",$IPDB::VERSION)."\n",
+        "Organization: Example Corp\n",
+        "\n$message\n");
+  $mailer->quit;
+}
+
 # Indicates module loaded OK.  Required by Perl.
 1;

branches/stable/cgi-bin/main.cgi

@@ -47 +47 @@
 
 my %full_alloc_types = (
-        "ci","Cable pool IP",
-        "di","DSL pool IP",
+        "ci","Static cable IP",
+        "di","Static DSL IP",
         "si","Server pool IP",
         "mi","Static dialup IP",
@@ -987 +987 @@
     print qq(<div class="center"><div class="heading">The IP $cidr has been allocated to customer $webvar{custid}</div></div>);
     syslog "notice", "$authuser allocated $cidr to $webvar{custid}";
+# Notify tech@example.com
+    mailNotify('tech@example.com','$full_alloc_types{$webvar{alloctype}} allocation',
+        "$full_alloc_types{$webvar{alloctype}} $cidr allocated to customer $webvar{custid}");
 
   } else { # end IP-from-pool allocation