FREE Classified Advertising! FREE Websites! FREE Promotional Tools!
« General Board »

Welcome Guest. Please Login or Register.
Dec 15, 2009, 10:02pm



Simple search engines success formula
How an internet web master built FIVE high-traffic sites in six months using nothing but search engine listings

From the e-desk of Andy Brocklehurst
June 24th 2003 - 10:45am EST

This is going to freak you out.

Over the last few months, I've watched a good friend of mine build successful web sites entirely from search engine traffic.

But although he was happy to show me how he did it, he didn't want to spill the beans to anyone else.

It drove me crazy.

Imagine being in my position as an author of Internet Marketing materials. He'd shown me exactly how he'd built some serious traffic, produced statistics proving it had worked and I couldn't pass on this valuable information to my customers or subscribers.

But I wasn't going to give up...

After a series of meetings with him he finally caved in.

Now, for the first time ever, his exact system has been fully documented in a concise, easy to read, plain English, ten-page report.

A harsh fact about books on search engine strategy...

Most ebooks and reports on 'search engine strategy' are utter junk.

Many of them are nothing more than a bunch of out-dated ideas and information you can get for free if you look around a little.

And many of them are obviously written by people who have little experience of getting a site ranked - obvious because their own site isn't.

Peter has proven his system FIVE times over, and has techniques that are all safe, all legitimate, and some that you won't have seen in print before.

