home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-base.tgz / perl-5.003-base.tar / fsf / perl / taint.c < prev    next >
C/C++ Source or Header  |  1995-01-17  |  1KB  |  72 lines
  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_not(s)
  12. char *s;
  13. {
  14.     if (euid != uid)
  15.         croak("No %s allowed while running setuid", s);
  16.     if (egid != gid)
  17.         croak("No %s allowed while running setgid", s);
  18. }
  19.  
  20. void
  21. taint_proper(f, s)
  22. char *f;
  23. char *s;
  24. {
  25.     if (tainting) {
  26.     DEBUG_u(fprintf(stderr,"%s %d %d %d\n",s,tainted,uid, euid));
  27.     if (tainted) {
  28.         char *ug = 0;
  29.         if (euid != uid)
  30.         ug = " while running setuid";
  31.         else if (egid != gid)
  32.         ug = " while running setgid";
  33.         else if (tainting)
  34.         ug = " while running with -T switch";
  35.         if (ug) {
  36.         if (!unsafe)
  37.             croak(f, s, ug);
  38.         else if (dowarn)
  39.             warn(f, s, ug);
  40.         }
  41.     }
  42.     }
  43. }
  44.  
  45. void
  46. taint_env()
  47. {
  48.     SV** svp;
  49.  
  50.     if (tainting) {
  51.     MAGIC *mg = 0;
  52.     svp = hv_fetch(GvHVn(envgv),"PATH",4,FALSE);
  53.     if (!svp || *svp == &sv_undef ||
  54.       ((mg = mg_find(*svp, 't')) && mg->mg_len & 1))
  55.     {
  56.         tainted = TRUE;
  57.         if (mg && MgTAINTEDDIR(mg))
  58.         taint_proper("Insecure directory in %s%s", "$ENV{PATH}");
  59.         else
  60.         taint_proper("Insecure %s%s", "$ENV{PATH}");
  61.     }
  62.     svp = hv_fetch(GvHVn(envgv),"IFS",3,FALSE);
  63.     if (svp && *svp != &sv_undef &&
  64.       (mg = mg_find(*svp, 't')) && mg->mg_len & 1)
  65.     {
  66.         tainted = TRUE;
  67.         taint_proper("Insecure %s%s", "$ENV{IFS}");
  68.     }
  69.     }
  70. }
  71.  
  72.