�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA������7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!��x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�b
s[m�6�K4���O���.�4��%����/����b�C%��t��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ��Rn��~G���R���C������wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ �
��R���IEND�B` #!/usr/bin/perl use strict; use warnings; use IO::File; use Carp; my $user; my @whitelist_files = ( '/etc/kill_dbwhitelist', '/etc/killwhitelist' ); if (@ARGV) { $user = shift; foreach (@whitelist_files) { my $whitelist_lines = IO::File->new( $_, O_RDONLY | O_CREAT ); if ( !defined $whitelist_lines || !$whitelist_lines->opened() ) { carp("Error opening $_\n"); } chomp( my @whitelist_lines = $whitelist_lines->getlines() ); $whitelist_lines->close(); my $match; foreach (@whitelist_lines) { if ( $_ =~ /^$user$/smx ) { $match++; last; } } unless ($match) { my $whitelist_lines = IO::File->new( $_, O_WRONLY | O_APPEND ); if ( !defined $whitelist_lines || !$whitelist_lines->opened() ) { carp("Error opening $_\n"); } $whitelist_lines->write("$user\n"); $whitelist_lines->close(); } } }