/*----------------------------------------------------------------------* 
 *                                                                      * 
 * Description: Source du fichier exec. /equipe/sysadmin/bin/wtmpxcut   * 
 *              qui permet de reduire le fichier /var/adm/wtmpx en enle-* 
 *              vant toutes les entrees plus vieilles qu'une certaine   * 
 *              date specifiee en parametre. Si aucun parametre n'est   * 
 *              specifie, on utilise une valeur par defaut (DELAIS).    * 
 *                                                                      * 
 *----------------------------------------------------------------------*/ 
 
#include <stdio.h> 
#include <sys/types.h> 
#include <fcntl.h> 
#include <utmpx.h> 
#include <time.h> 
#include <errno.h> 
 
#define DELAIS  (time_t) (30)                           /* en jour */ 
 
int main(argc, argv) 
int argc; 
char **argv; 
{ 
  struct  utmpx wtmpx_rec; 
  int     old_fd, new_fd; 
  int     wtmpx_rec_sz = sizeof(wtmpx_rec); 
  time_t  periode, temps_limite; 
 
  if (argc > 1) 
      periode = (time_t) atoi(argv[1]); 
  else 
      periode = DELAIS; 
 
  /* 
  * Copie de /var/adm/wtmpx dans /tmp/wtmpx 
  */ 
  putenv("IFS=' \t\n'");                        /* Securite */ 
  putenv("PATH=/usr/bin");                      /* Securite */ 
  if (system("cp /var/adm/wtmpx /tmp/wtmpx") < 0) { 
    fprintf(stderr,"%s: Erreur en copiant wtmpx dans /tmp.\nBye.\n",argv[0]); 
    exit(1); 
  } /* if */ 
 
  /* 
   *  Calcule du temps limite en time_t   
   */ 
  temps_limite = time(NULL) - (periode * 24 * 3600); 
  fprintf(stdout, 
  "\n%s: la date limite est %s\n", argv[0], asctime(localtime(&temps_limite))); 
 
  /* 
   *  Ouvre le nouveau wtmp en ecriture 
   */ 
  if ((new_fd = open("/var/adm/wtmpx", O_WRONLY | O_TRUNC)) < 0) { 
    fprintf(stderr, "%s: Erreur %d d'ouverture de /var/adm/wtmpx.\nBye.\n", 
            argv[0], errno); 
    exit(1); 
  } /* if */ 
 
  /* 
   *  Ouvre la copie de wtmp en lecture 
   */ 
  if ((old_fd = open("/tmp/wtmpx", O_RDONLY)) < 0) { 
    fprintf(stderr, "%s: Erreur %d d'ouverture de /tmp/wtmpx.\nBye.\n", 
            argv[0], errno); 
    exit(1); 
  } /* if */ 
 
  /* 
   * En partant du debut du fichier, on compare les dates 
   * et si elles sont trop vieilles, on les oublies. 
   * Lorsqu'elles sont dans la periode, on les garde dans 
   * le fichier /var/adm/wtmpx. 
   */ 
  while (read(old_fd, &wtmpx_rec, wtmpx_rec_sz) == wtmpx_rec_sz) { 
    if (wtmpx_rec.ut_xtime >= temps_limite) { 
      do { 
        if (write(new_fd, &wtmpx_rec, wtmpx_rec_sz) != wtmpx_rec_sz) { 
          fprintf(stderr, "%s: Erreur %d d'ecriture du record.\nBye.",  
                  argv[0], errno); 
          exit(1); 
        } /* if */ 
      } while (read(old_fd, &wtmpx_rec, wtmpx_rec_sz) == wtmpx_rec_sz ); 
    } /* if */ 
  } /* while */ 
 
  exit(0);                                      /* Sortie elegante */ 
 
} /* main() */