Has anyone create a mod for Password Reminder with Links SQL ?

Yes, try the following code in password.cgi:

and do some fields in the template you want it:

Robert

Maybe some faults in html cause copied only a part of the whole page.

Sorry, my mistake, what I meant is the password in Users table.

OK, I have this code :

#!/usr/bin/perl
# ==============================================================
# -------------
# Links SQL
# -------------
# Links Manager
#
# Author: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 1.11
#
# COPYRIGHT NOTICE:
#
# Copyright 1999 Gossamer Threads Inc. All Rights Reserved.
# No redistribution of this script may be made without prior
# written consent.
#
# By using this program you agree to indemnify Gossamer Threads
# Inc. from any liability.
#
# Please see the README for full license details.
#
# ==============================================================

# Load required modules.
# ---------------------------------------------------
use strict;
use CGI ();
use CGI::Carp qw/fatalsToBrowser/;
use lib 'ev-admin121';
use Links;
use Links::DB_Utils;
use Links::HTML_Templates;
use Links::DBSQL;
$|++;

&main();

sub main {
# ---------------------------------------------------
# Determine what to do.
#
my $in = new CGI;
my $dynamic = $in->param('d') ? $in : undef;

if ($in->param('giveme')) {
&get_password ($in, $dynamic);
}
else {
print $in->header();
&site_html_forgot_form ( {}, $dynamic);
}
}
# ==============================================================

sub get_password {
# --------------------------------------------------------
#
my ($in, $dynamic) = @_;
my $user = $in->param('Username');
my $in_r = &cgi_to_hash ($in);

# Verify username field
if (! $user) {
print $in->header();
&site_html_forgot_form ( { error => "Please enter a username", %{$in_r} }, $dynamic );
return;
}

# Check that the username exist.
my $db = new Links::DBSQL $LINKS{admin_root_path} . "/defs/Users.def";
my $user_r = $db->get_record ($user, 'HASH');
if (! $user_r) {
print $in->header();
&site_html_forgot_form ( { error => "Sorry that username does not exist", %{$in_r} }, $dynamic );
return;
} else {

# Prepare the message.
my $msg = &load_template ('email-pass.txt', { %LINKS, %$in_r });

# Mail the password request letter.
require Links::Mailer;
my $mailer = new Links::Mailer ( { smtp => $LINKS{db_smtp_server},
sendmail => $LINKS{db_mail_path},
from => $LINKS{db_admin_email},
subject => "Password Request",
to => $in->param('Email'),
msg => $msg
} ) or die $Links::Mailer::error;
$mailer->send or die $Links::Mailer::error;
&site_html_add_form ( {}, $dynamic)
}
}
## End here

Users.def :

Û_def = (
Username => ['1', 'CHAR', '25', '25', '1', '', ''],
Password => ['2', 'CHAR', '25', '25', '1', '', ''],
Email => ['3', 'CHAR', '40', '50', '0', '', ''],
Validation => ['4', 'CHAR', '20', '20', '0', '', ''],
Status => ['5', 'CHAR', '0', '13', '1', 'Not Validated', 'Not Validated|Registered|Editor|Administrator'],
Company_Name => ['6', 'CHAR', '40', '50', '1', '', ''],
Address => ['7', 'CHAR', '40', '50', '1', '', ''],
City => ['8', 'CHAR', '40', '50', '1', '', ''],
State => ['9', 'CHAR', '40', '50', '1', '', ''],
Zip => ['10', 'CHAR', '15', '15', '1', '', ''],
Country => ['11', 'CHAR', '30', '30', '1', '', ''],
Phone => ['12', 'CHAR', '20', '20', '1', '', '']
);

Please help, I can't get it to work. It always brought me to the forgot form page. But sometimes I got this message :

"No message body specified"


Thanks

Sorry, have no time at the moment to solve your problem and im no programmer! If you want to do the mod with another field in another database table you should do it with changing the tragets of the script. Read it and try out. Sorry.