Just a tiny sample of what's in this amazing report...

  • How to use Overture to boost your rankings without paying a penny in pay-per-click fees.


  • One type of heading you should always use (and six that you shouldn't).


  • How to safely cross link for maximum benefit (and this method won't get you banned).


  • How and where to submit your site so it takes minimum time but gives maximum exposure.


  • One method no one ever thinks of that's been responsible for some MAJOR traffic. I've not seen this in any other book or report on the subject. This one technique alone is easily worth the tiny price of the report.


  • Forget what you already know about keyword density. This report tells you what you need to know and makes it easy.


What's amazing to me is how others try to fill hundreds of pages with so called strategy. Peter has summarized his entire formula into just TEN pages.

You can read this in less than twenty minutes and start putting it into effect right away.

Remember...

  • All of the methods given here are 100% legitimate. You WILL NOT get banned for using these methods.


  • Peter has proven this system five times over with different web sites on different subjects.


  • None of the ideas need expensive software or tools.


  • You don't need to have any prior experience with search engines.


  • You don't need to be an expert at HTML.


  • This report won't take you weeks to wade through and leave you with dozens of unanswered questions.


But we haven't got to the best part yet...

How much is a good search engine ranking worth to you?

How many more orders and enquires would it bring?

How ever you look at it, a good search engine listing is great advertising and although Peter could have easily insisted this report was sold for hundreds of dollars - you're going to get it for less than the cost of a small classified in a tiny e-zine.

So how much will this special report cost you?

This is really insane...

You can download your own copy right away for just $9.97

But wait...

How about being able to resell this report and keep 100% of the profits?

For just $5 more you can purchase this report with full resale rights. You can even resell the reprint rights, or just sell the report on its own.

Not only that but you'll be entitled to include the report as a bonus with your own products or include it on fee based membership sites.

Choose an option:

Option #1
Order 'Hitting the Search Engines with reprint rights.
You will get the report, a special re-branding tool so that you can brand it with your domain name and a resale rights license.

You may resell the product, with or without the same rights.

For a one time payment of just $14.97

Click Here to Order with Resale Rights
Option #2
The report only without reprint rights.
This is for those who want to read and learn from the report and have no wish to resell it.

Yours for just $9.95

Click Here to Order the report only

Whichever option you decide, you can look forward to finding your site well positioned on the search engines in just a few short weeks from now.

Kind regards,



Andy Brocklehurst
http://www.succeed4u.com

P.S. If you think you can sell even one copy, then take the reprint rights version for just $5 more - remember, you can resell the product with or without those same rights. Click Here to buy with rights



(C)2003 Andy Brocklehurst/66th.net


Other sites of interest:

Infoproductmagic.com

www.seriousedge.com

Internet Profits the Quickway

netodex.com


FREE Classified Advertising! FREE Websites! FREE Promotional Tools! :: General :: General Board (1 Viewing)
   [Search This Board][New Thread] [New Poll]
  SubjectStarted byRepliesViewsLast Post

Currently, there are no messages posted on this board.


#!/usr/bin/perl ############################################################################## # Autoresponder Unlimited 2.0 # # Copyright 2002 The 29th Floor Enterprise # # Last modified 09/01/2002 # # Authors: Tess Rupprecht # # Available at http://www.autoresponderunlimited.com # ############################################################################## # COPYRIGHT NOTICE # # Copyright 2003 The 29th Floor Enterprise . All Rights Reserved. # # # # This script can be used as long as you don't change this # # header or any of the parts that give me credit for writing this. # # # # By using this script you agree to indemnify me from any liability # # that might arise from its use. # # # # Redistributing\selling the code for this program without prior written # # consent is expressly forbidden. # # # # Use for any unauthorized purpose is expressly prohibited by law, # # and may result in severe civil and criminal penalties. # # Violators will be prosecuted to the maximum extent possible. # # # # YOU MAY NOT RESELL OR RELEASE THIS PROGRAM TO OTHERS # # IT IS FOR YOUR PERSONAL USE ONLY. # # # ############################################################################## sub configure { ################################################################# # CHANGE ONLY THESE VARIABLES: # ################################################################# # Type the URL address of the ar.cgi. # Replace ONLY www.yourdomain.com to yourdomain or URL address. $scriptpath="http://advertisingfree.proboards21.com/cgi-bin/autoresponder/ar.cgi"; $htmlpath="http://advertisingfree.proboards21.com/html"; $imgpath="http://advertisingfree.proboards21.com/html/img"; # Type the full path to your EMail program. # If you're not sure of this, ask your server administrator $mailprog="/usr/sbin/sendmail"; # Type your email address. Make sure # to place a \ in front of the @ # As an example: admin\@autoresponderunlimited.com $fromaddr="naturesvitamins\admin\@wiktel.com"; # This is the file that will hold all of the email addresses and names # of all of your autoresponders. Change it to something more secretive. $mbase = "collect.txt"; # Type default name. If the system is unable to extract # the prospect's name, it will print the Default Name. $emptyuname="Friend"; # Enter the Admin password (case sensetive 8 chars max) $password="p39102"; } 1; #!/usr/bin/perl ################################################################# ##-------------------------------------------------------------## ## DO NOT EDIT ANYTHING BELOW ## ##-------------------------------------------------------------## ################################################################# require "config.cgi"; &configure; $checkuserfile=""; splice(@checkuserarray); $scripturl=$scriptpath; $mailprog=$mailprog." -i -t"; $admin=$fromaddr; @months=("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); require "Lite.pm"; $|=1; if ($activate){ &mailer; exit; } &readparse; if ($FORM{'mode'} eq "showpanels"){ &showpanels; } elsif ($FORM{'mode'} eq "showars"){ &showars; } elsif ($FORM{'mode'} eq "4"){ addar($FORM{'adar'}); } elsif ($FORM{'mode'} eq "5"){ &checkform; } elsif ($FORM{'mode'} eq "1"){ @arlist=getarlist(); foreach(@arlist){ if ($FORM{"$_"} ne "") { push(@todel,$FORM{"$_"}); $rrr=$FORM{"$_"}.", ".$rrr; } } # $ondelars="onload=\"javascript:parent.main.location='".$htmlpath."index.htm'\""; delar(@todel); } elsif ($FORM{'mode'} eq "letters"){ letters($FORM{'ar'}); } elsif ($FORM{'mode'} eq "newlet"){ &showpanels; letterbody("Type Your Subject Here!","Type Your Message Here!",$FORM{'newone'}); &footer; } elsif ($FORM{'mode'} eq "saveletter"){ $fname="letter$FORM{'num'}"."\.txt"; ($pattach)=getattach("$FORM{'ar'}/$fname"); $pattach=~/.*\.(.*)/; if($pattach ne $filetoattach && $filetoattach ne ""){unlink("$FORM{'ar'}/upfile$FORM{'num'}.$1");} if ($fname ne "letter.txt"){ open(LETTER,">$FORM{'ar'}/$fname"); flock(LETTER,$LOCK_EX); print LETTER "Subject:$FORM{'subject'}\n"; if($filetoattach eq ""){$filetoattach=$pattach}; print LETTER "Attachment:$filetoattach\n"; $body=$FORM{'body'}; $body=~s/\r\s/\r/g; print LETTER "$body"; close(LETTER); }; @kkeys=getfiles("$FORM{'ar'}"); @periods[0]=0; if ($FORM{'edit'} eq ""){ foreach(@kkeys){ if (/letter(\d+)/) { $per=$FORM{$_}; if ($per eq ""){ if($1==1){ $per=0; } else { $per=@periods[$1-2]+1; }; } @periods[$1-1]=$per; } }; if ($#periods!=-1){ open(PERIODS,">$FORM{'ar'}/periods.txt"); flock(PERIODS,$LOCK_EX); my($idxp); print PERIODS "0\n"; for($idxp=1;$idxp<=$#periods;$idxp++){ if ((@periods[$idxp]=~/\D+/)||(@periods[$idxp]<=@periods[$idxp-1])){@periods[$idxp]=@periods[$idxp-1]+1}; print PERIODS "@periods[$idxp]\n"; }; close(PERIODS); }; my($fromars,$namears,$unlink,$redirect,$sendad)=($FORM{'fromfield'},$FORM{'namefield'},$FORM{'unlink'},$FORM{'redirect'},$FORM{'sendad'}); if (open(FILE,">$FORM{'ar'}/$FORM{'ar'}.cfg")){ flock(FILE,$LOCK_EX); print FILE "$fromars\n$namears\n$unlink\n$redirect\n$sendad\n"; close(FILE); }; }; if ($FORM{'period'} ne "" && $FORM{'import'} ne "") { &importusers; } letters($FORM{'ar'}); } elsif ($FORM{'mode'} eq "read"){ $fname=$FORM{'fname'}; open(LETTER,"$FORM{'ar'}/$fname"); flock(LETTER,$LOCK_EX); $str=; $str=~/Subject:(.*)/; $subject=$1; $str=; $str=~/Attachment:(.*)/; $attachmentfile=$1; while(!eof(LETTER)) { $str=; chomp($str); $str=~s/\n//g; $body=$body.$str; }; close(LETTER); &showpanels; letterbody($subject,$body,$FORM{'num'},$attachmentfile,$getit); &footer; } elsif ($FORM{'mode'} eq "delletter"){ if ($FORM{'num'} ne ""){ $fname="letter$FORM{'num'}"."\.txt"; my($attach)=getattach("$FORM{'ar'}/$fname"); $attach=~/.*\.(.*)/; unlink("$FORM{'ar'}/$fname"); unlink("$FORM{'ar'}/upfile$FORM{'num'}.$1"); my(@files1)=(getfiles("$FORM{'ar'}")); @kkeys=sort blia @files1; chdir($FORM{'ar'}); foreach(@kkeys){ ~/letter(\d+)/; if ($1>$FORM{'num'}){ $new=$1-1; ($pattach)=getattach("letter$1.txt"); rename("letter$1.txt","letter$new.txt"); $num=$1; $pattach=~/.*\.(.*)$/; if ($pattach ne ""){ rename("upfile$num.$1","upfile$new.$1"); }; } }; chdir(".."); if(open(PER,"$FORM{'ar'}/periods.txt")){ flock(PER,$LOCK_EX); $linenum=1; while(!eof(PER)){ $line=; chomp($line); if ($linenum!=$FORM{'num'}) {push(@newone,$line)}; $linenum++; } close(PER); } if(open(PER,">$FORM{'ar'}/periods.txt")){ flock(PER,$LOCK_EX); foreach(@newone){print PER "$_\n"}; close(PER); }; letters($FORM{'ar'}); }else {error("Nothing!!!")} } elsif ($FORM{'mode'} eq "register"){ ®ister; print ""; } elsif ($FORM{'mode'} eq "mailer"){ &mailer; error("Ales good!"); } elsif ($FORM{'mode'} eq "r"){ &unlinkuser; } elsif ($FORM{'mode'} eq "code"){ &showpanels; &generator; &footer; } elsif ($FORM{'mode'} eq "delattach"){ ($subj,$bod,$attach)=getletter("$FORM{'ar'}/letter$FORM{'num'}.txt"); $attach=~/.*\.(.*)/; unlink("$FORM{'ar'}/upfile$FORM{'num'}.$1"); open(LETTER,">$FORM{'ar'}/letter$FORM{'num'}.txt"); flock(LETTER,$LOCK_EX); print LETTER "Subject:$subj\n"; print LETTER "Attachment:\n"; print LETTER "$bod"; close(LETTER); letters($FORM{'ar'}); print ""; } elsif ($FORM{'mode'} eq "secure"){ if($FORM{'password'} eq $password){ &showpanels; } else {&checkform}; }elsif ($FORM{'mode'} eq "export"){ &exportmails; } else { error("Unexpected error"); } sub getfiles{ my(@files1); opendir(DIR,"@_[0]") || die "Cannot open $userdir!"; while (@files=readdir(DIR)) { foreach $file(@files){ if ($file ne ".." && $file ne "." && $file ne "" && $file=~/letter\d*\.txt/) { push(@files1,$file); } }; }; return @files1; } sub getattach{ my($str); open(LETTER,"@_[0]"); flock(LETTER,$LOCK_EX); $str=; $str=; chomp($str); $str=~/Attachment:(.*)/; close(LETTER); return $1 } sub showtitle{ print "

AUTORESPONDER

\n"; } sub header { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "Autoresponder Unlimited Admin Control Panel\n"; print "\n"; print "\n"; # print "\n"; print "\n"; print "\n"; } #header sub showpanels{ &header; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "
\n"; print "\n"; &showars; } #showpannels sub footer { print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; }; sub showars{ print"\n"; print"



\n"; print"

\n"; print"\n"; if (open(FILE,"responders.cfg")){ flock(FILE,$LOCK_EX); foreach(){ chomp($_); print "\n"; }; close(FILE); }; print"

".$_."


\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

Select a nickname
for your new account
(3-8 letters and digits)

Select the account(s)
you want to remove and
click this button:

Warning: All data will be lost

\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print" \n"; print"\n"; } #showars sub countusers{ my($i)=0; if (open(USERSFILE,"$FORM{'ar'}/users.txt")){ flock(USERSFILE,$LOCK_EX); while(){ $i++ } flock(USERSFILE,$LOCK_UN); close(USERSFILE); } return $i; } sub letters{ my(@periods); my($fromars,$namears,$unlink,$redirect,$fromad)=(getarlist("$FORM{'ar'}/$FORM{'ar'}.cfg")); if ($unlink == 1){$unlink="checked"}; if ($fromad == 1){$fromad="checked"}; &showpanels; print "\n"; print "

Autoresponder: @_[0]

\n"; print "

Active prospects: ",countusers(),"

\n"; print "
\n"; print "

\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print " \n"; print "

Autoresponder Settings

'From' name:

Add unsubscribe link:

'From' email:

Send report to admin:

Redirect after registration to:

\n"; print "
\n"; print "
\n"; print "

Edit Messages

\n"; print "\n"; open(FILE,"$FORM{'ar'}/periods.txt"); flock(FILE,$LOCK_EX); foreach() {push(@periods,$_)} close(FILE); @periods[0]=0; $numb=0; opendir(DIR,"@_[0]") || die "Cannot open $userdir!"; while (@files=readdir(DIR)) { foreach $file(@files){ if ($file ne ".." && $file ne "." && $file ne "" && $file=~/letter\d*\.txt/) { push(@list1,$file); @listing=sort blia @list1; @listing[$#listing]=~/(\d+)/; $num=$1; if($numb>$#periods){@periods[$numb]=@periods[$numb-1]+1}; print ""; } else { print "

"; } $numb++; } } }; close(DIR); if ($#listing==-1){ print ""; } else { }; $newlet=$#listing+2; print "

Message $num

sent after days"; ($pattach)=getattach("$FORM{'ar'}/@listing[$#listing]"); $pattach=~/.*\.(.*)$/; if ($pattach ne ""){ $size=-s "$FORM{'ar'}/upfile$num.$1"; print " with attachment: $pattach ($size bytes)

You have no letters!

"; print "

\n"; print "
\n"; print "

Prospects
Do you want to add new contacts to your 'active prospects' list?
Just insert their names and addresses below in the following format:
John Smith|john\@email.com
or:
john\@email.com
(one address per line)
Import prospects into sequence beginning with message number

\n"; print "
\n"; print " "; print "

\n"; print "
\n"; print " \n"; $numb++; print " \n"; print " \n"; print "


\n"; print "\n"; &footer; }; sub letterbody{ if (@_[3] ne ""){ $delat=""} print "\n"; print <<_html;

Autoresponder: $FORM{'ar'}

Edit Message @_[2]

Subject:

Body:

Currently attached file: @_[3] $att $delat


File to attach:
_html print ""; print ""; print ""; print "\n"; print "\n"; print <<_html;

PERSONALIZING YOUR MESSAGES

There are four pre-set merge words you may use in Body or Subject to personalize your messages.

  • [FIRSTNAME] will extract your prospect's first name (i.e. 'Hi [FIRSTNAME]' will print 'Hi John!', if your prospect's first name is John).
  • [FULLNAME] will print your prospect's whole name (i.e. 'Mr. [FULLNAME],' will print 'Mr. John Smith', if your prospect's name is John Smith).
  • [EMAIL] will extract your prospect's e-mail address (i.e. 'Your e-mail address is [EMAIL]' will output 'Your e-mail address is john\@aol.com', if your prospect's e-mail address is john\@aol.com.
  • [DATE] will print current date in dd/mm/yyyy format.


