Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
00:00000:00026:2005/12/01 09:55:24.06 Logon  Login succeeded. User: qw
+r, Client IP address: '169.123.26.124'.
00:00000:00027:2005/12/01 09:55:47.15 Logon  Login succeeded. User: sa
+, Client IP address: '169.123.26.124'.
00:00000:00026:2005/12/01 10:02:25.95 server  Configuration file '/opt
+/sybase/SERVER1.cfg' has been written and the previous version has be
+en renamed to '/opt/sybase/SERVER1.031'.

Select or download this

%users = (
           'qwr' => 1,
...
           'sa' => 6,
           'xyz' => 1
         );