Changeset 71

Timestamp:

11/21/08 19:35:31 (3 years ago)

Author:

bruno

Message:

Enforce that expiration date is after current date

File:

• devel/sshgw/bin/createsshuser (modified) (3 diffs)

devel/sshgw/bin/createsshuser

@@ -4 +4 @@
 use strict;
 use SSHGWUser;
+use Time::localtime qw(localtime);
+use Date::Manip;
 
 my ($username, $groups, $uid, $expire, $fullname, $email, $sshkey, $emailcc) ;
@@ -96 +98 @@
         die "Expiration date format should be YYYY-MM-DD\n" unless $expire =~ /^\d{4}-\d{2}-\d{2}$/ ;
     }
+    my @date = pb_get_date();
+    my $date = strftime("%Y-%m-%d", @date);
+    my $flag = Date_Cmp($date,$expire);
+    if ($flag >= 0) {
+        # expire is earlier
+        die "Expiration date ($expire) should be after current date ($date)\n";
+    }
 
     if (defined $email) {
@@ -113 +122 @@
     return ($username, $fullname, $groups, $expire, $email, $sshkey, $emailcc);
 }
+
+sub pb_get_date {
+    return(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
+}