Revision 8234
Added by Jing Tao about 11 years ago
| src/perl/ldapweb.cgi | ||
|---|---|---|
| 377 | 377 |
$accountInfo = $found; |
| 378 | 378 |
} else {
|
| 379 | 379 |
my $link = $contextUrl. '/cgi-bin/ldapweb.cgi?cfg=' . $skinName; |
| 380 |
$accountInfo = "There are no KNB accounts associated with the email " . $mail . ".\n" .
|
|
| 380 |
$accountInfo = "There are no accounts associated with the email " . $mail . ".\n" . |
|
| 381 | 381 |
"You may create a new one by the following link: \n" . $link |
| 382 | 382 |
} |
| 383 | 383 |
|
| ... | ... | |
| 401 | 401 |
my $message = <<" ENDOFMESSAGE"; |
| 402 | 402 |
To: $recipient |
| 403 | 403 |
From: $sender |
| 404 |
Subject: KNB Account
|
|
| 404 |
Subject: Your Account Information
|
|
| 405 | 405 |
|
| 406 |
Somebody (hopefully you) looked up the KNB accounts associated with the email address.
|
|
| 407 |
Here is the accounts information:
|
|
| 406 |
Somebody (hopefully you) looked up the account information associated with the email address.
|
|
| 407 |
Here is the account information: |
|
| 408 | 408 |
|
| 409 | 409 |
$accountInfo |
| 410 | 410 |
|
| 411 | 411 |
Thanks, |
| 412 |
The KNB Development Team
|
|
| 412 |
$sender
|
|
| 413 | 413 |
|
| 414 | 414 |
ENDOFMESSAGE |
| 415 | 415 |
$message =~ s/^[ \t\r\f]+//gm; |
| ... | ... | |
| 882 | 882 |
my $message = <<" ENDOFMESSAGE"; |
| 883 | 883 |
To: $recipient |
| 884 | 884 |
From: $sender |
| 885 |
Subject: KNB Password Reset
|
|
| 885 |
Subject: Your Account Password Reset
|
|
| 886 | 886 |
|
| 887 |
Somebody (hopefully you) requested that your KNB password be reset.
|
|
| 887 |
Somebody (hopefully you) requested that your account password be reset.
|
|
| 888 | 888 |
This is generally done when somebody forgets their password. Your |
| 889 | 889 |
password can be changed by visiting the following URL: |
| 890 | 890 |
|
| ... | ... | |
| 895 | 895 |
New Password: $newPass |
| 896 | 896 |
|
| 897 | 897 |
Thanks, |
| 898 |
The KNB Development Team
|
|
| 898 |
$sender
|
|
| 899 | 899 |
|
| 900 | 900 |
ENDOFMESSAGE |
| 901 | 901 |
$message =~ s/^[ \t\r\f]+//gm; |
| ... | ... | |
| 1139 | 1139 |
my $message = <<" ENDOFMESSAGE"; |
| 1140 | 1140 |
To: $recipient |
| 1141 | 1141 |
From: $sender |
| 1142 |
Subject: Activate the New KNB Account
|
|
| 1142 |
Subject: Activate the New Account |
|
| 1143 | 1143 |
|
| 1144 |
Somebody (hopefully you) registered a KNB account.
|
|
| 1144 |
Somebody (hopefully you) registered a account on $metacatUrl .
|
|
| 1145 | 1145 |
Please click the following link to activate your account. |
| 1146 | 1146 |
If the link doesn't work, please copy the link to your browser: |
| 1147 | 1147 |
|
| 1148 | 1148 |
$link |
| 1149 | 1149 |
|
| 1150 | 1150 |
Thanks, |
| 1151 |
The KNB Development Team
|
|
| 1151 |
$sender
|
|
| 1152 | 1152 |
|
| 1153 | 1153 |
ENDOFMESSAGE |
| 1154 | 1154 |
$message =~ s/^[ \t\r\f]+//gm; |
Also available in: Unified diff
Remove the knb information in the emails.