Newsgroup: it.lavoro.professioni.webmaster
Titolo: bnbform+ARUBA

Salve a tutti.
Sono passato di recente ad un servizio hosting windows di Aruba e sto 
cercando di far funzionare lo script bnbform, che col precedente provider 
funzionava egregiamente!?
Lo script viene garantito funzionante sia in Win che Linux...
Dopo aver cambiato l'estensione da cgi in pl, come indicato da Aruba, lo 
script sembra funzionare, ma in effetti non invia la mail???
bnbform è settato per l'uso di      $SEND_MAIL="/usr/lib/sendmail -t";
[ ho provato anche $SMTP_SERVER="localhost"; ma non funziona più nulla].
Qualcuno si è già scontrato col problema e sa fornirmi una risoluzione?
Grazie
www.baveno.net


Ho avuto un problema analogo con un'altro host e l'ho risolto nel modo
seguente:
use Mail::Mailer;
my $mailer = Mail::Mailer->new();
$mailer->open({From => 's...@indirizzo.boh',To =>
't...@indirizzo.boh',Subject => 'oggetto'}) or die 'el va no';
print $mailer 'testo' ;
$mailer->close();
Ciao
Oreste

Ho avuto un problema analogo con un'altro host e l'ho risolto nel modo
seguente:
use Mail::Mailer;
my $mailer = Mail::Mailer->new();
$mailer->open({From => 's...@indirizzo.boh',To =>
't...@indirizzo.boh',Subject => 'oggetto'}) or die 'el va no';
print $mailer 'testo' ;
$mailer->close();
Ti ringrazio Oreste, ma mi č poco chiaro...
Dove e come  "infilo" questo codice in bnbform?
Ciao 

 non possa funzionare!
sendmail è usato dai sistemi linux e unix, il vantaggio di usare
Mail::Mailer è che quest'ultimo cerca da solo il programma mail di
default del sistema.
Mostra il pezzo di codice bnbform e vediamo dove si può infilare
Mail::Mailer
prima però ti consiglio di far girare un programmino che ti da la
lista dei moduli istallati:
#!/usr/bin/perl -w -t
use CGI qw(:all);
use strict;
my @mods;
sub list_modules {
my ($n, $msg, $i);
  eval "use File::Find;";
  if ($@) {
    disp_html(qq|<b><font color="#FFFFFF">Sorry, <u>File::Find</u> is
not installed on this server.</font></b>|);
  }
  find(\&wanted, @INC);
  @mods = sort {lc($a) cmp lc($b)} @mods;
  $n = @mods;
  $msg = qq|<p align="center"><font face="Arial" size="3"
color="#FFFFFF"><b>Found: $n Modules</b></b></font></p>\n|;
  $msg .= qq|<div align="center"><center><table border="0"
cellpadding="1" width="90%">\n|;
  $msg .= " <tr>\n";
  $msg .= qq|  <td valign="top"><font face="Arial,Arial" size="1"
color="#FFFFFF">\n|;
  $i = 0;
  foreach (@mods) {
    $i++;
    $msg .= "         $_<br>\n";
    if (($i == int(($n / 3) + 2 / 3)) or ($i == int((2 * $n / 3) + 2 /
3 ))) {
      $msg .= qq|  </td>\n<td valign="top"><font face="Arial,Arial"
size="1" color="#FFFFFF">\n|;
    }
  }
  $msg .= "  </td>\n </tr>\n</table>\n</center>\n</div>\n";
  &disp_html($msg);
}
sub wanted {
  if ($File::Find::name =~ /\.pm$/) {
    open(F, $File::Find::name) || return;
    while(<F>) {
      if (/^ *package +(\S+);/) {
        push (@mods, $1);
        last;
      }
    }
    close(F);
  }
}
sub disp_html {
my $mods = shift;
print qq|
  <html>
  <head> <title>LIST MODULES</title>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
<meta HTTP-EQUIV="CHARSET" CONTENT="ISO-8859-1">
<style>
  </style>
</head>
  <body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000"
alink="#FF0000">
<center>
  <table border="0" width="80%" bgcolor="#C0C0C0">
    <tr>
      <td width="100%" bgcolor="#000080"><p align="center"><b>
      <font color="#FFFFFF" size="2" face="Arial">LIST PERL MODULES
INSTALLED ON
      THIS SERVER</font></b></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#336699">
       <br>$mods<br>
      </td>
    </tr>
    </table>
    </center>
  <p align="center"><i><font size="1" face="Arial">Free from
  <a style="text-decoration: none" title="Great hosting! Great service!
Great pricing!" href="
http://webnet77.com/
">
  Webnet77.com</a></font></i></p>
  </body>
  </html>
|;
exit;
}
print header();
list_modules;