TyskJohan’s random thoughts

3 Responses to “Contact me”

1. Evert Leurink Says:
   2008-05-15 at 3.35 pm

   Dear Mr Almqvist, May I ask your permission to put one of your wonderful photos on my website ( it’s about holiday by car in Norway and it’s in Dutch)?
   You can see on my site, that if I know the name of the photographer, he or she is mentioned. The photos on my site are clickable too: they are linked to the site of the publisher.
   I am interested in your photo http://www.almqvist.net/johan/blog/wp-content/uploads/2006/03/moldepanorama.jpg .
   Is it a problem to you that your photo has been published on http://onzeautovakantiesinnoorwegen.nl/deel_2_mr.html ?
   Hopefully I hear from you,
   Best regards, Leurink from the Netherlands.
   http://onzeautovakantiesinnoorwegen.nl/

2. Stego S. Aurus Says:
   2009-07-15 at 8.39 pm

   Greetings!
   I have edited your nodialup qpsmtpd plugin to allow for exceptions, and I’m passing on the edit to you!

   -Stego

   -nodialup—————————————–
   # Crude direct-connect stopper
   # written by Johan Almqvist
   # Modified by Stego S. Aurus 9-9-2008 to allow for exceptions.

   sub hook_connect {
   my ($self, $transaction) = @_;
   my $remote_ip = $self->qp->connection->remote_ip;
   my $remote_host = $self->qp->connection->remote_host;
   my $reverse_remote_ip = join (”.”, reverse(split(/\./,$remote_ip)));
   if ($remote_ip eq $remote_host) {
   return (DENYSOFT, “Reverse DNS lookup for $remote_ip failed.”);
   }
   elsif (($remote_host =~ /$reverse_remote_ip/)
   || ($remote_host =~ /$remote_ip/)
   || ($remote_host =~ /\.dsl\./)
   || ($remote_host =~ /\.adsl\./)
   || ($remote_host =~ /\.ppp\./)
   || ($remote_host =~ /\.dhcp\./)
   || ($remote_host =~ /\.dynamicIP\./)
   || ($remote_host =~ /\.dynamic\./)
   || ($remote_host =~ /\.dip\./i)
   || ($remote_host =~ /\.abo\.wanadoo\.fr/i)
   || ($remote_host =~ /\.pool\./)) {
   # The Below IF statement forces the routine to allow specific IPs or domains through.
   # Would eventually like to turn this into a routine that checks a “nodialup_exceptions” file.
   if (
   ($remote_ip != “76.79.203.98″)
   || ($remote_host !=~ /\.telepacific\./)
   || ($remote_host !=~ /\.atgstores\./)
   ){
   return (DENY, “Sorry, $remote_host ($remote_ip) seems to “.
   “be a dialup: use your ISP’s SMTP server, or Fix your RDNS. If you “.
   “feel you are receiving this message in error, “.
   “please call Loran Inc’s Computer Dept. at +1-800-544-4840″);
   }
   }
   else {
   return DECLINED;
   }
   }

3. Stego S. Aurus Says:
   2009-07-17 at 10.19 pm

   As submitted above, it wasnt fully working. It works now! it now reads:

   if (
   ($remote_ip eq “76.79.203.98″)
   || ($remote_ip eq “69.178.161.194″)
   || ($remote_host =~ /static/)
   || ($remote_host =~ /static-ip/)
   || ($remote_host =~ /atgstores/)
   || ($remote_host =~ /cedsb/)
   || ($remote_host =~ /telepacific/)
   || ($remote_host =~ /hdfowler/)
   ) {
   # If the remote IP or the remote host matches anything in the exception list,
   # simply allow it through with a note to qpsmtpd.log
   my $logmessage = “qpsmtpd-nodialup: Allowing exception for $remote_host ($remote_ip) through”;
   $self->log(LOGINFO,$logmessage);

   }
   else
   {
   return (DENY, “Sorry, $remote_host ($remote_ip) seems to “.
   “be a dialup: use your ISP’s SMTP server, or Fix your RDNS. If you “.
   “feel you are receiving this message in error, “.
   “please call our voice line.”);
   }

Leave a Reply