# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1340594969 -32400
# Node ID 595ff0134cd9118cbae6653ca8fc37b7fafc3d24
# Parent  d5650f7361d9cc500d7172f9f91f8935361c2d56
Skip creation of user which is already registered.

diff -r d5650f7361d9 -r 595ff0134cd9 after5.rb
--- a/after5.rb	Mon Jun 25 12:28:50 2012 +0900
+++ b/after5.rb	Mon Jun 25 12:29:29 2012 +0900
@@ -4,7 +4,7 @@
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $
-# Last modified Mon Jun 25 12:28:01 2012 on firestorm
+# Last modified Mon Jun 25 12:28:29 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -3757,6 +3757,10 @@
     prohibitviahttp()
     pm = open_pm()
     exit 1 unless pm
+    if pm.userexist?(user)
+      printf("User %s already exists.  Skip.\n", user)
+      exit 1
+    end
     email = nil
     if /(.*@.*)=(.*@.*)/ =~ user
       user, email = $1, $2