From 9f5b32d7833cce9171bc0035657693c7d73afc84 Mon Sep 17 00:00:00 2001
From: Joe Rayhawk <jrayhawk@cobain.omgwallhack.org>
Date: Mon, 24 Sep 2018 23:09:57 -0700
Subject: pinyweb: scalarizing CGI params because perl

Because not everyone wants to Perl Jam.
---
 pinyweb/cgi-bin/auth/newpass.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pinyweb/cgi-bin/auth/newpass.cgi')

diff --git a/pinyweb/cgi-bin/auth/newpass.cgi b/pinyweb/cgi-bin/auth/newpass.cgi
index 1031820..b367558 100755
--- a/pinyweb/cgi-bin/auth/newpass.cgi
+++ b/pinyweb/cgi-bin/auth/newpass.cgi
@@ -30,7 +30,7 @@ foreach my $n ( 1 .. 16 ) {
 
 $salt .= "\$";
 
-my $crypt = crypt( $q->param('p'), $salt );
+my $crypt = crypt( scalar( $q->param('p') ), $salt );
 
   unless ( system( '/usr/sbin/piny-suid', $ENV{'REMOTE_USER'}, 'newpasshash', $crypt ) == 0 ) {
     die( 'newpass was unsuccessful.' );
-- 
cgit v1.2.3