Update adoberdr.pl

Added double quotes around file name in csv record
This commit is contained in:
Mark McKinnon 2020-02-07 08:39:22 -05:00
parent 690e121a0a
commit 8b661386a9

View File

@ -101,7 +101,7 @@ sub pluginmain {
::rptMsg("Most recent PDF opened: ".gmtime($arkeys{1}{lastwrite})." (UTC)");
::rptMsg("Key name,file name,sDate,uFileSize,uPageCount");
foreach my $k (sort {$a <=> $b} keys %arkeys) {
::rptMsg("c".$k.",".$arkeys{$k}{data}.",".$arkeys{$k}{sDate}.",".$arkeys{$k}{uFileSize}.",".$arkeys{$k}{uPageCount});
::rptMsg("c".$k.',"'.$arkeys{$k}{data}.'",'.$arkeys{$k}{sDate}.",".$arkeys{$k}{uFileSize}.",".$arkeys{$k}{uPageCount});
}
}
else {