_html print "
\n"; print "\n"; } #letterbody sub getarlist{ my(@list); my($file); if ("@_[0]" eq "") {$file='responders.cfg'} else {$file=@_[0]}; if (open(RISP,"$file")){ flock(RISP,$LOCK_EX); foreach(){ chomp($_); push(@list,$_) }; flock(RISP,$LOCK_UN); close(RISP); } else { }; return @list; } sub addar{ my(@rlist)=getarlist(); my($good)=1; if (@_[0]=~/(\w{3,8})/){ foreach(@rlist){ if ($1 eq $_){$good=0;} }; if ($good==1){ open(RISP,">>responders.cfg"); flock(DB,$LOCK_EX); print RISP "$1\n"; flock(DB,$LOCK_UN); close(RISP); mkdir($1,0777); }; &showpanels; } else {error("Account name must be 3-8 letters and digits")}; &footer; } #addar sub delar{ foreach(@arlist){ $real=$_; $bad=0; foreach(@_){ if ($real eq $_){$bad=1} } if ($bad==0){ push(@newlist,$real) } else { if (chdir($real)) { unlink <*.*>; chdir ".."; rmdir($real); }; }; } if ($#_!=-1){ open(RISP,">responderstmp.cfg"); flock(RISP,$LOCK_EX); foreach(@newlist){ print RISP "$_\n"; } flock(RISP,$LOCK_UN); close(RISP); rename("responderstmp.cfg","responders.cfg"); &showars; } else {error("Nothing to delete!")} # &footer; } #delar sub error { my($errmsg) = @_; &header; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "

