--- lib/BackupPC/CGI/Lib.pm.orig	Mon Apr 25 05:31:55 2011
+++ lib/BackupPC/CGI/Lib.pm	Sat Sep 17 17:21:37 2011
@@ -90,7 +90,7 @@ use vars qw($Lang);
 
 sub NewRequest
 {
-    $Cgi = new CGI;
+    $Cgi = shift || new CGI;
     %In = $Cgi->Vars;
 
     if ( !defined($bpc) ) {
