i was wondering if ohter users would be intrested in this kind of small mod/hack
so for the users who are intrested in this
Code: Select all
<TMPL_UNLESS premium><a href="?op=my_account&del_id=<TMPL_VAR usr_id>" onClick="return confirm('Destroy <TMPL_VAR usr_login> Account with All files?')"><img src="<TMPL_VAR site_url>/images/del.gif" border=0 alt="Delete Account"></a></TMPL_UNLESS>
place above code in my_account.html
now open index.cgi and search for following line
Code: Select all
sub MyAccount
{
place under it this code
Code: Select all
if($f->{del_id})
{
$ses->message("Security error: not_owner") unless ($f->{del_id} == $ses->{user}->{usr_id});
my $files = $db->SelectARef("SELECT srv_id,file_code,file_id,file_real,file_real_id FROM Files WHERE usr_id=?",$f->{del_id});
$ses->DeleteFilesMass($files);
$ses->DeleteUserDB($f->{del_id});
$ses->redirect("$c->{site_url}/?msg=Account%20and%20files%20succesfully%20Deleted");
}
for the users who are wondering how it was created
it is partial taken from the admin arena and added the sesion check to be sure that your account request the same id instead a other id
my skills of cgi/perl are to limited to create my own code from scratch :s
The reason why i release it is because i feel that it is needed to have a self delete option
i got differend requests from users who like to delete his own account
or users who does not want to get a email (if 1 get sended) or want to have anything to do anymore with the filehost and a lot of other reasons
so now those users got the option to delete his own accounts
enjoy
Greetings From PowerChaos