I'm trying to build a perl script for the following:
1. I've a perl script from which an email is sent to specific people about the results. I've used MIME::Lite for the email. I've now used this MIME::Lite module to store the email into a html file such as xyz.html at a location on the system.
2. Now, i need to display the already created .html file on a webpage which is almost like the below example:
3. I've googled for a solution for this the entire week but didn't find any concrete solution. Thereby, please provide me some pointers or any help on how to go about this would be of great help.
Below is a script which doesn't work as per the above requirements.
Thanks a lot in advance.
$ua = new LWP::UserAgent;
$req = new HTTP::Request GET => 'http://www.xyz.com/pages/editpage.action?pageId=197432134';
$output = $ua->request($req)->as_string;
#$output =~ s!^HTTP/\d+\.\d+!Status:!;
$output =~ /^Android\sAutomation\srun\son/;
print "Edited page is:". $output . "\n";
$uname = 'sqabuilder';
$paswd = 'Pallas582_556_500';
$ua = LWP::UserAgent->new;
$pf = 'Android Automation run';
$req = HTTP::Request->new(GET =>"$lne");
print outfile "updated on 30th August\n";
print outfile $ua->request($req)->as_string;
print "Please wait updating the changes\n";
print "Weblink is: $weblink \n";
$req = HTTP::Request->new(GET =>"$weblink");
#$req->credentials( $uname, $paswd );
print "Please wait: attempting to login\n";
print out $ua->request($req)->as_string;