Export get_params

Author: nigelhorne

cgi-bin/page.fcgi

@@ -304,6 +304,7 @@ sub doit
 	# Check and increment request count
 	my $request_count = $rate_limit_cache->get($client_ip) || 0;
 
+	# TODO: update the vwf_log variable to point here
 	$vwflog ||= $config->vwflog() || File::Spec->catfile($info->logdir(), 'vwf.log');
 
 	# Rate limit by IP
@@ -620,11 +621,11 @@ sub vwflog
 			'"', $lingua->country(), '",',
 			'"', $info->browser_type(), '",',
 			'"', $lingua->language(), '",',
-			'429,',
-			'"",',
+			$info->status(), ',',
+			'"', $log->template() ? $log->template() : '', '",',
 			'"', $info->as_string(raw => 1), '",',
 			'"', $info->warnings_as_string(), '",',
-			'"$message"',
+			'"', $message, '"',
 			"\n";
 		close($log);
 	}
@@ -646,7 +647,7 @@ sub vwflog
 			$log->template() ? $log->template() : '',
 			$info->as_string(raw => 1),
 			$info->warnings_as_string(),
-			'"', $message, '"',
+			'"', $message, '"'
 		);
 		closelog();
 	}

lib/VWF/Utils.pm

@@ -20,7 +20,7 @@ use warnings;
 
 use Exporter qw(import);
 
-our @EXPORT = qw(create_disc_cache create_memory_cache distance);
+our @EXPORT = qw(create_disc_cache create_memory_cache distance get_params);
 
 use CHI;
 use Data::Dumper;

tests/get_params

@@ -2,10 +2,12 @@
 
 use strict;
 use warnings;
+
+use FindBin qw($Bin);
 use Test::Most tests => 7;
 use Error qw(:try);
 
-use lib '../lib';
+use lib "$Bin/../lib";
 
 use_ok('VWF::Utils');