74 строки
2.2 KiB
Perl
Executable File
74 строки
2.2 KiB
Perl
Executable File
#!/usr/bonsaitools/bin/perl -w
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is the Despot Account Administration System.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are
|
|
# Copyright (C) 1998 Netscape Communications Corporation. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
|
|
|
|
|
# This goes through the database, and sends whiny mail to anyone who has not
|
|
# changed their password.
|
|
|
|
$sourcedir = $0;
|
|
$sourcedir =~ s:/[^/]*$::; # Remove last word, and slash before it.
|
|
if ($sourcedir eq "") {
|
|
$sourcedir = ".";
|
|
}
|
|
|
|
chdir $sourcedir || die "Couldn't chdir to $sourcedir";
|
|
|
|
|
|
use Mysql;
|
|
require 'utils.pl';
|
|
|
|
$db = Mysql->Connect("localhost", "mozusers")
|
|
|| die "Can't connect to database server";
|
|
|
|
$query = Query("select email,neednewpassword from users");
|
|
|
|
$changedsomething = 0;
|
|
|
|
while (@row = $query->fetchrow()) {
|
|
($email,$neednew) = @row;
|
|
if ($neednew eq "Yes") {
|
|
print "$email\n";
|
|
open(MAIL, "| /bin/mail $email");
|
|
print MAIL "Subject: [despot] Your mozilla.org account needs to have its password changed.";
|
|
print MAIL q{
|
|
(This message has been automatically generated.)
|
|
|
|
You have a mozilla.org account, which is used to access various things at
|
|
mozilla.org. Currently, your account has been disabled, and will stay
|
|
disabled until you change your password.
|
|
|
|
To change your password, please visit
|
|
http://despot.mozilla.org/despot.cgi.
|
|
If you can't get that to work, send mail to staff@mozilla.org. If it's
|
|
an emergency, try paging terry at page-terry@netscape.com.
|
|
|
|
Unless you take some action, you will probably get this very same email
|
|
every day.
|
|
};
|
|
|
|
close MAIL;
|
|
}
|
|
}
|
|
|
|
if ($changedsomething) {
|
|
system("./syncit.pl");
|
|
}
|