Re: [Openaaq-discuss] How to make AAQ running on windows
Status: Beta
Brought to you by:
a-non-mouse
|
From: Michael M. <mi...@wi...> - 2005-06-14 15:57:43
|
Hello Everyone,
I also have something to contribute. Recently I re-wrote the AAQ client
(post.pl essentially). I wrote two new version (one for the public
library users at my consortium and one for the post-secondary users). I
made some significant changes.
1) The HTML the program displays and the email it sends out are based on
templates
2) I use Net::SMTP to send email
3) There is more error checking in the database code
4) I use transactions in the database code (so if one pieces fails the
whole thing stops and rollsback what it was doing).
5) User registration is not required (the system stores all the user
info but does not track the user's identity with a cookie)
6) One screen is used to collect all information from the user
I will make the new code available as soon as possible.
sho...@nc... wrote:
>Hello All:
> I 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)
> Because 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"}="MST";
>3.Modified every *.pl files in use absolute path when require files:
>Ex: require '/aaq/c/postconfig.pl' ;
> require '/aaq/common.pl' ;
> require '/aaq/login.pl' ;
> require '/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: $server="172.18.22.25";
> $message = "To: $email\n"
> . "From: $mail_text{'from'}\n"
> . "Subject: $mail_text{'subject_confirmation'}\n\n"
> . "$mail_text{'top_confirmation'}\n\n"
> . "Your question:\n"
> . "$request_text\n\n"
> . "$mail_text{'record_label'} $request_key\n\n" ;
>
> # Save the message into a text file
>
> $lt='<';
> $gt='>';
>
> # Output the correct header
> print $q->header(-cookie=>[@cookies],charset=>$default_encode)
> . $q->start_html(-title=>'Ask A Question',
> -bgcolor=>'#ffffff',
> -link=>'#376e60', -vlink=>'#376e60',
> -style=>{'src'=>$stylesheet},
> -lang=>$default_encode)
> . $q->img({-src=>$img_base . 'share/aaq_small_green.gif',-alt=>'Ask a
>Question',-border=>'0',-align=>'left'})
> . '<table border="0" width="100%"><tr><td bgcolor="#88cc88">'
> . h1('Thanks for your question。<br>Thank you for submitting a question.')
> . '</td></tr></table>'
> . $web_page_text{'confirmation'}
> . p
> . $q->center(
> $q->a({href=>'/aaq/'},'Return to AAQ home page <br>Return to the Ask A
>Question home page')
> )
> . $end_html ;
>
> # Save the message into a text file
> open (messtxt,">message.txt");
> print messtxt ($message);
> close messtxt;
>
> # Build the Blat command line and execute it
> $blat="blat.exe message.txt -s \"$mail_text{'subject_confirmation'}\" -t
>\"$lt$email$gt$rname\" -server $server -charset big5 -f Admin@AAQ";
>
> system($blat);
>
>
> Now 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
>
>
>
>-------------------------------------------------------
>This SF.Net email is sponsored by: NEC IT Guy Games. How far can you shotput
>a projector? How fast can you ride your desk chair down the office luge track?
>If you want to score the big prize, get to know the little guy.
>Play to win an NEC 61" plasma display: http://www.necitguy.com/?r
>_______________________________________________
>Openaaq-discuss mailing list
>Ope...@li...
>https://lists.sourceforge.net/lists/listinfo/openaaq-discuss
>
>
>
|