Error

$errmsg

Back
\n"; print "
\n"; &footer; exit; } #error sub mimeformat { my($filename) = @_; my($result); my %extensions = ( gif => ['image/GIF' , 'base64'], txt => ['text/plain' , '8bit'], com => ['text/plain' , '8bit'], doc => ['application/msword', 'base64'], class => ['application/octet-stream' , 'base64'], htm => ['text/html' , '8bit'], html => ['text/html' , '8bit'], htmlx => ['text/html' , '8bit'], htx => ['text/html' , '8bit'], jpg => ['image/jpeg' , 'base64'], pdf => ['application/pdf' , 'base64'], mpeg => ['video/mpeg' , 'base64'], mov => ['video/quicktime' , 'base64'], exe => ['application/octet-stream' , 'base64'], zip => ['application/zip' , 'base64'], au => ['audio/basic' , 'base64'], mid => ['audio/midi' , 'base64'], midi => ['audio/midi' , 'base64'], wav => ['audio/x-wav' , 'base64'], tar => ['application/tar' , 'base64'] ); # %extensions if ($filename =~ /.*\.(.+)$/) { $ext = $1; } # if if (exists($extensions{$ext})) { $result = $extensions{$ext}; } # if else { $result = ['BINARY', 'base64']; } # else return $result; }; sub sendmailadmin{ open(SM,"|$mailprog"); print SM "From:$admin\n"; print SM "To: $admin\n"; print SM "Subject:@_[1]\n"; print SM "Content-Type: text/plain\n"; print SM "\n"; print SM "@_[2]"; close(SM); } sub sendmail{ my($mday,$mon,$year) = ltime(); my($to,$subject,$message,$path,$name,$idx,$username)=@_; my($email)=$to; $username=~/^\s*(\w{1,20})\s*(\w{0,20}).*$/; $secname=$2;$secname=~tr/A-Z/a-z/;$secname="\u$secname"; $username=$1;$username=~tr/A-Z/a-z/;$username="\u$username"; my($fromars,$namears,$unlink)=(getarlist("$path/$path.cfg")); $fromaddr="$namears<$fromars>"; if ($unlink == 1) {$unlink="\r\n\r\n To unsubscribe:\r\n$scripturl?mode=r&a=$path&e=$to"} $to=~s/@/\@/; if ($secname ne ""){$secname=" ".$secname}; $to="$username$secname <$to>"; $name=~/.*\.(.*)/; my($real)="upfile$idx.$1"; $path="$path/$real"; my($current)="$mday/$mon/$year"; $message=~s/\[FIRSTNAME\]/$username/gie; $message=~s/\[EMAIL\]/$email/gie; $message=~s/\[DATE\]/$current/gie; $message=~s/\[FULLNAME\]/$username.$secname/gie; $message.="\n\n$unlink\n\n"; $subject=~s/\[FIRSTNAME\]/$username/gie; $subject=~s/\[EMAIL\]/$email/gie; $subject=~s/\[DATE\]/$current/gie; $subject=~s/\[FULLNAME\]/$username.$secname/gie; my($mime)=&mimeformat($name); my $msg = MIME::Lite->new (Type =>'multipart/mixed', From =>"$fromaddr", To =>"$to", Subject =>"$subject", Type => "TEXT", Data =>"$message"); if($name ne ""){ $msg->attach (Type =>$mime->[0], Encoding =>$mime->[1], Filename =>"$name", Path =>"$path", ); } MIME::Lite->send('sendmail',$mailprog); $msg->send; } sub checkmail{ if (@_[0] =~/.*\@.*\..*/) { return 1 } else { return 0 } } sub readparse { my($body); if ($ENV{'REQUEST_METHOD'} eq 'GET') { $input=$ENV{'QUERY_STRING'} } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { while(){$input.=$_}; }; if($ENV{'CONTENT_TYPE'}=~/multipart/){ ($bound)=($ENV{'CONTENT_TYPE'}=~/boundary=(\S+)/); @parts=split(/\n--$bound(-)*/,$input); @parts=grep($_ ne '',@parts); foreach(@parts){ ($header,$body)=split(/\n\s*\n/,$_,2); ($name)=(/name=\"([^\"]*)\"/); ($body)=~s/\n$//; ($body)=~s/\r$//; ($filename)=(/filename=\"([^\"]*)\"/); if ($name=~/upfile(\d+)/){ $filename=~/\\([\w\d]+\..*)$/; if($body ne ""){ $filestoupload{"$1"}=$body; $filetoattach=$1; $body1=$body; } } else {($FORM{$name}=$body)}; } foreach(keys(%filestoupload)){ ~/.*\.(.*)$/; if(open(UPLOAD,">$FORM{'ar'}/upfile$FORM{'num'}.$1") && $_ ne ""){ flock(UPLOAD,$LOCK_EX); print UPLOAD $body1; close(UPLOAD); } } } else { @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\n/ /g; $FORM{$name} = $value; $FORM{'adar'} =~ tr/A-Z/a-z/; } }; if ($FORM{'mode'}=~/(mailer|secure|register|r)/){ } else {if ($FORM{'password'} eq ""){&checkform};}; } sub checkuser1{ my($is,$email1,$line); $is=1; foreach (@checkuserarray){ ~tr/A-Z/a-z/; # print "@_[0]:::$_
"; if (@_[0] eq $_){$is=0}; }; # print ("@_[0]
"); if ($is){ push(@checkuserarray,@_[0]); } # print "@checkuserarray

