Updates from VWF

nigelhorne · Jul 30, 2024 · 6d5e62a · 6d5e62a
1 parent 585691b
commit 6d5e62a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/dynamic-site/cgi-bin/page.fcgi b/dynamic-site/cgi-bin/page.fcgi
@@ -165,6 +165,9 @@ sub sig_handler {
 $SIG{USR1} = \&sig_handler;
 $SIG{TERM} = \&sig_handler;
 $SIG{PIPE} = 'IGNORE';
+$ENV{'PATH'} = '/usr/local/bin:/bin:/usr/bin';	# For insecurity
+
+$SIG{__WARN__} = sub { Log::WarnDie->dispatcher(undef); die @_ };
 
 my $request = FCGI::Request();
 

diff --git a/ged2site b/ged2site
@@ -5168,7 +5168,7 @@ sub print_person
 								# TODO: Also check all children under 10
 								foreach my $l(@{$all_locations{$year}}) {
 									if(($l->{'person'}->xref() eq $spouses[0]->xref()) &&
-									   ($l->{'date'} eq $strftime)) {
+									   (datecmp($l->{'date'}, $strftime) == 0)) {
 										my $r1 = place(record => $residence, nopreposition => 1);
 										my $r2 = place(record => $l->{'record'}, nopreposition => 1);
 										if($r1 ne $r2) {