script to email webalizer output

[md1750]

I am looking for a script that will email a weekly ouput of webalizer to me

 

[siberian]

You will need to write a perl script that compresses the directory and then emails it out via your SMTP server.

Pick a scripting language your system can run and head on over to that forum, I think thats your best bet.

 

[md1750]

I will need help .Could you help .

 

[siberian]

If your defintion of 'Help' is 'write my script for me' then no, your better off at

http://www.rentacoder.com/

for that.

If by 'help' you mean that you will do some research, select a language for your platform and begin to attempt this task on your own, coming to us for advice and specific issues, then yes, I'll help.

 

[md1750]

I will like to use perl and module Net::SMTP.How do I begin to code the directory compression.

 

[siberian]

What OS? UNIX or Windows?

 

[md1750]

OS is solaris

 

[siberian]

Here is the perl command to tar a file

$result = `tar -cf /path/to/filename.tar directory`

(those are backticks, not quotes)

That will create filename.tar

You may want to use MIME::Lite for your attachments

http://perl.about.com/library/weekly/aa042302a.htm

 

[md1750]

This is what I have so far.Please look through for any syntax erros.I will appreciate your comments:
#!/usr/bin/perl -w


#use strict;
use Net::SMTP;
use Net::Config;

print "Content-type: text/plain", "\n\n";

system("cd /array1/var/

http://www/report");

system("/usr/bin/webalizer");

# This debug flag will print debugging code to your browser,
# depending on its value
# Set this to 1 to send debug code to your browser.
# Set it to 0 to turn it off.

my $DEBUG = 1;

if($DEBUG)
{
$| = 1;
open(STDERR, ">&STDOUT");
}

# Set this variable to your smtp server name
my $ServerName = "mailfwd.nih.gov";

# Create a new SMTP object
$smtp = Net::SMTP->new($ServerName, Debug => 1);

# If you can't connect, don't proceed with the rest of the script
die "Couldn't connect to server" unless $smtp;

# Initiate the mail transaction
# Your "real" email address
my $MailFrom = "root\@rhlab.nih.gov";

# Recipient's "real" email address
my $MailTo = "benmartins\@blackplanet.com";

$smtp->mail( $MailFrom );
$smtp->to( $MailTo );

# Start the mail
$smtp->data();

# Send the header
# This address will appear in the message
$smtp->datasend("To: enmartins\@blackplanet.com\n");

# So will this one
$smtp->datasend("From: root\@rlab.nih.gov\n");
$smtp->datasend("Subject: Test Message\n");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Hello World!\n\n");

# Send the termination string
$smtp->dataend();

# Close the connection
$smtp->quit();

exit;

 

[siberian]

A quick look and it seems fine to me, does it work?

I also do not see your attachment going out, I recommend Mime::Lite for that. You can set it to use Net::SMTP but it will handle the connection internally rendering a lot of this code unneccesary.

 

[md1750]

It is still running but shows some good sign.

 

[md1750]

It ran but did not send any webalizer output.It also gave an error that states: "my" variable $MailTo mask earlier declaration in some scope at /opt/admin/scripts/webstats.pl line 42.What am I doing.Help.

 

[siberian]

Of cousre it did not, your not sending that output anywhere. You just sending 'Hello World'.

 

[md1750]

I have changed datasend to the proper link and it is working fine.Thanks for your assistance all these days.