[Openaaq-discuss] How to make AAQ running on windows
Status: Beta
Brought to you by:
a-non-mouse
|
From: <sho...@nc...> - 2005-06-13 06:32:07
|
Hello All:
=09I am new member and happy to join this AAQ mailing list.
I wish to share my experience with all of you about to transfer AAQ running
platform from Unix to Windows.
I use following packages to make AAQ running on windows OS:
1.Windows 2000
2.ActivePerl-5.8.0.804-MSWin32-x86 (Please install in c:\usr directory)
3.mysql-4.0.24-win
4.IIS 5.0
5.Blat (send email by perl in windows)
=09Because Perl is platform independent language, so only small portion of =
code
need to modify.
1.Download ActivePerl and install modules :DBI, Data-table, DBD-Mysql,
Text-Format, CGI, DateManip
2.Add time zone information in Manip.pm
Ex: # Local timezone
$Cnf{"TZ"}=3D"MST";
3.Modified every *.pl files in use absolute path when require files:
Ex: require '/aaq/c/postconfig.pl' ;
=09require '/aaq/common.pl' ;
=09require '/aaq/login.pl' ;
=09require '/aaq/shared.pl' ;
4.Install Blat and copy all files under blat\full to c:\winnt\system32\
5.Replace every snedmail function by blat command
Ex: =09$server=3D"172.18.22.25";
=09$message =3D "To: $email\n"
=09=09. "From: $mail_text{'from'}\n"
=09=09. "Subject: $mail_text{'subject_confirmation'}\n\n"
=09=09. "$mail_text{'top_confirmation'}\n\n"
=09=09. "Your question:\n"
=09=09. "$request_text\n\n"
=09=09. "$mail_text{'record_label'} $request_key\n\n" ;
=09# Save the message into a text file
=09$lt=3D'<';
=09$gt=3D'>';
=09# Output the correct header
=09print $q->header(-cookie=3D>[@cookies],charset=3D>$default_encode)
=09=09. $q->start_html(-title=3D>'Ask A Question',
=09=09=09=09-bgcolor=3D>'#ffffff',
=09=09=09=09-link=3D>'#376e60', -vlink=3D>'#376e60',
=09=09=09=09-style=3D>{'src'=3D>$stylesheet},
=09=09=09=09-lang=3D>$default_encode)
=09=09. $q->img({-src=3D>$img_base . 'share/aaq_small_green.gif',-alt=3D>'A=
sk a
Question',-border=3D>'0',-align=3D>'left'})
=09=09. '<table border=3D"0" width=3D"100%"><tr><td bgcolor=3D"#88cc88">'
=09=09. h1('Thanks for your question=A1C<br>Thank you for submitting a ques=
tion.')
=09=09. '</td></tr></table>'
=09=09. $web_page_text{'confirmation'}
=09=09. p
=09=09. $q->center(
=09=09=09$q->a({href=3D>'/aaq/'},'Return to AAQ home page <br>Return to the=
Ask A
Question home page')
=09=09=09)
=09=09. $end_html ;
=09# Save the message into a text file
=09open (messtxt,">message.txt");
=09print messtxt ($message);
=09close messtxt;
=09# Build the Blat command line and execute it
=09$blat=3D"blat.exe message.txt -s \"$mail_text{'subject_confirmation'}\" =
-t
\"$lt$email$gt$rname\" -server $server -charset big5 -f Admin@AAQ";
=09system($blat);
=09Now I am preparing more detail procedures about how to make AAQ running =
on
Windows,
and document will be shared when finish.
If someone need a copy of modified source code, I am willing to provide it =
also.
-------------------------------------------------
This mail sent through NCTU WebMail System: https://webmail.nctu.edu.tw
|