Changeset 2201
- Timestamp:
- 04/24/08 20:25:08 (5 years ago)
- File:
-
- 1 edited
-
alternc-mailman/trunk/src/mailman.create (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
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\.-]+)$/)) {
Note: See TracChangeset
for help on using the changeset viewer.
