Perl SMTP

IIS6 requires an Application Pool (like Sharepoint or Exchange) other than Default Application Pool for your Web or Virtual Directory for .Net mail sending via your webpage or else CDONTS library will throw Access Denied errors In Yer Face!

Well thanks to Perl's MIME-Lite and Net-SMTP you are likely to bypass this.

Code Snippet:

1. use MIME::Lite;
   
2. use Net::SMTP;
   
3. # This debug flag will print debugging code to your browser,
   
4. # depending on its value
   
5. # Set this to 1 to send debug code to your browser.
   
6. # Set it to 0 to turn it off.
   
7. my $DEBUG = 1;
   
8. if($DEBUG)
   
9. {
   
10. $| = 1;
    
11. open(STDERR, ">&STDOUT");
    
12. }
    
13. # Set this variable to your smtp server name
    
14. # my $ServerName = "YourSMTPServer";
    
15. # Creat a new SMTP object
    
16. #$smtp = Net::SMTP->new($ServerName, Debug => 1);
    
17. # If you can't connect, don't proceed with the rest of the script
    
18. #die "Couldn't connect to server" unless $smtp;
    
19. ### Adjust Sender & Recepient email address
    
20. my $from_address = '';
    
21. my $to_address = '';
    
22. my $cc_address = '';
    
23. my $mime_type = 'multipart/mixed';
    
24. ### Adjust subject and body message
    
25. my $subject = '';
    
26. my $message_body = "";
    
27. ### Adjust the file to attach
    
28. my $filename1 = '';
    
29. my $recommended_filename1 = '';
    
30. ### Creat the initial text of the message
    
31. my $mime_msg = MIME::Lite->new(
    
32. From => $from_address,
    
33. To => $to_address,
    
34. Cc => $cc_address,
    
35. Subject => $subject,
    
36. Type => $mime_type,
    
37. )
    
38. or die "Error creating MIME body: $!\n";
    
39. ### Add the text message
    
40. $mime_msg->attach(
    
41. Type => 'TEXT',
    
42. Data => $message_body
    
43. ) or die "Error adding the text message part: $!\n";
    
44. ### Attach the attachmnet file
    
45. $mime_msg->attach(
    
46. Type => 'application/txt',
    
47. Path => $filename1,
    
48. Filename => $recommended_filename1,
    
49. Disposition => 'attachment',
    
50. )
    
51. or die "Error attaching test file: $!\n";
    
52. my $message_body = $mime_msg->body_as_string();
    
53. ### Set this variable to your smtp server name
    
54. my $ServerName = "";
    
55. ### Creat a new SMTP object
    
56. $smtp = Net::SMTP->new($ServerName, Debug => 1);
    
57. ### If you can't connect, don't proceed with the rest of the script
    
58. die "Couldn't connect to server" unless $smtp;
    
59. MIME::Lite->send('smtp', $ServerName, Timeout=>60);
    
60. $mime_msg->send;
    
61. ### Close the connection
    
62. $smtp->quit();

If at first you fail, call it version 1.0

Keyword search trick

Searching your Blogs made easy...

A two function javascript that allows your visitors to query the web with any keywords from your page.

The first function checks if the item you double clicked on the document is a text then it passes it to the second function that appends the text value to your specified query string.

You can opt for the result to be displayed on the same page by using:

document.getElementById("<$id$>").innerHtml = "

"

Or Pop up a new window:

window.open("<$variables$>")

Or redirect the page:

this.document.location=("" + "")

Code Snippet:

1. function searchmySite() {
   
2. if (navigator.appName!='Microsoft Internet Explorer') {
   
3. var mykeywords = document.getSelection();
   
4. omg(mykeywords);
   
5. }
   
6. else {
   
7. var mykeywords = document.selection.createRange();
   
8. if(document.selection.type == 'Text' && mykeywords .text>'') {
   
9. document.selection.empty();
   
10. omg(mykeywords.text);}
    
11. }
    
12. function omg(mykeywords ) {
    
13. var searchStr = "<Put your search string here>"
    
14. while (mykeywords.substr(mykeywords.length-1,1)==' ')
    
15. mykeywords=mykeywords.substr(0,mykeywords.length-1)
    
16. while (mykeywords.substr(0,1)==' ')
    
17. mykeywords=mykeywords.substr(1)
    
18. if (mykeywords) document.location=(searchStr + mykeywords);
    
19. }
    
20. }
21. document.ondblclick=searchmySite
    

If at first you fail, call it version 1.0

Free image editor - Paint.net

Check this Out!!!

This (Paint.Net) open-source photo editing application packs tons of muscle into a measly 1.3MB download that doesn't cost a dime. Impressive!!!

#19 at PC World's Top 20 Products of the Year.

Free image editor includes special effects and layers.
This surprisingly powerful image editing and manipulation tool includes unlimited undos, special effects, and even the ability to work in layers

Download Url: http://www.getpaint.net/download.html
License Type: Free
Price: Free
Operating Systems: Windows XP
File Size: 5357KB
Author: Rick Brewster