allow running in suidperl
authorRudolf Polzer <divVerent@xonotic.org>
Thu, 16 Dec 2010 12:34:11 +0000 (13:34 +0100)
committerRudolf Polzer <divVerent@xonotic.org>
Thu, 16 Dec 2010 12:34:25 +0000 (13:34 +0100)
misc/infrastructure/keygen/response.d0ir

index 3439f7f..e6c1de9 100755 (executable)
@@ -1,5 +1,14 @@
 #!/usr/bin/perl
 
+BEGIN
+{
+        $ENV{PATH} = "/usr/bin:/bin";
+}
+
+# if we are suid, set uid := euid
+$( = $);
+$< = $>;
+
 use strict;
 use CGI;
 use LWP::Simple;
@@ -125,7 +134,7 @@ sub check_banlist($)
 our %ca = ();
 our $default_ca = 0;
 
-do 'config.pl';
+do './config.pl';
 
 if((my $key = $cgi->param('key')))
 {