Script der sender(email) tekst fra MySQL database

Jah, det er da vist ikke så slemt. Men du kører vel på en Unix-lignende maskine - ikke?

Ok - her er et eksempel, der kører på en Unix-maskinen. Det er en hurtig
kombination af et par scripts jeg havde liggende. Jeg kører det fra kommando-
linien som    perl scriptnavn.pl  - altså ikke som et CGI-script. Er det inspiration
nok?


#!/usr/bin/perl -w
use strict;
use DBI;
use Mail::Send;

my $mailprog = Mail::Send->new(\'to\'=>\'modtager@modtager.xxx\',\'subject\'=>\'hej\');
my $fh = $mailprog->open(\'sendmail\');

my $dbh = DBI->connect( \'dbi:mysql:DINDATABASE;host=localhost\', \'DINBRUGER\', \'DITPASSWORD\') ||
die \"No connection\\n\";

my $sth = $dbh->prepare( \'SELECT * FROM fdage\' ) || die \"Error in prepare: $DBI::errstr\\n\";

$sth->execute || die \"Error in execute: $DBI::errstr\\n\";

while (my @row = $sth->fetchrow_array){
  print $row[0].\" \".$row[1].\" \".$row[2].\" \".$row[3]. \"\\n\";
  print $fh $row[0].\" \".$row[1].\" \".$row[2].\" \".$row[3]. \"\\n\";
}

$sth->finish;
$dbh->disconnect;
$fh->close;

Kan du ændre det til Sendmail?
Så ville det være perfekt, har ikke selv tjek på det.

Altså programmet SendMail til at sende med?

Den bruger vel egentlig sendmail, omend det er pakket lidt ind i
et par Perl-moduler. Kan du køre ovenstående?

jeg får denne fejl:
Can\'t locate Mail/Send.pm in @INC (@INC contains: /usr/local/lib/perl5/5.00503/i
386-bsdos /usr/local/lib/perl5/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386
-bsdos /usr/local/lib/perl5/site_perl/5.005 .) at orgvers.pl line 4.
BEGIN failed--compilation aborted at orgvers.pl line 4.

Okay, ja, men man kan også gøre det direkte med sendmail ... det kan
man da. Er det et webhotel, hvor du ikke har kontrol over hvad der er
installeret, eller kunne du faktisk installere den der Send.pm ?

Jeg prøver lige at få mit script til at køre direkte med sendmail... Det tager
lige lidt tid - altså inden jeg får tid ;)

Tjah, der er jo næsten nemmere ;-)

#!/usr/bin/perl -w
use strict;
use DBI;

open(F,\"|/usr/lib/sendmail\") || die(\"Sendmail not found\");

print F \"To: bum\\@bumbum.bum\\n\";
print F \"Subject: Hejsa\\n\";
print F \"From: bam\\@bambam.bam\\n\";

print F \"\\n\";

my $dbh = DBI->connect( \'dbi:mysql:db12041a;host=localhost\', \'us12041a\', \'none\') ||
die \"No connection\\n\";

my $sth = $dbh->prepare( \'SELECT * FROM fdage\' ) || die \"Error in prepare: $DBI::errstr\\n\";

$sth->execute || die \"Error in execute: $DBI::errstr\\n\";

while (my @row = $sth->fetchrow_array){
  print $row[0].\" \".$row[1].\" \".$row[2].\" \".$row[3]. \"\\n\";
  print F $row[0].\" \".$row[1].\" \".$row[2].\" \".$row[3]. \"\\n\";
}

$sth->finish;
$dbh->disconnect;

close(F);

ok...jeg er ked af at blive ved med at forstyrre ;)
Nu får jeg denne fejl:
BRUGERNAVN... Recipient names must be specified

og:
Use of uninitialized value at bibeltest.pl line 23.
1    
Use of uninitialized value at bibeltest.pl line 24.
jesus4ev... Recipient names must be specified
Use of uninitialized value at bibeltest.pl line 23.
2
Use of uninitialized value at bibeltest.pl line 24.

Hmm, hvilken Perl version kører du?

Du forstyrrer skam ikke ;-)

Perl5.005_03

5.005_02 her - skulle ikke betyde noget..... Lad os lige se dit script. Du kan
evt. maile det til mig på min email (klik på mit navn til venstre).

ok, der er 2 ting du skal prøve:

  open(F,\"|/usr/lib/sendmail bum\\@bumbum.bum\") || die(\"Sendmail not found\");

i stedet for linien med print F \"To: ....\";

og så skal du nok ikke referere til flere felter med $row[0], $roe[1], ... end du
faktisk har i tabellen.

ok?

Perfekt!!!!
Takker....

Det tog sin tid - men det lykkedes!!