# > # Ce trebuie facut cu ID-ul ? More detail, please :)
# In principiu, sa selectez , dupa userID, un anume grup din toata baza de
# date, caruia sa pot trimite mail
Oh, pai atunci poate ceva de genul:
my $id="109283";
for(db_query($db, "select user, email from blah where id='$id'")) {
send_mail("$_->{user} <$_->{email}>", @mail_data)
}
# ... could be useful :)
Of course, totul se poate face CGI... Iti recomand CGI.pm (de la CPAN); mie
nu prea imi place sa folosesc module, dar unele merita :) Anyway, cu CGI.pm,
ai putea face chiar ceva de genul:
#!/usr/bin/perl
# - test.pl - #
use DBI;
use CGI;
%arg=new CGI->Vars;
for(keys(%arg)) { ${$_}=$arg{$_} if($arg{$_}!~/^[\t\s]*$/) }
# asta se putea si cu split(/&/,$ENV{'QUERY_STRING'}), dar e mai dragut cu
# CGI.pm pentru ca nu te lovesti de transformarea %<code> in caractere
# (de ex. %20 in " " sau %0A%0D in "\n", printre altele).
do("functions.pl"); # care contine db_query, db_exec, send_mail.
do("config.pl"); # care contine $user, $pass, $mail_from.
my $db=DBI->connect("DBI:mysql:test:localhost", $user, $pass);
if(!$id) {
print("content-type: text/html\n\n");
print('<form action="test.pl">');
print('Introduceti mesajul:<br>');
print('<textarea name="mesaj"></textarea><br>');
print('Introduceti ID-ul grupului:<br>');
print('<input type="text" name="id"><br>');
print('</form>');
} else {
for(db_query($db, "select user, email from blah where id='$id'")) {
send_mail("$_->{user} <$_->{email}>", $mesaj)
}
}
# $mesaj ar trebui sa contina si headere, cu ar fi Subject: de exemplu.
A propos, poate-ar fi mai bine sa trecem pe priv. ca sa nu mai plictisim
lista cu aceeasi problema :)
--
Radu <[EMAIL PROTECTED]> www.littledragon.f2s.com
It is the weak who are cruel, only the stong can be truly gentle.
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
