diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-14 14:09:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-14 14:09:34 +0000 |
| commit | 872d03d52aa0dfd2af3675af67374cd390dba7ce (patch) | |
| tree | b7883e5dc4f430310f1f788a28fac41603fac849 /perl.c | |
| parent | 0325b4c4b7ee03ae5602904f2a8f8c7254d59b1b (diff) | |
| download | perl-872d03d52aa0dfd2af3675af67374cd390dba7ce.tar.gz | |
For now remove the mail code.
p4raw-id: //depot/perl@6618
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -2867,18 +2867,6 @@ S_validate_suid(pTHX_ char *validarg, char *scriptname, int fdscript) if (tmpstatbuf.st_dev != PL_statbuf.st_dev || tmpstatbuf.st_ino != PL_statbuf.st_ino) { (void)PerlIO_close(PL_rsfp); -#ifdef MAIL_CAN_BE_USED_SAFELY /* No, it can't. As of Aug 05 200, there's bugtraq exploit. */ - if (PL_rsfp = PerlProc_popen("/bin/mail root","w")) { /* heh, heh */ - PerlIO_printf(PL_rsfp, -"User %"Uid_t_f" tried to run dev %ld ino %ld in place of dev %ld ino %ld!\n\ -(Filename of set-id script was %s, uid %"Uid_t_f" gid %"Gid_t_f".)\n\nSincerely,\nperl\n", - PL_uid,(long)tmpstatbuf.st_dev, (long)tmpstatbuf.st_ino, - (long)PL_statbuf.st_dev, (long)PL_statbuf.st_ino, - CopFILE(PL_curcop), - PL_statbuf.st_uid, PL_statbuf.st_gid); - (void)PerlProc_pclose(PL_rsfp); - } -#endif Perl_croak(aTHX_ "Permission denied\n"); } if ( |