- pw = getpwuid(getuid());
- if (!pw)
- usage("You don't exist. Go away!");
- realgecos = pw->pw_gecos;
- len = strlen(pw->pw_name);
- memcpy(realemail, pw->pw_name, len);
- realemail[len] = '@';
- gethostname(realemail+len+1, sizeof(realemail)-len-1);
- time(&now);
- realdate = ctime(&now);
-
- gecos = getenv("AUTHOR_NAME") ? : realgecos;
- email = getenv("AUTHOR_EMAIL") ? : realemail;
- date = getenv("AUTHOR_DATE") ? : realdate;
-
- remove_special(gecos); remove_special(realgecos);
- remove_special(email); remove_special(realemail);
- remove_special(date); remove_special(realdate);