cgiemail uden forms

er det du mener om det er muligt at lave et perl-script som trække nogle email-adresser ud af en Mysql-database og sender en mail til adresserne !?!?

i givet fald er svaret ja :-)

Ja, det er jo så det jeg gerne vil :)

Jeg opdagede bare, at min host havde cgiemail installeret, men efter hvad jeg kan læse mig frem til er det ikke muligt at bruge det "program" til at sende andre info end der er input's i en form.

Nu roder jeg så bare rundt for at finde et alternativ, jeg med min PERL/CGI-skillz kan få til at virke...

det kan være jeg har en skelet til sådan en `dimmer' på min server - jeg skal se efter i aften.

Tak, det ville da være rart...

dette er sakset ud af noget jeg på et tidspunkt bryggede sammen:


#!/usr/bin/perl
use DBI;
use Net::SMTP;

  my ($email, $mailemne, $mail, $headers);
  my ($dbh, $database,$databaseuser,$databasepassword);
  $database="host";
  $databaseuser="db";
  $databasepassword="password";
  $dbh = DBI->connect("dbi:mysql:$database","$databaseuser","$databasepassword") or die("Cannot connect:  $DBI::errstr");
my @r;
my $sql1 = "SELECT  * FROM <db>";
my $q1 = $dbh-> prepare($sql1) || print "prepare failed($DBI::errstr)\n";;
my $rv = $sth->execute;
      @r = $sth->fetchrow_array;
            $email= $r[0];
            $mailemne= $r[1];
            $mail= $r[2];
            $headers= $r[3];
            #$headers{"FROM"}= "$afsendnavn <$afsendemail>\n";
            #$headers{"Content-Type"} = "$mailformat\n";
            #$headers{"Content-Transfer-Encoding"} ="8bit\n";
            #$headers{"Return-Path"} = "<$r1[5]>\n";
            #$headers{"X-Priority"} = "3\n";

          mail($email, $mailemne, $mail, $headers);
        }

sub mail {
  local($email, $subject, $mail, %headers) = @_;
          $smtp = Net::SMTP->new('localhost');
          $smtp->mail();
          $smtp->to($email);
          $smtp->data();
          $smtp->datasend("Subject:$subject\n");
          $smtp->datasend("\n");
          $smtp->datasend($mail);
          $smtp->dataend();
        $smtp->quit;
}

Det ser rigtigt ud, og virker måske. Den cgi-cron min host har er vist ikke så stabil som jeg gik og troede. Men jeg vil kigge på det engang jeg får rigtig god tid til det...

Tak for hjælpen, og læg da et svar, du skal ha' points :)

ok - ellers må du spørge videre