« Pausa riflessiva
Ciao Mary! »

Script Perl

Agosto 18th, 2007 by Omar

Per lavoro ho dovuto fare uno script in perl per lockare gli utenti che non si collegano su un server da piu' di 60 giorni ($maxdays). Questo script non fa altro che memorizzare in un array (@ll) l'output ripulito del comando `lastlog` il contenuto dell'array viene diviso per ottenere utente e data dell'ultimo login, la data viene rielaborata per avere un formato utile a fare la differenza con la data corrente e se il risultato è maggiore o uguale a 60 locka l'utente [system("usermod -L $user")]

Per fare la differenza fra le date ho utilizzato due metodi (due script che fanno la stessa cosa in modi diversi):

  1. Date::Calc qw(Delta_Days) => Download
  2. una sub con un algoritmo => Download

Questi scripts li reputo abbastanza inutili..ma sono stati commissionati per "salvaguardare la sicurezza" di un server esposto..bah..almeno ho imparato un po' di perl.. :D

Commenti, critiche e consigli sono ben accetti.. :-)

Technorati Tags: , , ,

   Post in Lavoro, Software, linux, perl, scripting   

2 Responses to “Script Perl”

Feed for this Entry Trackback Address
  1. 1 Gianluca

    “chage”, questo sconosciuto ;-)

    chage (1) - change user password expiry information

    (pacchetto shadow o shadow-utils o similia)

    Cheers,

    Ago 18th, 2007 at 20:12   

  2. 2 Omar

    E se non avessimo una scadenza della password??! :)

    Ago 18th, 2007 at 20:37   

Leave a Reply