Revision 3110,
1.6 KB
checked in by iwaim, 13 years ago
(diff) |
生成される設定ファイルの書式を変更
|
Rev | Line | |
---|
[745] | 1 | package VineLinux::VSS::Init; |
---|
| 2 | |
---|
| 3 | use strict; |
---|
| 4 | use warnings; |
---|
| 5 | |
---|
| 6 | use FileHandle; |
---|
| 7 | use Email::Valid::Loose; |
---|
| 8 | |
---|
| 9 | our $config; |
---|
| 10 | |
---|
| 11 | sub run { |
---|
| 12 | my $class = shift; |
---|
| 13 | $config = shift; |
---|
| 14 | |
---|
| 15 | if (-e $config) { |
---|
| 16 | print "Stop. $config is exist.\n"; |
---|
| 17 | exit 1; |
---|
| 18 | } |
---|
| 19 | |
---|
| 20 | $class->set; |
---|
| 21 | } |
---|
| 22 | |
---|
| 23 | sub set { |
---|
| 24 | my $class = shift; |
---|
| 25 | |
---|
| 26 | my %data; |
---|
| 27 | my $stdin; |
---|
| 28 | |
---|
| 29 | print 'User ID?: '; |
---|
| 30 | chomp($stdin = <STDIN>); |
---|
| 31 | $data{'packager_name'} = $class->_inputdata_check($stdin,'id'); |
---|
| 32 | print 'User name?: '; |
---|
| 33 | chomp($stdin = <STDIN>); |
---|
| 34 | $data{'packager_fullname'} = $class->_inputdata_check($stdin,'name'); |
---|
| 35 | print 'User email address?: '; |
---|
| 36 | chomp($stdin = <STDIN>); |
---|
| 37 | $data{'packager_email'} = $class->_inputdata_check($stdin,'email'); |
---|
| 38 | |
---|
| 39 | $class->create(\%data); |
---|
| 40 | } |
---|
| 41 | |
---|
| 42 | sub _inputdata_check { |
---|
| 43 | my $class = shift; |
---|
| 44 | my $data = shift; |
---|
| 45 | my $type = shift; |
---|
| 46 | |
---|
| 47 | if ($type eq 'id') { |
---|
| 48 | if ($data =~ m/^\w+$/) { |
---|
| 49 | return $data; |
---|
| 50 | } else { |
---|
| 51 | exit 1; |
---|
| 52 | } |
---|
| 53 | } elsif ($type eq 'name') { |
---|
[3109] | 54 | if ($data =~ m/^\s?[\w\s\,\.]+(\s|\w)$/) { |
---|
[745] | 55 | return $data; |
---|
| 56 | } else { |
---|
[3109] | 57 | print "ERROR: invalid value!\n"; |
---|
[745] | 58 | exit 1; |
---|
| 59 | } |
---|
| 60 | } elsif ($type eq 'email') { |
---|
| 61 | if (Email::Valid::Loose->address($data)) { |
---|
[3109] | 62 | return $data; |
---|
[745] | 63 | } else { |
---|
[3109] | 64 | print "ERROR: invalid email address!\n"; |
---|
[745] | 65 | exit 1; |
---|
| 66 | } |
---|
| 67 | } else { |
---|
| 68 | exit 1; |
---|
| 69 | } |
---|
| 70 | } |
---|
| 71 | |
---|
| 72 | sub create { |
---|
| 73 | my $class = shift; |
---|
| 74 | my $data = shift; |
---|
| 75 | |
---|
| 76 | my $fh = FileHandle->new; |
---|
| 77 | $fh->open($config,'w'); |
---|
[3110] | 78 | $fh->print("packager_name: $data->{packager_name}\n"); |
---|
| 79 | $fh->print("packager_fullname: $data->{packager_fullname}\n"); |
---|
| 80 | $fh->print("packager_email: $data->{packager_email}\n"); |
---|
[745] | 81 | print "create: $config\n"; |
---|
| 82 | } |
---|
| 83 | |
---|
| 84 | 1; |
---|
| 85 | |
---|
| 86 | |
---|
Note: See
TracBrowser
for help on using the repository browser.