taint.c

   1 /*
   2  * "...we will have peace, when you and all your works have perished--and
   3  * the works of your dark master to whom you would deliver us.  You are a
   4  * liar, Saruman, and a corrupter of men's hearts."  --Theoden
   5  */
   6
   7 #include "EXTERN.h"
   8 #include "perl.h"
   9
  10 void
  11 taint_proper(f, s)
  12 const char *f;
  13 char *s;
  14 {
  15     char *ug;
  16
  17     DEBUG_u(PerlIO_printf(PerlIO_stderr(),
  18             "%s %d %d %d\n", s, tainted, uid, euid));
  19
  20     if (tainted) {
  21         if (euid != uid)
  22             ug = " while running setuid";
  23         else if (egid != gid)
  24             ug = " while running setgid";
  25         else
  26             ug = " while running with -T switch";
  27         if (!unsafe)
  28             croak(f, s, ug);
  29         else if (dowarn)
  30             warn(f, s, ug);
  31     }
  32 }
  33
  34 void
  35 taint_env()
  36 {
  37     SV** svp;
  38     MAGIC *mg;
  39
  40 #ifdef VMS
  41     int i = 0;
  42     char name[14] = "DCL$PATH";
  43
  44     while (1) {
  45         if (i)
  46             (void)sprintf(name,"DCL$PATH;%d", i);
  47         svp = hv_fetch(GvHVn(envgv), name, strlen(name), FALSE);
  48         if (!svp || *svp == &sv_undef)
  49             break;
  50         if (SvTAINTED(*svp)) {
  51             TAINT;
  52             taint_proper("Insecure %s%s", "$ENV{DCL$PATH}");
  53         }
  54         if ((mg = mg_find(*svp, 'e')) && MgTAINTEDDIR(mg)) {
  55             TAINT;
  56             taint_proper("Insecure directory in %s%s", "$ENV{DCL$PATH}");
  57         }
  58         i++;
  59     }
  60 #endif /* VMS */
  61
  62     svp = hv_fetch(GvHVn(envgv),"PATH",4,FALSE);
  63     if (svp && *svp) {
  64         if (SvTAINTED(*svp)) {
  65             TAINT;
  66             taint_proper("Insecure %s%s", "$ENV{PATH}");
  67         }
  68         if ((mg = mg_find(*svp, 'e')) && MgTAINTEDDIR(mg)) {
  69             TAINT;
  70             taint_proper("Insecure directory in %s%s", "$ENV{PATH}");
  71         }
  72     }
  73
  74     svp = hv_fetch(GvHVn(envgv),"IFS",3,FALSE);
  75     if (svp && *svp != &sv_undef && SvTAINTED(*svp)) {
  76         TAINT;
  77         taint_proper("Insecure %s%s", "$ENV{IFS}");
  78     }
  79 }