µo«H¤H: messagebox.bbs@bbs.kimo.com.tw (³Ì·RPHP)
¤é´Á: 20 May 2003 12:10:01 GMT
¼ÐÃD: Re: ½Ö¦³"cgiemail"³o­Ó¶Ç«HCGI©O!!!!!!!!!!!!!!!
«H¸s: tw.bbs.comp.www    ¬ÝªO: WWW/A0VCK6OP
¨Ó·½: <46LJ0P$rr_@bbs.kimo.com.tw>:93650, k4.kimo.com.tw
²Õ´: Yahoo!©_¼¯¤j¼¯°ì

¡° ¤Þ­z¡msprout.bbs@bbs.nsysu.edu.tw ( §Ú ¥² ¦¨ ¥\!!!)¡n¤§»Ê¨¥¡G
> cgiemail
> «æ»Ý³o­ÓCGI....¤@ª½§ä¤£¨ì...½Ð¦n¤ß¤H±Hµ¹§Ú¦n£v~~~~~~~~~
> E-MAIL:cafcrp@pchome.com.tw THX

¦Û¤v¼g¤£´N¦n¤F~°e«H¤£Ãøªü~
³o­Óµ{¦¡¥²¶·¦w¸ËNET::SMTP³o­Ó¼Ò²Õ

$Domain = 'smtp.domain.name';
$data{'Server'} = $smtpserver;
$data{'From'} = '"±H¥ó¤H¼ÊºÙ" <server@ideashoh.idv.tw>';
$data{'To'} = 'server@ideashoh.idv.tw';
$data{'Cc'} = '';
$data{'Subject'} = '³o¬O¥D¦®';
$data{'Message'} = "³o¬O¤º¤å.\n³o¬O¤º¤å";
use Net::SMTP;
    my($server) = new Net::SMTP($data{'Server'}, Hello => $Domain);


    foreach ($data{'Cc'}, $data{'Bcc'}) {
        next unless $_;
        $recipients = $recipients.',' if $recipients;
        $recipients = $recipients.$_;
    }
    $server->mail($data{'From'});
    $server->to($data{'To'});
    $server->recipient($recipients);
    $server->data();
    $server->datasend("Content-Type: text/plain; charset=big5\n");
    $server->datasend("To: $data{'To'}\n");
    $server->datasend("Cc: $data{'Cc'}\n");
    $server->datasend("Bcc: $data{'Bcc'}\n") if ($data{'Bcc'});
    $server->datasend("From: $data{'From'}\n");
    $server->datasend("Subject: $data{'Subject'}\n");
    $server->datasend("\n");

    $server->datasend($data{'Message'});
    $server->dataend();

    $server->quit();

--
¡@¢z¢w¢w¢wùû¡@¢z¢w¢w¢w¢wùû¢z¢w¢wùû¢wùû¢z¢w¢w¢w¢wùû
¡@¢x¢i¢i¢i¢x¡@¢x¢i¢i¢i¢¨¢x¢x¢i¢i¡@¢¨¢x¢x¢i¢i¢i¢¨¢x
¡@¢x¢i¢i¢¨¢xùû¢x¢i¢i¢¨¢i¢x¢x¢i¢i¡@¢i¢x¢x¢i¢i¢¨¡@¢}
¡@¢x¢i¢¨¢i¢i¢x¢x¢i¢¨  ¢i¢x¢x¢i¢¨¡@¢i¢x¢x¢i¢¨¡@¢wùû
¡@¢x¢¨¢i¢i¢i¢x¢x¢¨¢i¢i¢i¢x¢x¢¨¢i¢i¢«¡@¢x¢¨¢i¢i¢i¢x
¡@ùü¢w¢w¢w¢w¢}ùü¢w¢w¢w¢w¢}ùü¢w¢w¢w¡@¡@ùü¢w¢w¢w¢w¢}
--
¡° Origin: Yahoo!©_¼¯ ¤j¼¯°ì <telnet://bbs.kimo.com.tw> 
¡» From: adsl-sta-zha-64-236-9.so-net.net.tw
.