Commit 581e51b8 authored by Lorena's avatar Lorena
Browse files

newlist.pl: add stuve-admins as default owner

parent e1c32329
......@@ -8,6 +8,8 @@ use warnings;
use Text::Template;
my $default_owner = 'stuve-admins@fau.de';
my $listname = $ARGV[0];
if (not defined ($listname)) {
......@@ -22,11 +24,11 @@ my $tmpl = Text::Template->new(TYPE => "FILE", SOURCE => 'newlist.tmpl');
open(my $TARGET, ">$target") or die $!;
my $owner;
print "owner > ";
print "owner (default: \"$default_owner\") > ";
chomp($owner = <STDIN>);
$owner =~ s/ ?[,;\/] ?/','/g;
$owner or $owner = $default_owner;
my $description;
print "description > ";
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment