Jason Balicki wrote: > Hello, > > I have several locations with a hardware VPN device and > I've set them up to log to a central logging server. > > Some of the managers of these facilities would like to > have a report showing who's using the VPN and when. > > I've written a script that does that. It works, but as > I'm pretty new at Perl (this is only my second real > life application) I'm sure it could be improved > (significantly). > > Would some kind soul like to take a look at this > script, make suggestions or otherwise completely > destroy my ego? :) > > Thanks in advance to anyone who takes this up... > > The script can be found at: > > http://www.zeffert.com/vpn_report > How much data are you talking about at any point? A day, week, month or more? If less than a month, then using a hash to hold the key information and build the print information into the hash. Then you can sort or dice it up any way you want. Also by doing, you can come up with totals which can be placed at the beginning of the report whic can give your management a heads up depending on what they see. I do this all the time, it makes ofr nice report for management when they don't need to jump to the back of report to see the totals.
Wags ;) > And some fake (sanitized) data to run it against (you'll > have to make changes to the script accordingly): > > http://www.zeffert.com/fake_data (60k text file, some > gunk has been pre-filtered) > > HINT: you can change $date in the script to get > more hits. > > Thanks again, > > --J(K) ******************************************************* This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ******************************************************* -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
