Changeset 2201
- Timestamp:
- 04/24/08 20:25:08 (4 months ago)
- Files:
-
- alternc-mailman/trunk/src/mailman.create (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
alternc-mailman/trunk/src/mailman.create
r2195 r2201 27 27 die "List name is incorrect."; 28 28 } 29 $listname=$1;30 $listname=~ s/@/-/g ;31 29 32 30 if (!($email =~ /^([a-z0-9_\+\.-]+\@[a-z0-9\.-]+)$/)) {
