X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FSettings.pm;fp=ND%2FWeb%2FPages%2FSettings.pm;h=75c55403096492931ca1fb2c1fe6343aa3c83cd4;hb=14e02a0c339a87b623b11fb9e3d050e7c365b2db;hp=0d0e6f6d3aff1b4c6f0cdc1325d69c44f9ea630c;hpb=c4b0e3e4fbef182e3ef1411c91cbb72c2ced70e2;p=ndwebbie.git

diff --git a/ND/Web/Pages/Settings.pm b/ND/Web/Pages/Settings.pm
index 0d0e6f6..75c5540 100644
--- a/ND/Web/Pages/Settings.pm
+++ b/ND/Web/Pages/Settings.pm
@@ -40,6 +40,10 @@ sub render_body {
 			$query->execute($ND::UID,escapeHTML(param 'stylesheet')) or $ND::ERROR .= p $DBH->errstr;
 		}
 	}
+	if(param('oldpass') && param('pass')){
+		my $query = $DBH->prepare('UPDATE users SET password = MD5(?) WHERE password = MD5(?) AND uid = ?');
+		$query->execute(param('pass'),param('oldpass'),$ND::UID);
+	}
 	my ($css) = $DBH->selectrow_array(q{SELECT css FROM users WHERE uid = $1},undef,$ND::UID);
 	my @stylesheets = ({Style => 'Default'});
 	$css = '' unless defined $css;