#!/usr/bin/perl -w


use strict;
use CGI;
use POSIX;

my $query = CGI->new;
my %form = %{$query->Vars};


### Config Center
require SDBM_File;

my %dbm;
my %unv;
my $dbm_file = "evs.dbm";
my $unverified = "unv.dbm";
my $url = "http://sulfericacid.perlmonk.org/evs/evs.pl";

my $accountID = $query->url_param('accountID');
my $accountAD = $query->url_param('accountAD');

my $adminmail = "admin\@test.com";
my $sendmail = "/usr/lib/sendmail";
my $message = "Thank you for opting in on my mailing list please click
+ the link below to activate your listing.";


tie %dbm, 'SDBM_File', $dbm_file, O_CREAT|O_RDWR, 0644;
if (!tied %dbm) {
  print "database unsuccessful.\n";
}

tie %unv, 'SDBM_File', $unverified, O_CREAT|O_RDWR, 0644;
if (!tied %unv) {
  print "database unsuccessful.\n";
}

### END CONFIG


  use CGI qw/:standard/;
print header, start_html('Email Management');

print start_form(), table(

    Tr(
        td("Email: "),
        td(
            textfield(
                -name => 'email',
                -size => 40
            )
        )
    ),


    Tr( td(), td(submit) ),
  ),
  end_form(), hr();


my $email = param('email');

my $chars;

my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, );
my $ID;

### randomize characters
do { $ID = join '', map { $chars[ rand @chars ] } 1..17; } 
while grep {$_ eq $ID} my @used;

### If USERMAIL exists add information to notverified DBM
if ($form{'email'}) {

$unv{$ID}= $email;

        print "<br>An email has been sent to $email.  Please check it 
+to verify your information.\n";


### email the users
my $accountAD = $email;
my $accountID = $ID;

open (MAIL, "|$sendmail -t") or die "Cannot access mail";
  print MAIL "To: $email\n";
  print MAIL "From: $adminmail\n";
  print MAIL "Subject: Verify your Email Address\n\n";
  print MAIL "$message\n\n";
  print MAIL "$url?accountID=$accountID&accountAD=$accountAD\n";
close (MAIL);
}

### If url_param() exists
if ($accountID && $accountAD) {

&params;
}

###  If url_param() exists check to see if it exists in DBM
sub params { 
if ( $accountID && ( $accountAD ne '' ) ) {
        
        if ( exists $unv{$accountID} ) { 
            if ( $unv{$accountID} eq $accountAD ) {
                $dbm{$accountAD} = $accountAD;
                delete $unv{$ID};
                print "Your address has been indexed successfully!<br>
+";
                print qq(Please click <a href="$url">here</a> to submi
+t another address);
exit;
            }
            else {
                print "Registration didn't match.<br>";
                print qq(Please click <a href="$url">here</a> to resen
+d information);
                           }
        
        }
            else {
                print "Email address not found.  Please re-submit your
+ details.<br>";
                print qq(Please click <a href="$url">here</a> to try a
+gain);
            exit;
            }
        }
    }

[download]

In reply to EVS- Email Verification System by sulfericacid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.