"; return($is); } sub checkuser{ my($em); @_[0]=~tr/A-Z/a-z/; if($checkuserfile eq "@_[1]"){ return checkuser1(@_); } else { splice(@checkuserarray); if (open(USER,"@_[1]")){ flock(USER,$LOCK_EX); $checkuserfile="@_[1]"; while() { chomp($_); if ($checkuserfile ne $mbase) { $_=~/(.+)\|(.+)\|(.+)\|(.+)/; $em=$2; } else { $_=~/(.+)\|(.+)/; $em=$2; }; if ($_ ne "") { push(@checkuserarray,$em) } }; close(USER); } return checkuser1(@_); } } sub ltime{ my($sec,$min,$hour,$mday,$mon,$year) = localtime(); $year+=1900;$mon++; if ($mday<10) {$mday="0$mday"}; if ($mon<10) {$mon="0$mon"}; return ($mday,$mon,$year); } sub register{ my($sec,$min,$hour,$mday,$mon,$year); my($day,$mon,$year) = ltime(); my($fromars,$namears,$unlink,$redirect,$fromad)=(getarlist("$FORM{'ar'}/$FORM{'ar'}.cfg")); ($subject,$body,$ftoattach)=getletter("$FORM{'ar'}/letter1.txt"); $FORM{'user'}=~s/\\//g; $FORM{'user'}=~tr/A-Z/a-z/; $FORM{'user'}=~/^\s*(\w{1,20})\s*(\w{0,20}).*$/; my($sec)=$2; if ($sec ne ""){$sec=" \u$sec"}; $FORM{'user'}="\u$1$sec"; $FORM{'email'}=~tr/A-Z/a-z/; if(checkmail($FORM{'email'}) && ($FORM{'user'} ne "")){ if (checkuser($FORM{'email'},"$FORM{'ar'}/users.txt")){ if (open(USER,">>$FORM{'ar'}/users.txt")){ flock(USER,$LOCK_EX); print USER "$FORM{'user'}|$FORM{'email'}|2|$year$mon$day\n"; close(USER); }; if(checkuser($FORM{'email'},$mbase)){ if (open(TOTUSER,">>$mbase")){ flock(TOTUSER,$LOCK_EX); print TOTUSER "$FORM{'user'}|$FORM{'email'}\n"; close(TOTUSER); }; }; ($sec,$min,$hour,$mday,$mon,$year) = localtime(); $year+=1900; if ($mday<10) {$mday="0$mday"}; $subject1="User $FORM{'email'} for \"$FORM{'ar'}\" autoresponder first login"; $date1="$mday @months[$mon] $year at $hour:$min:$sec"; $body1="\nAutoresponder: $FORM{'ar'}\r\nName: $FORM{'user'}\r\nE-mail: $FORM{'email'}\r\nDate: $date1\r\nIP addres: $ENV{'REMOTE_ADDR'}\r\n\n Remove this prospect:\n $scripturl?mode=r&a=$FORM{'ar'}&e=$FORM{'email'}"; if ($fromad==1) { sendmailadmin($admin,$subject1,$body1); } } else { ($sec,$min,$hour,$mday,$mon,$year) = localtime(); $year+=1900; if ($mday<10) {$mday="0$mday"}; $date1="$mday @months[$mon] $year at $hour:$min:$sec"; $body1="\nAutoresponder: $FORM{'ar'}\r\nName: $FORM{'user'}\r\nE-mail: $FORM{'email'}\r\nDate: $date1\r\nIP addres: $ENV{'REMOTE_ADDR'}\r\n\n Remove this prospect:\n $scripturl?mode=r&a=$FORM{'ar'}&e=$FORM{'email'}"; $subject2="User $FORM{'email'} for \"$FORM{'ar'}\" autoresponder repeat login"; if ($fromad==1) { sendmailadmin($admin,$subject2,$body1); } }; sendmail($FORM{'email'},$subject,$body,$FORM{'ar'},$ftoattach,1,$FORM{'user'}); } else {error "Both fields are required!"}; if ($redirect ne "") { print "Location:$redirect\n\n"; } else {error("Redirecting URL has not been specified!")}; }; sub getletter{ my($subject,$body,$attachment); if (open(LETTER,"@_[0]")){; flock(LETTER,$LOCK_EX); $str=; $str=~/Subject:(.*)/; $subject=$1; $str=; $str=~/Attachment:(.*)/; $attachment=$1; while(!eof(LETTER)) { $str=; chomp($str); $str=~s/\r/\r\n/g; $body=$body."$str"; }; close(LETTER); }; return ($subject,$body,$attachment); } sub leapyear{ my($year)=@_; if ($year % 4 == 0){ if ($year % 100 == 0){ if ($year % 400 == 0){ return 1 } else {return 0} }else {return 1} }else {return 0} } sub daysfrom{ my($i,$sum)=(0,0); my($year,$month,$day)=@_; $month--; for($i=0;$i<$month;$i++){ $sum+=@mdays[$i]; }; $sum+=$day; if (leapyear($year)== 1){ if ($month>1){ $sum++;#print "leap=$year;mon=$month;day=$day"; } }; return $sum } sub days{ my($todate,$fromdate)=@_; my($days,$sum)=0; $fromdate=~/(\d{4})(\d\d)(\d\d)/; my($fromyear,$frommonth,$fromday)=($1,$2,$3); $todate=~/(\d{4})(\d\d)(\d\d)/; my($toyear,$tomonth,$today)=($1,$2,$3); $daysfrom1=daysfrom($toyear,$tomonth,$today); $daysfrom2=daysfrom($fromyear,$frommonth,$fromday); if ($toyear==$fromyear){ $days=$daysfrom1-$daysfrom2; } else{ for($i=$fromyear+1;$i<$toyear;$i++){ $days+=365+1*leapyear($i) }; $days+=(365+leapyear($fromyear)*1-$daysfrom2)+$daysfrom1; } return $days; } sub statuscheck{ my($time); if (open(STATUS,"status.cfg")){ flock(STATUS,$LOCK_EX); $time=; chomp($time); if ($time eq "@_[0]@_[1]@_[2]") {error("Today's mailing already done");exit}; close(FILE); } else { #if (-e "status.cfg") { # exit #} }; if(open(STATUS,">status.cfg")){ flock(STATUS,$LOCK_EX); print STATUS "@_[0]@_[1]@_[2]\n"; close(STATUS); } else {error("Cannot write status.cfg")} }; sub mailer{ my($mday,$mon,$year) = ltime(); statuscheck("$mday","$mon","$year"); print "Content-type:text/plain\n\n"; $current="$year$mon$mday"; my(@list)=getarlist(); foreach(@list){ @stadii=getarlist("$_/periods.txt"); @users=getarlist("$_/users.txt"); print "users:@users\n"; print "Mailing started"; $dir=$_; print("autoresp:$dir\n"); for($i=0;$i<=$#users;$i++){ @users[$i]=~/(.+)\|(.+)\|(.+)\|(.+)/; print "@users[$i]\n"; print "stadiya:$3\n"; $diff=days($current,$4); if($3<=$#stadii+1){ if(@stadii[$3-1]<=days($current,$4)){ ($subject,$body,$ftoattach)=getletter("$dir/letter$3.txt"); #error($2,$subject,$body,$dir,$ftoattach,$really); sendmail($2,$subject,$body,$dir,$ftoattach,$3,$1); $sentto{$dir}.="$1 $2 letter:$3\r\n"; @users[$i]=~s/(.+)\|(.+)\|(.+)\|(.+)/"$1\|$2\|".($3+1)."|$4"/ie; }; push(@newusers,@users[$i]); } }; if (open(USERS,">$dir/users.txt")){ flock(USERS,$LOCK_EX); foreach(@newusers){print USERS "$_\n"}; close(USERS); } splice(@newusers); }; my($repbody); $repbody="Mailing Report for $mon/$mday/$year:\r\n"; foreach(keys(%sentto)){ $repbody.="-----------------------------------------------------\r\n-- Autoresponder: $_\r\n"."$sentto{$_}"; }; sendmailadmin($admin,"Mailing report",$repbody); } sub generator{ my($fromars,$namears,$unlink,$redirect)=(getarlist("$FORM{'ar'}/$FORM{'ar'}.cfg")); print "\n"; print <Autoresponder: $FORM{'ar'}

Copy and paste this code into your HTML document:


It will appear on your web page like this:


Name:

Email:


Remember that you can change the subscription box in any way you want.






html_ print "\n"; } #generator sub blia{ $a=~/(\d+)/; $a1=$1; $b=~/(\d+)/; return $a1<=>$1 } sub checkform { print "Location: ".$htmlpath."/admin.html\n\n"; exit; } #checkform sub importusers{ my(%gooduser); my(@import)=split(/\r/,$FORM{'import'}); my(@periods)=(getarlist("$FORM{'ar'}/periods.txt")); my($day,$mon,$year)=(ltime()); my($nday,$nmon,$nyear); $dfr=daysfrom($year,$mon,$day); if ($dfr<@periods[$FORM{'period'}-1]){ ($nday,$nmon,$nyear)=(data(365+leapyear($year-1)-@periods[$FORM{'period'}-1]+$dfr+1,$year-1)); } elsif ($dfr==@periods[$FORM{'period'}-1]) { ($nday,$nmon,$nyear)=(data(1,$year)); } else { ($nday,$nmon,$nyear)=(data($dfr-@periods[$FORM{'period'}-1],$year)) }; my($email,$name); foreach(@import){ $_=~s/^\s//; $email=$_; $name=""; if (/(.*)\|(.*)/){ $email=$2; $name=$1; }; if ($name ne "") { $name=~s/^\s//; $name=~s/\\//g; $name=~tr/A-Z/a-z/; $name=~/^\s*(\w{1,20})\s*(\w{0,20}).*$/; $name=$1; $sec=$2; if ($sec ne ""){$sec=~tr/A-Z/a-z/;$sec=" \u$sec"}; }; $email=~tr/A-Z/a-z/; if ($name eq ""){$name=$emptyuname} else{$name="\u$name$sec";}; if(checkmail($email)==1){ if (checkuser($email,"$FORM{'ar'}/users.txt")==1){ if (open(USER,">>$FORM{'ar'}/users.txt")){ flock(USER,$LOCK_EX); print USER "$name|$email|$FORM{'period'}|$nyear$nmon$nday\n"; $gooduser{$email}=$name; close(USER); }; } else { }; } }; if((%gooduser)){ if(-e "$mbase"){} else{ if(open(BASE,">$mbase")){ print BASE "$gooduser{$email}|$email\n"; close(BASE) } }; foreach(keys(%gooduser)){ $emm=$_; if (($emm ne "")&&(checkuser("$emm","$mbase")==1)) { $goodtotuser{$emm}=$gooduser{$emm}; }; }; if (%goodtotuser){ if (open(TOTUSER,">>$mbase")){ # flock(TOTUSER,$LOCK_EX); foreach(keys(%goodtotuser)){ if($_ ne "") { print TOTUSER "$goodtotuser{$_}|$_\n"; } }; close(TOTUSER); } } }; } sub data{ my($days,$i,$day,$sum,$year)=(@_[0],0,0,0,@_[1]); @mdays1=@mdays; if (leapyear($year)==1){@mdays1[1]=29} else {@mdays1[1]=28}; #print("\n$year\n"); while ($sum<$days){ $sum+=@mdays1[$i]; $i++ }; if ($day==$sum) {$day=@mdays1{$i-1}} else {$day=$days+@mdays1[$i-1]-$sum}; if ($i<10){$i="0$i"}; if ($day<10){$day="0$day"}; return ($day,$i,$year); #print "\ndata=",daysfrom($year,$i++,$day),"\n"; } sub exportmails{ print "Content-type: text/html\n\n"; print ""; my(@adrs)=getarlist("$FORM{'ar'}/users.txt"); print "Autoresponder: $FORM{'ar'}
"; print "Active Prospects:

"; foreach(@adrs){ ~/(.+)\|(.+)\|(.+)\|(.+)/; print "$1|$2
"; }; $total=$#adrs+1; print "

Total:$total
"; print "
"; } sub unlinkuser{ my(@good); $check=0; if (open(FILE,"$FORM{'a'}/users.txt") && "$FORM{'e'}" ne ""){ flock(FILE,$LOCK_EX); while(){ ~/(.+)\|(.+)\|(.+)\|(.+)/; chomp($_); if($FORM{'e'} ne $2){ if ($_ ne "") { push(@good,$_); } } else {$check=1}; } flock(RISP,$LOCK_UN); close(FILE); }; if ((open(FILE,">$FORM{'a'}/users.txt")) && ("$FORM{'e'}" ne "") && ("@good" ne "")){ flock(FILE,$LOCK_EX); foreach(@good) { if ($_ ne "") { print FILE "$_\n"; } } flock(RISP,$LOCK_UN); close(FILE); }; print "Content-type:text/html\n\n"; if ($check==1) { &unlinkmessages("

The email address $FORM{'e'}
was removed from the database.

"); } else { &unlinkmessages("

The email address $FORM{'e'}
you submitted to be removed
was not in the database.

"); } exit; } sub unlinkmessages { my($msg) = @_; print <

$msg

HTML exit; }

AdvertisingFree.proboards21.com
Opt-In
Newsletters #cway



Receive professionally written articles once a month on following topics

Marketing and Promotion
Internet Business Building
Free Stuff Resources
Health, Lifestyle & Time Management
Free Ad Digest (Discussion on Marketing and Promotion on the Internet)

Your email address

First Name

Last Name

Never stop learning.

Your email will only be used for this newsletter service. You can cancel anytime and your details and email won't be rented or sold to 3rd parties.


Quality Newsletter Source

Click Here To Make This Board Ad-Free


This Board Hosted For FREE By ProBoards
Get Your Own Free Message Boards & Free Forums!