Change default group from 1 (daemon) to something more sensible: 100
[mspang/plceo2.git] / mkaccounts.pl
1 #!/usr/bin/perl
2
3 use strict;
4
5 require Common;
6 require Settings;
7
8 # lock the new account file
9 my $status = &Common::LockFile($Settings::NewAccountsFile);
10 if(!$status) {
11         &Common::Log(
12                 10,
13                 "mkaccounts.pl",
14                 "file $Settings::NewAccountsFile",
15                 "cannot lock file");
16         exit 1;
17 }
18
19 # open it
20 if( ! open(NEW_ACCOUNTS, $Settings::NewAccountsFile) ) {
21         &Common::Log(
22                 10,
23                 "mkaccounts.pl",
24                 "file $Settings::NewAccountsFile",
25                 "cannot open file");
26         exit 1;
27 }
28
29 # read all the data
30 my @lines = <NEW_ACCOUNTS>;
31
32 # close the file
33 close NEW_ACCOUNTS;
34
35 # grab the current time and make a rename-suffix out of it
36 my ($x,$x,$x,$mday,$mon,$year,$x,$x,$x) = localtime(time);
37 $year += 1900;
38 $mon += 1;
39 $mday += 1;
40 my $suffix = sprintf "%d.%02d.%02d", $year, $mon, $mday, $$;
41
42 # rename the file to something new
43 system("mv -f $Settings::NewAccountsFile $Settings::NewAccountsFile.$suffix");
44
45 # unlock the file
46 &Common::UnlockFile($Settings::NewAccountsFile);
47
48 # for each line, add an account
49 my $line;
50 foreach $line (@lines) {
51         chomp $line;
52         # TODO parse line and create the account here
53         print "ACCOUNT: $line\n";
54 }
55
56 #all done