#!/usr/bin/perl # #Script to send daily web filter report #should be executed by cron #created by Robert Haines - June 2015 # # # Configuration Parameters $servername = "DNSFILTER1"; $serverip = "192.168.7.218"; #ip address of the master $clientnamefile = "/scripts/CLIENTNAMEIS.txt"; $sendtoemail = "rhaines\@proactiveits.com.au"; #$alsosendto = "info\@domain.com.au"; #$fromemail = "backup\@domain.com.au"; #Get information to send. # Get information from DF open(USERLIST, "wget -q -O- http://$serverip/emailreport/userlist_text.jsp|"); @userlist = ; close(USERLIST); # Get the client name for this system open(CLIENTNAME, $clientnamefile); @clientname = ; close(CLIENTNAME); chop($clientname[0]); #Send the email $from=$fromemail; $to=$sendtoemail; $cc=$alsosendto; $subject="Web Filter Report for $clientname[0]"; $sendmailpath="/usr/sbin/sendmail"; open (SENDMAIL, "| $sendmailpath -t"); print SENDMAIL "To: $to\n"; print SENDMAIL "Subject: $subject\n"; print SENDMAIL "Mime-Version: 1.0\n"; print SENDMAIL 'Content-Type: multipart/alternative; boundary="FE4B56ACB234342884748397";'; print SENDMAIL "\n"; print SENDMAIL "Content-Disposition: inline\n"; print SENDMAIL "--FE4B56ACB234342884748397\n"; print SENDMAIL "Content-Type: text/html; charset=ISO-8859-1\n"; print SENDMAIL "Content-Transfer-Encoding: 7bit"; print SENDMAIL "\n\n"; print SENDMAIL "

Daily Web Filter Report

This report summaries internet access requests over the previous day.
To access the report, please click on the links below

Daily Report All users

Alternativly, click on the individual user for an individualised report
"; foreach $user(@userlist) { chop($user); print SENDMAIL "
Daily Report for $user"; } print SENDMAIL "

For more detailed reporting, please log into the Webfilter Console"; print SENDMAIL "\n\n--FE4B56ACB234342884748397\n"; close(SENDMAIL);