Метка: Префиксы в ISPManager 5 Lite

Префиксы в ISPManager 5 Lite

Код: cat /usr/local/mgr5/etc/xml/ispmgr_mod_add.prefix.xml <?xml version=»1.0″ encoding=»UTF-8″?> <mgrdata> <handler name=»add.prefix.pl» type=»xml»> <event name=»check.username» after=»yes» /> <event name=»check.dbname» after=»yes» /> </handler> </mgrdata> Код: cat /usr/local/mgr5/addon/add.prefix.pl #!/usr/bin/perl -w # # надо отловить db.restore, before use Data::Dumper; use XML::LibXML; #——————————————————————————- #——————————————————————————- $owner = $ENV{‘AUTH_USER’}; $value = $ENV{‘PARAM_value’}; #——————————————————————————- open (LOGFILE, «>>/tmp/add.prefix.pl.txt»); #——————————————————————————- my $d = XML::LibXML->new->parse_string(join «», <STDIN>); #——————————————————————————- […]