Advertisement
Guest User

Untitled

a guest
May 3rd, 2017
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.40 KB | None | 0 0
  1. package Listener::ProFTPd::Auth::Unix;
  2.  
  3. use strict;
  4. use warnings;
  5. use iMSCP::EventManager;
  6.  
  7. iMSCP::EventManager->getInstance()->register(
  8.     'afterFtpdBuildConf',
  9.     sub {
  10.         my ($tplContent, $tplName) = @_;
  11.  
  12.         return 0 unless $tplName eq 'proftpd.conf';
  13.  
  14.         $$tplContent =~ s/(AuthOrder\s+mod_sql.c)/$1 mod_auth_pam.c* mod_auth_unix.c/;
  15.         0;
  16.     }
  17. );
  18.  
  19. 1;
  20. __END__
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement