changepass/ 0040775 0005671 0000012 00000000000 10040757131 012656 5 ustar jcameron wheel changepass/lang/ 0040775 0005671 0000012 00000000000 07777077316 013626 5 ustar jcameron wheel changepass/lang/de 0100664 0005671 0000012 00000004027 07754772170 014134 0 ustar jcameron wheel change_ecmd=$1 fehlgeschlagen : $2 change_enew1=Fehlendes neues Passwort change_enew2=Die Passworte stimmen nicht überein change_eold=Das alte Passwort ist falsch change_epam2=PAM Fehler : $1 change_epasswd=Der Befehl $1 wurde auf Ihrem System nicht gefunden und das Authen::PAM-Perlmodul ist nicht installiert. Zumindest eines der beiden muß jedoch vorhanden sein. damit Passworte geändert werden können. change_epasswd_dict=Neues Passwort wurde im Wörterbuch gefunden change_epasswd_min=Neues Passwort muß mindestens $1 Zeichen lang sein change_epasswd_new=Neues Passwort und altes Passwort stimmen überein change_epasswd_re=Neues Passwort paßt nicht auf die RegExp $1 change_epasswd_same=Neues Passwort beinhaltet den Benutzernamen change_err=Konnte Passwort nicht ändern change_euser=Ihr Benutzername wurde nicht in der Passwort-Datei gefunden change_folder=Das Passwort den Ordner $1 auf $2 wurde ebenfalls geändert. change_inbox=Das Passwort für die Inbox $1 wurde ebenfalls geändert. change_ok=Ihr Passwort für $1 wurde erfolgreich geändert. Jede Anmeldung via telnet ssh ftp oder pop3 wird das neue Passwort akzeptieren. change_samba2=Wie auch immer Ihr Samba-Passwort wurde nicht geändert : $1 change_samba=Ihr Samba-Passwort wurde ebenfalls geändert. change_title=Geändertes Passwort index_change=Jetzt ändern index_desc1=Benutzen Sie diese Seite um das Passwort zu ändern welches Sie zum Einloggen via SSH telnet oder FTP brauchen oder um Ihre eMail via POP3 abzuholen. index_desc2=Ihr Samba-Passwort welches Sie für den Zugriff unter Windows auf dieses System brauchen wird ebenfalls geändert. index_for=Ändere Passwort für Benutzer index_new1=Neues Passwort index_new2=Neues Passwort bestätigen index_old=Derzeitiges Passwort index_return=Passwort ändern index_title=Passwort ändern changepass/lang/en 0100664 0005671 0000012 00000003165 07743667027 014152 0 ustar jcameron wheel index_title=Change Password index_desc1=Use this page to change the password you use for logging into the server via SSH, telnet or FTP, or for picking up email via POP3. index_desc2=Your Samba password used when accessing files on the server from a Windows system will also be changed. index_for=Changing for user index_old=Current password index_new1=New password index_new2=New password again index_change=Change Now index_return=password changing form change_err=Failed to change password change_title=Changed Password change_ok=Your password for $1 has been changed successfully. Any telnet, SSH, FTP or POP3 logins made from now on will require the new password. change_enew1=Missing new password change_enew2=New passwords are not the same change_eold=Old password is incorrect change_epam2=PAM error : $1 change_samba=Your Samba password for windows file sharing has also been changed. change_samba2=However, your Samba password was not changed : $1 change_ecmd=$1 failed : $2 change_epasswd=The command $1 was not found on your system, and the Authen::PAM perl module is not installed. At least one of these must be available in order to change passwords. change_inbox=Your inbox $1 password has also been changed. change_folder=Your password for the $1 folder on $2 has also been changed. change_euser=Your username was not found in the password file change_epasswd_min=Password must be at least $1 letters long change_epasswd_re=Password does not match pattern $1 change_epasswd_dict=Password is a dictionary word change_epasswd_same=Password contains or is the same as username change_epasswd_new=Password is the same as the old password changepass/lang/ja_JP.euc 0100644 0005671 0000012 00000001745 07530574427 015301 0 ustar jcameron wheel index_title=パスワードの変更 index_desc=このページではログインする為のあなたのパスワードが変更できます index_for=変更するユーザー index_old=現在のパスワード index_new1=あたらしいパスワード index_new2=あたらしいパスワードをもう1度 index_change=変更する index_return=password changing form change_err=パスワードの変更に失敗しました。 change_title=Changed Password change_ok=$1 のあなたのパスワードが変更されました。ログイン 、telnet 、 SSH 、 FTP 、 POP3 等は 今 作成した新しいパスワードを必要とします。 change_enew1=新しいパスワードが欠けています change_enew2=新しいパスワードが同じではありません change_eold=古いパスワードが正しくありません change_epam2=PAM error : $1 change_samba=Your Samba password for windows file sharing has also been changed. change_samba2=However, your Samba password was not changed : $1 change_ecmd=$1 failed : $2 change_epam=The Authen::PAM perl module がインストールされていません。その代わりには外部のpasswd プログラム を使うように設定されていなければなりません。 changepass/lang/es 0100644 0005671 0000012 00000002010 07631323367 014131 0 ustar jcameron wheel index_title=Cambiar clave de acceso index_desc=Use esta pgina para cambiar la clave de acceso que utiliza para ingresar index_for=Cambiando para el usuario index_old=Clave actual index_new1=Nueva clave index_new2=Repita la nueva clave index_change=Cambiar Ahora index_return=formulario de cambio de clave change_err=Fallo al cambiar clave change_title=Clave cambiada change_ok=Su clave para $1 fue cambiada exitosamente. Cualquier telnet, SSH, FTP o POP3 realizado con su usuario a partir de ahora requerirn su nueva clave. change_enew1=Falta la nueva clave change_enew2=Las claves nuevas no son iguales change_eold=La vieja clave no es correcta change_epam2=Error PAM : $1 change_samba=Su clave Samba para compartir archivos con windows tambin fue cambiada. change_samba2=Sin embargo, su clave Samba no fue cambiada : $1 change_ecmd=$1 fall : $2 change_epasswd=El comando $1 no fue encontrado en el sistema, y el mdulo perl Authen:PAM no est instalado. Al menos uno de ellos debe estar disponible para poder cambiar claves. changepass/lang/el 0100755 0005671 0000012 00000001770 07671622220 014133 0 ustar jcameron wheel index_title=窓諱竈 庖粡褊 index_desc=恆苴蛹關濶縷齡 癜 黼諧籬 竕 轣 瘠諚鈬 闕 褶粡褝 黶 index_for=窓諱竈 竕 驀齡 index_old=倚謇 褶粡褝 index_new1=慾闥 褶粡褝 index_new2=慾闥 褶粡褝 靺謇 index_change=窓諱竈 奩驕 index_return=骭 瘠諱竈 褶粡褊 change_err=草阡焉 瘠諱竈 褶粡褊 change_title= 褶粡褝 樣諱鈬 change_ok= 褶粡褝 黶 竕 $1 樣諱鈬 辮蜚. 草 驕 裃 跂, 濶 齦辟沒繪 telnet, SSH, FTP POP3 葹 瘰瘟陜 轎 褶粡褝. change_enew1=妹熕繪 轎闥 褶粡褝 change_enew2= 轎濶 褶粡褊 粡癘汨阨 跂瘤 阨 change_eold= 鞜謇 褶粡褝 縷轣 諱辷癈贔迴 change_epam2=本蓖 PAM : $1 change_samba= Samba 褶粡褝 黶 竕 韵黷癈 黼 褊蜊驥齡阨 顫髀 Windows 樣諱鈬 辮燗苒. change_samba2=俑逕, Samba 褶粡褝 黶 粤 樣諱鈬 : $1 change_ecmd=$1 瘰沐 : $2 change_epasswd= 纃闍 $1 粤 碌汕芒 齡 龜齡芟 黶, 裃 纃苳 Perl Authen::PAM 粤 縷轣 繝裃纉芟沚. 夬諚蜩闕 赧 瘰 癜汳 韵汾繪 轣 縷轣 繝裃纉芟沚 竕 轣 跟闡縷 轣 瘠諚鈬 褶粡褝. changepass/lang/pl 0100664 0005671 0000012 00000002143 07710512514 014136 0 ustar jcameron wheel index_title=Zmiana Hasa index_desc=Ta strona posuy Ci do zmiany hasa, ktrego uywasz do logowania si w systemie index_for=Uytkownik index_old=Stare haso index_new1=Nowe haso index_new2=Potwierdzenie nowego hasa index_change=Akceptacja zmian index_return=Haso zmieniane z change_err=B咳d podczas zmieniania hasa change_title=Changed Password change_ok=Haso dla $1 zostao pomylnie zmienione. Usugi takie jak telnet, SSH, FTP czy POP3 bd wymagay nowego hasa. change_enew1=Brak nowego hasa change_enew2=Nowe hasa nie pasuja do siebie change_eold=Stare haso jest niepoprawne change_epam2=B咳d PAM : $1 change_samba=Twoje haso dostepowe do plikw udostpnionych za pomoc Samby, zostao zmienione. change_samba2=Twoje haso dostepowe do plikw udostpnionych za pomoc Samby, NIE zostao zmienione. change_ecmd=$1 b咳d : $2 change_epasswd=Polecenie $1 nie zostao znalezione w systyemie, PAM - mod鶻 perla jest nie zainstalowany. Przynajmniej jedno z nich jest wymagane do zmiany hasa. change_inbox=Twoje haso na skrzynke $1 zostalo zmienione. change_folder=Haso na folder $1 na $2 zostao zmienione. changepass/lang/it 0100744 0005671 0000012 00000003042 07760752312 014144 0 ustar jcameron wheel index_title=Cambiamento Password index_desc1=Usate questa pagina per cambiare le password di accesso ai servizi POP3, SSH e TELNET. index_desc2=Anche la vostra password di accesso a Samba verrà cambiata. index_for=Cambiamento per l'utente index_old=Password attuale index_new1=Nuova password index_new2=Nuova password (verifica) index_change=Cambia index_return=pagina cambiamento password change_err=Impossibile cambiare la password change_title=Password cambiata change_ok=La vostra password per $1 é stata cambiata. Ogni sessione di telnet, SSH, FTP or POP3 da ora in poi richiederà la nuova password. change_enew1=Nuova password non specificata change_enew2=Le nuove password non corrispondono change_eold=Password errata change_epam2=PAM error : $1 change_samba=Anche la vostra password Samba é stata cambiata. change_samba2=Tuttavia, la vostra password Samba non é cambiata : $1 change_ecmd=$1 fallito : $2 change_epasswd=Il comando $1 non é disponibile, e il modulo Authen::PAM non é installato. Uno dei due é necessario per poter cambiare le password. change_inbox=Anche la vostra password per l'inbox $1 é cambiata. change_folder=Anche la vostra password per la cartella $1 su $2 é cambiata. change_euser=Utente inesistente change_epasswd_min=La password deve essere lunga almeno $1 lettere change_epasswd_re=Password di forma errata change_epasswd_dict=Password troppo comune change_epasswd_same=Password simile o uguale al nome utente change_epasswd_new=Password uguale alla precedente changepass/lang/fr 0100744 0005671 0000012 00000003721 07777077316 014157 0 ustar jcameron wheel index_title=Modification de mot de passe index_desc1=Utilisez cette page pour changer votre mot de passe utilis pour vous connecter au serveur via SSH, Telnet, FTP ou pour rcuprer vos mails via POP3 ou IMAP. index_desc2=Votre mot de passe Samba utilis lors de l'accs aux fichiers du serveur depuis des postes Windows sera aussi modifi. index_for=Changement pour l'utilisateur index_old=Mot de passe actuel index_new1=Nouveau mot de passe index_new2=Confirmation nouveau mot de passe index_change=Changer maintenant index_return=Formulaire changement mot de passe change_err=Echec du changement de mot de passe change_title=Mot de passe modifi change_ok=Votre mot de passe pour $1 a t modifi avec succs. Tout accs telnet, SSH, FTP, POP3 ou IMAP ralis partir de maintenant ncessite le nouveau mot de passe. change_enew1=Nouveau mot de passe non renseign change_enew2=Les nouveaux mots de passe sont diffrents change_eold=Ancien mot de passe incorrect change_epam2=Erreur PAM : $1 change_samba=Votre mot de passe Samba pour le partage de fichier Windows a galement t chang. change_samba2=Cependant, votre mot de passe Samba n'a pas t chang : $1 change_ecmd=$1 a chou : $2 change_epasswd=La commande $1 n'a pas t trouv sur votre systme, et le module Perl Authen::PAM perl n'est pas install. Au moins l'un des deux doit etre prsent pour permettre la modification de mots de passes. change_inbox=Le mot de passe de votre boite aux lettres $1 a aussi t chang. change_folder=Votre mot de passe pour le dossier $1 sur $2 a aussi t chang. change_euser=Votre nom d'utilisateur n'a pas t trouv dans le fichier des mots de passes change_epasswd_min=Le mot de passe doit avoir au moins $1 caractres change_epasswd_re=Le mot de passe ne rpond pas au critre $1 change_epasswd_dict=Le mot de passe est un mot du dictionnaire change_epasswd_same=Le mot de passe contient ou est le mme que le nom d'utilisateur change_epasswd_new=Le mot de passe est le mme que l'ancien changepass/images/ 0040775 0005671 0000012 00000000000 07443047615 014137 5 ustar jcameron wheel changepass/images/icon.gif 0100644 0005671 0000012 00000000460 07443047615 015551 0 ustar jcameron wheel GIF89a0 0 面fff ! , 0 0 載0I [B( 0hL$N#妄綽I@h#6dds26)z.:*9F)45_'q:h A'K|tH'%v9%{s7#,アu'Ο/@Ф徽室た}〜渦天1抗;+Kf=H北<w#g3况檀!I2 bR蜚羃hA`(據z_=[#J ; changepass/changepass.cgi 0100775 0005671 0000012 00000014344 10040757131 015464 0 ustar jcameron wheel #!/usr/local/bin/perl # changepass.cgi # Change the user's password now, using PAM and the passwd service require './changepass-lib.pl'; &error_setup($text{'change_err'}); &ReadParse(); # Validate inputs $in{'new1'} ne '' || &error($text{'change_enew1'}); $in{'new1'} eq $in{'new2'} || &error($text{'change_enew2'}); # Make sure minimum length and other restrictions are met $err = &check_password($in{'new1'}, $remote_user); &error($err) if ($err); eval "use Authen::PAM"; $has_pam++ if (!$@); $@ = undef; if ($config{'passwd_cmd'} eq 'file') { # Directly update shadow file to do the change # Read shadow file and find user &get_miniserv_config(\%miniserv); &lock_file($miniserv{'passwd_file'}); $lref = &read_file_lines($miniserv{'passwd_file'}); for($i=0; $i<@$lref; $i++) { @line = split(/:/, $lref->[$i], -1); local $u = $line[$miniserv{'passwd_uindex'}]; if ($u eq $remote_user) { $idx = $i; last; } } defined($idx) || &error($text{'change_euser'}); # Validate old password crypt($in{'old'}, $line[$miniserv{'passwd_pindex'}]) eq $line[$miniserv{'passwd_pindex'}] || &error($text{'change_eold'}); # Set new password and save file $salt = chr(int(rand(26))+65) . chr(int(rand(26))+65); $line[$miniserv{'passwd_pindex'}] = crypt($in{'new1'}, $salt); if ($miniserv{'passwd_cindex'} ne '') { $days = int(time()/(24*60*60)); $line[$miniserv{'passwd_cindex'}] = $days; } $lref->[$idx] = join(":", @line); &flush_file_lines(); &unlock_file($miniserv{'passwd_file'}); } elsif ($config{'passwd_cmd'} || !$has_pam) { # Call passwd program to do the change if ($config{'passwd_cmd'}) { $passwd_cmd = $config{'passwd_cmd'}; } else { $passwd_cmd = &has_command("passwd"); $passwd_cmd || &error(&text('change_epasswd', "passwd")); } &foreign_require("proc", "proc-lib.pl"); &clean_environment(); $ENV{'REMOTE_USER'} = $remote_user; # some programs need this if ($config{'cmd_mode'} == 0) { # Command is run as the user $ENV{'USER'} = $ENV{'LOGNAME'} = $remote_user; @uinfo = getpwnam($remote_user); $ENV{'HOME'} = $uinfo[7]; chdir($uinfo[7]); ($fh, $fpid) = &proc::pty_process_exec( $passwd_cmd, $uinfo[2], $uinfo[3]); chdir($module_root_directory); } else { # Command is being run as root $passwd_cmd .= " ".quotemeta($remote_user); ($fh, $fpid) = &proc::pty_process_exec($passwd_cmd, 0, 0); } &reset_environment(); while(1) { local $rv = &wait_for($fh, '(new|re-enter).*:', '(old|current|login).*:', 'pick a password'); $out .= $wait_for_input; sleep(1); if ($rv == 0) { syswrite($fh, $in{'new1'}."\n", length($in{'new1'})+1); } elsif ($rv == 1) { syswrite($fh, $in{'old'}."\n", length($in{'old'})+1); } elsif ($rv == 2) { syswrite($fh, "1\n", 2); } else { last; } last if (++$count > 10); } $crv = close($fh); sleep(1); waitpid($fpid, 1); &error(&text('change_ecmd', "$passwd_cmd", "
$out")) if ($? || $count > 10 || $out =~ /bad\s+password|error|failed/i); } else { # Use PAM to make the change.. # Check if the old password is correct &get_miniserv_config(\%miniserv); $service = $miniserv{'pam'} ? $miniserv{'pam'} : "webmin"; $pamh = new Authen::PAM($service, $remote_user, \&pam_check_func); $rv = $pamh->pam_authenticate(); $rv == PAM_SUCCESS || &error($text{'change_eold'}); $pamh = undef; # Change the password with PAM $pamh = new Authen::PAM("passwd", $remote_user, \&pam_change_func); $rv = $pamh->pam_chauthtok(); $rv == PAM_SUCCESS || &error(&text('change_epam2', $pamh->pam_strerror($rv))); $pamh = undef; } # Change samba password as well if (&has_command($config{'smbpasswd'})) { local $user = quotemeta($remote_user); local $hout = `$config{'smbpasswd'} -h 2>&1`; if ($hout =~ /\s-s\s/) { # New version of smbpasswd which accepts the -s option local $temp = &tempname(); open(TEMP, ">$temp"); print TEMP $in{'new1'},"\n",$in{'new1'},"\n"; close(TEMP); $smbout = `$config{'smbpasswd'} -s $user 2>&1 <$temp`; unlink($temp); } else { # Old version of smbpasswd which takes password on command line local $pass = quotemeta($in{'new1'}); $smbout = `$config{'smbpasswd'} $user $pass 2>&1 {'type'} == 2 || $f->{'type'} == 4) && $f->{'user'} eq $remote_user && $f->{'pass'} eq $in{'old'}) { # Found one to change local $type = $f->{'type'} == 2 ? "pop3" : "imap"; if ($f->{'inbox'}) { # Need to change special inbox password file $file = "$mailbox::user_module_config_directory/inbox"; push(@pc, &text('change_inbox', uc($type))); } else { # Need to change folder's file $file = "$mailbox::user_module_config_directory/$f->{'id'}"; push(@pc, &text('change_folder', uc($type), $f->{'server'})); } $file .= ".".$type; local %data; &read_file($file, \%data); $data{'pass'} = $in{'new1'}; &write_file($file, \%data); } } } # Run any post-change command if ($config{'post_command'}) { $ENV{'CHANGEPASS_USER'} = $remote_user; $ENV{'CHANGEPASS_PASS'} = $in{'new1'}; system("($config{'post_command'}) >/dev/null 2>&1 \n"; print "
",&text('change_ok', "$remote_user"),"
\n"; if ($smbout =~ /changed/) { print "
",&text('change_samba'),"
\n"; } elsif ($smbout) { print "
",&text('change_samba2', "
$smbout"),"
\n";
}
foreach $pc (@pc) {
print "$pc
\n";
}
print "
\n" if (@pc); print "
\n"; print "
\n"; print "