#!/usr/bin/perl
use strict;
use CGI;
use Time::localtime;
use JSON;
use Opals::Context;
use Opals::Template qw(
tmpl_read
tmpl_write
);
use Opals::Mail qw(
mail_send
);
use Opals::Eq_SolrSearch;
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookieList, $template) = tmpl_read(
{
dbh => $dbh,
cgi => $cgi,
tmplFile => '/eqmnt/report/save_sendDelExpFromHitList.tmpl',
reqPermission => 'eq_record_edit',
}
);
my $tm = localtime;
my $curTime = sprintf("%04d%02d%02d%02d%02d%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
my $today = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
my $op = $input->{'op'};
my $type = $input->{'type'};
my $logId = $input->{'logId'};
my $data = _getDataFromlog($dbh,$logId);
$data = decode_json($data);
my $filename = "deleteFromHitList_$curTime";
if ($op eq 'save'){
if ($type eq 'HTML') {
print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$filename".".html\n\n";
print " ";
print "";
print "";
print "";
print "
";
print "";
print "";
print "| No. | Equipment Name | Manufacture | Model | Barcode | ";
print "
|---|
";
print "";
print "";
my $i =0;
foreach my $d( @{$data}){
$i++;
print "";
print "| $i | ";
print "$d->{'eq_name'} | ";
print "$d->{'1'} | ";
print "$d->{'3'} | ";
print "$d->{'barcode'} | ";
print "
";
}
print "";
print "
";
print "";
}
elsif($type eq 'CSV'){
print "Content-Encoding: UTF-8\n";
print "Content-type: text/csv; charset=UTF-8\n";
print "Content-Disposition:attachment;filename=$filename".".csv\n\n";
print "\"Equipment Name\",\"Manufacture\",\"Model\",\"Barcode\" \n";
foreach my $d( @{$data}){
print "\"$d->{'eq_name'}\",\"$d->{'1'}\",\"$d->{'3'}\",\"$d->{'barcode'}\" ";
print "\n";
}
}
}
else{
tmpl_write($dbh, $cgi, $cookieList, $template);
}
sub getList {
my($dbh,$date,$list) = @_;
my $rootDir = Opals::Context->config('rootDir');
my $template = HTML::Template->new(
filename => "save_sendRec.tmpl",
path => "$rootDir/htdocs/theme/opals/eqmnt/util/",
global_vars => 1,
die_on_bad_params => 0,
cache => 1,
shared_cache => 0,
loop_context_vars => 1,);
$template->param(
list=>$list,
date=>$date,
);
return $template->output();
}
sub _getDataFromlog {
my ($dbh,$id) = @_;
my $sql = "select content from log where id=$id";
my $data = $dbh->selectrow_array($sql);
return $data;
}