[Xitami] Perl support ?

[Danny Van Neyghem]

> -----Oorspronkelijk bericht-----
> Van: xitami-admin@lists.xitami.org
> [mailto:xitami-admin@lists.xitami.org]Namens schillerwein@salient.de
> Verzonden: vrijdag 24 augustus 2001 10:15
> Aan: xitami@lists.xitami.org
> Onderwerp: RE: [Xitami] Perl support ?
> 
> 
> On 24 Aug 2001, at 9:06, Danny Van Neyghem wrote:
> 
<knip>
</knip>
> > I have download ActivePerl en install in e:\webservers\Perl.  
> Xitami and php
> > are installed in e:\webservers\xitami and e:\webservers\php.
> > 
> > How must I change the configuration of Xitami for Perl, so that 
> i will work
> > for all my virtual hosts.
> > 
> > Second Question.
> > I have a free perl script for forms, it make use of Sendmail.  
> What must i
> > install for this script to work local?
> > 

> Hello,
> 
> your PATH-Variable should reflect your Perl-Installation.
> On my System this is:
> 
> F:\>path
> PATH=D:\Programme\Apple\Developer\Executables\Utilities;D:\Pro
> gramme\Apple\Devel
> oper\Executables;D:\Programme\Apple\Local\Library\Executables;
> D:\Programme\Apple
> \Library\JDK\bin;D:\Programme\Apple\Library\Executables;D:\Progr
> amme\Perl\bin\;D
> :\Perl\5.6.0\bin\;C:\WINNT\system32;C:\WINNT;D:\Programme\cyg
> win\bin;D:\Programm
> e\cygwin\usr\bin;D:\Programme\cygwin\usr\local\bin;D:\Programme\
> Python20\;D:\Pro
> gramme\jdk1.2\bin;D:\gnu\usr\local\wbin;C:\Programme\texmf\mikte
> x\bin;C:\Program
> me\localtexmf;C:\Programme\Symantec\pcAnywhere\;D:\Programm
> e\Komodo\python\;D:\P
> rogramme\cygwin\bin;D:\Programme\ssl\bin;D:\Programme\gnu\usr\
> local\wbin;D:\Prog
> ramme\vunix
> 
> If you add  #!/usr/bin/perl (the exact path to perl not neccesary)  to 
> the first line of perl-scripts, xitami/perl should work with any 
> virualhost.
> 
> 
> You don't need these free mailing scripts; better do your own:
> 
> 
> #!/usr/bin/perl 
> 
> use MIME::Lite;
> 
> $mailhost = "someMailAlias";
> $From = 'someOne@somewhere.net';
> $To = 'anotherOne@outside.net';
> $Subject = 'mailing';
> $text .= "$something\n";
>  MIME::Lite -> send('smtp', $mailhost, Timeout => 60);
>  $msg = MIME::Lite -> new(From => $From, To => $To, Subject 
> => $Subject, Data => $text);
> $msg -> send;
> undef $msg;
> 
> 
> 
> So long,
> 
> Peter
> 
Thanks Peter, I will test this answer.

--------------------
Groetjes, greetings

Danny Van Neyghem
danny.vanneyghem@gooftroop.be
http://www.gooftroop.be