Sent mail from perl

sub Mail_Mailer

{

my  $destination_directory ='/data/';

  my $from_address = "abc@gmail.com";

  my $to_address = "abc@gmail.com";

  my $subject = "SOFT DATA ";

  my $body = "Dear Sir\nPlease find the complete set of data on sftp\n.";

  my $cc="test@gmail.com";

opendir (DES,$destination_directory);

my @files=readdir(DES);

close(DES);

my @mail_sent_file=@file;

foreach my $mail_file_names (@mail_sent_file)

{

$body=${body}."\n".$mail_file_names."\n";

}

$body=${body}."\nRegards\nreportsadmin.";

my $mailer = Mail::Mailer->new("sendmail") or die;

$mailer->open(

{

From => $from_address,

To => $to_address,

Cc => $cc,

Bcc => $bcc,

Subject => $subject,

}

);

print "Going to send the mail.";

print $mailer $body;

$mailer->close();

print "Mail sent.";

return ($mailer);

}

Comments

Change password of mysql users

Change MySQL user's password in bulk Sometimes we need to change the password of mysql users at bulk. Lets say your company has fired a group of peoples or dissolved a project. This requirement can be supplied as : We can achieve the same by changing the password field in mysql.user table. Password() is a predifined method in mysql which generates encrypted value of a certain string. host update mysql.user set password = PASSWORD("passwd") where host IN (<Comma separated list of HostName/IP>); user update mysql.user set password = PASSWORD("passwd") where user IN (<Comma separated list of ‘user’@’host’>);

Allowing users to have ssh access

Allowing users to have ssh access Hi Readers, It is one of the tasks we need to complete in order to allow users to log-in into your server without compromising your security. We are going to accomplish the following tasks, 1.) Allow the users for given domain only 2.) Must allow access to a given domain 3.) Block access for a specific domain. These questions are asked in RedHat certification examination RHCE6 We are going to complete the above mention task using iptables To give proper example we are taking 192.168.20.0/255.255.255.0 as our domain and 192.168.21.0/255.255.255.0 as other domain. Assuming that your system is a fresh installation we can remove all rules previously applied. # iptables -F The above mention command will flush all the previously applied rules. Insert a rule in your input chain by below mention command, # iptables -I INPUT -s <ip of your domain>/<subnet mask> -p <protocal tcp/udp> --dport <port> -...

A few useful sql functions

Start mysql in Ubuntu without having root privilege:- If you want to use mysql in Ubutu you can use following command which will use a root level privilege $ mysql -u root -p Enter password: Welcome to the MySQL monitor. Commands end with ; or \g. Your MySQL connection id is 147 Server version: 5.1.49-1ubuntu8.1-log (Ubuntu) When it demands to enter the password fill it with 'root' and hopefully you'll get logged in . Last_insert_id():- (with no argument) returns the first automatically generated value that was set for an AUTO_INCREMENT column by the most recently executed INSERT statement to affect such a column. For example, after inserting a row that generates an AUTO_INCREMENT value, you can get the value like this: mysql> SELECT LAST_INSERT_ID(); Database():- Database() method returns the current selected database and you can use it in your communication and your queries. The syntax is : mysql>select Database (); User():- It a...

Nodejs SSA learnings

nodejs-akamai-page.MD Overview In almost every blog when people talk about deploying something on K8S they use node mostly because setting up http server is not that easy. I wish that it could be this easy for our case, (which it wasn’t). Manly because the way we wanted the application to work, plans for SEO and multiple data pipelines for business including Amplitude for client and Pubsub for application and business metrics. Making all these calls from nodejs was easy for developers just 1 more promise. Everything went smoothly as long as functional testing was required. We were ready to launch and somebody from SRE/Devops team asked: “Have you done load testing?” . Everything was superb up to this point where load testing results are required to make service live. Load Testing We started to put load to our services using apache benchmark. Very soon we realised our application is not scaling as much as we expected. To our surprise application was able to handle only 3 requ...

Send mail via SMTP using PERL

Send Mail to gmail account with perl Installation of Send::SMTP::Gmail: In order to send mail via Gmail, you need to have TLS verification. Having TLS and Installation of perl package Send::SMTP::Gmail is covered in brief. For Ubuntu: sudo apt-get install openssl libnet-ssleay-perl libcrypt-ssleay-perl For RedHat/Fedora/CentOs: yum install perl-IO-Socket-SSL perl-Digest-HMAC perl-TermReadKey perl-MIME-Lite perl-File-LibMagic perl-IO-Socket-INET6 perl-Net-SSLeay perl-Crypt-SSLeay perl-Email-Send Usages: Following method is used to send mail and attachment in it. Please read it and post your comments. sub sendMail { use Email::Send::SMTP::Gmail; my $to=shift; my $cc=shift; my $subject=shift; my $body=shift; ...

Various Tech.

Search This Blog