Hi,
Sorry about the delay. This change should work :)
In profile.cgi, find;
Code:
$DB->table('Users')->update( $add, { Username => $user } ) || &error_msg($GT::SQL::error);
..and change to;
Code:
$DB->table('Users')->update( $add, { Username => $user } ) || &error_msg($GT::SQL::error);
email_changes($add,$user); # MOD!!!!
... and then at the very end of the script, add the following subroutine;
Code:
sub email_changes {
my ($hash_add,$user) = @_;
my $message = "Changes were made to $user's profile. They are as follows: \n\n" . Dumper($add);
my $to = $CFG->{db_admin_email};
my $name = "Admin";
my $subject = $CFG->{site_title} . " User Profile Change...";
require GT::Mail;
$GT::Mail::error ||= ''; # Silence -w
GT::Mail->send (
smtp => $CFG->{db_smtp_server},
sendmail => $CFG->{db_mail_path},
from => $CFG->{db_admin_email},
subject => $subject,
to => $to,
msg => $message,
debug => $Links::DEBUG,
type => 'text/html'
) or Links::fatal ("Unable to send mail: $GT::Mail::error");
}
That *should* do it :) Please note, this isn't tested... so may not work right away. I'm hoping it will though <G>
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my
Amazon Wish List GLinks ULTRA Package | GLinks ULTRA Package PRO Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin |
Pre-Made Template Sets |
FREE GLinks Plugins!