1: #!/usr/bin/perl
2: #
3: # Move Construction Spaces from /home/$user/public_html
4: # to /home/httpd/html/priv/$domain/$user and vice versa
5: #
6:
7: use strict;
8: use lib '/home/httpd/lib/perl/';
9: use LONCAPA::Configuration;
10: use LONCAPA qw(:DEFAULT :match);
11: use Apache::lonlocal;
12: use File::Copy;
13: use GDBM_File;
14:
15:
16: my ($parameter)=(@ARGV);
17: my $lang = &Apache::lonlocal::choose_language();
18: &Apache::lonlocal::get_language_handle(undef,$lang);
19: print"\n";
20:
21: # Abort if more than one argument.
22: if (@ARGV > 1) {
23: print &mt('usage: [_1]','move_construction_spaces.pl [move|undo]')."\n\n".
24: &mt('You should enter either no arguments, or just one argument -- either move or undo.')."\n".
25: &mt("move - to move authors' Construction Spaces from: /home to /home/httpd/html/priv/domain")."\n".
26: &mt('undo - to reverse those changes and move Construction Spaces back from: /home/httpd/html/priv/domain to /home')."\n".
27: &mt('no argument to do a dry run of the move option, without actually moving anything.')."\n";
28: exit;
29: }
30:
31: print "\nMoving authors' Construction Spaces\n".
32: "-----------------------------\n\n".
33: "If run without an argument, the script will report what it would do\n".
34: "when moving Construction Spaces from /home to /home/httpd/html/priv/.\n\n".
35: "If there are ambiguities (i.e., the same username belongs to two domains)\n".
36: "this will be flagged, and you will be able to decide how to proceed.\n";
37:
38: my $perlvar=&LONCAPA::Configuration::read_conf();
39: my ($lonuserdir,$londocroot);
40: if (ref($perlvar) eq 'HASH') {
41: $lonuserdir = $perlvar->{'lonUsersDir'};
42: $londocroot = $perlvar->{'lonDocRoot'};
43: }
44: undef($perlvar);
45:
46: my $parameter=$ARGV[0];
47: $parameter =~ s/^\s+//;
48: $parameter =~ s/\s+$//;
49: my (undef,undef,$uid,$gid) = getpwnam('www');
50: my ($action) = ($parameter=~/^(move|undo)$/);
51: if ($action eq '') {
52: $action = 'dryrun';
53: }
54:
55: if ($action eq 'dryrun') {
56: print "\nRunning in exploratory mode.\n".
57: "Run with parameter 'move' to actually move the author spaces, i.e. \n".
58: "move_construction_spaces.pl move\n\n".
59: "Run with parameter 'undo' to move author spaces back to /home, i.e. \n".
60: "move_construction_spaces.pl undo\n\n";
61: } else {
62: print "\n *** Running in a mode where changes will be made.\n";
63: if ($action eq 'move') {
64: print "\nMode is $action -- directories will be moved to $londocroot/priv\n";
65: } else {
66: print "\nMode is $action -- directories will be moved back to /home\n";
67: }
68: print &mt('Continue? ~[y/N~] ');
69:
70: if (!&get_user_selection()) {
71: exit;
72: }
73: }
74:
75: # Authors hosted on this server
76: my %allauthors;
77: my %pubusers;
78:
79: if ($action eq 'move') {
80: if (-d "$londocroot/priv") {
81: print "New Construction Spaces directory: '$londocroot/priv' already exists.\n";
82: } else {
83: print "\nCreating new directory: '$londocroot/priv' for Construction Spaces.\n";
84: if (mkdir("$londocroot/priv",0755)) {
85: if (chown($uid,$gid,"$londocroot/priv")) {
86: print "Creation Successful\n";
87: } else {
88: print "Failed to changer ownership to $uid:$gid\n";
89: exit;
90: }
91: } else {
92: print "Failed to create directory\n";
93: exit;
94: }
95: }
96: }
97:
98: my @machinedoms;
99: if ($lonuserdir) {
100: my $dir;
101: if (opendir($dir,$lonuserdir)) {
102: my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));
103: foreach my $item (@contents) {
104: if (-d "$lonuserdir/$item") {
105: if ($item =~ /^$match_domain$/) {
106: my $domain = $item;
107: unless (grep(/^\Q$domain\E$/,@machinedoms)) {
108: push(@machinedoms,$domain);
109: }
110: my $dom_target="/home/httpd/html/priv/$domain";
111: if ($action eq 'move') {
112: if (!-e $dom_target) {
113: if (mkdir($dom_target,0755)) {
114: chown($uid,$gid,$dom_target);
115: print "Made $dom_target\n";
116: } else {
117: print "Failed to make $dom_target. Stopping\n";
118: exit;
119: }
120: } elsif ($action eq 'dryrun') {
121: print "Would make $dom_target\n";
122: }
123: }
124: my %authors=();
125: my $fname = "$lonuserdir/$domain/nohist_domainroles.db";
126: my $dbref;
127: if (-e $fname) {
128: $dbref=&LONCAPA::locking_hash_tie($fname,&GDBM_READER());
129: }
130: if (!$dbref) {
131: print "Unable to tie to $fname";
132: } elsif (ref($dbref) eq 'HASH') {
133: foreach my $key (keys(%{$dbref})) {
134: $key = &unescape($key);
135: if ($key =~ /^au\:($match_username)\Q:$domain\E/) {
136: push(@{$allauthors{$1}},$domain);
137: }
138: }
139: &LONCAPA::locking_hash_untie($dbref);
140: }
141: }
142: }
143: }
144: closedir($dir);
145: } else {
146: print "Could not open $lonuserdir. Stopping\n";
147: exit;
148: }
149: }
150:
151: if ($londocroot ne '') {
152: if (-d "$londocroot/res") {
153: my ($dir,$domdir);
154: if (opendir($dir,"$londocroot/res")) {
155: my @contents = (grep(!/^\.{1,2}$/,readdir($dir)));
156: foreach my $dom (@contents) {
157: if ((grep(/^\Q$dom\E/,@machinedoms)) && (-d "$londocroot/res/$dom")) {
158: if (opendir($domdir,"$londocroot/res/$dom")) {
159: my @unames = (grep(!/^\.{1,2}$/,readdir($domdir)));
160: foreach my $uname (@unames) {
161: if ($uname =~ /^$match_username$/) {
162: push(@{$pubusers{$uname}},$dom);
163: }
164: }
165: }
166: }
167: }
168: }
169: }
170: }
171:
172: if ($action eq 'undo') {
173: my %privspaces;
174: if ($londocroot ne '') {
175: if (-d "$londocroot/priv") {
176: my ($dir,$domdir);
177: if (opendir($dir,"$londocroot/priv")) {
178: my @contents = (grep(!/^\.{1,2}/,readdir($dir)));
179: foreach my $dom (@contents) {
180: next if (!-d "$londocroot/priv/$dom");
181: if (opendir($domdir,"$londocroot/priv/$dom")) {
182: my @unames = (grep(!/^\.{1,2}$/,readdir($domdir)));
183: foreach my $uname (@unames) {
184: if ($uname =~ /^$match_username$/) {
185: push(@{$privspaces{$uname}},$dom);
186: }
187: }
188: }
189: }
190: }
191: }
192: }
193: foreach my $uname (keys(%privspaces)) {
194: if (ref($privspaces{$uname}) eq 'ARRAY') {
195: if (@{$privspaces{$uname}} > 1) {
196: print "Same username used for authors in multiple domains\n".
197: "This configuration is not supported where Construction Spaces are located in /home.\n".
198: "You will be able to move files for just one of the domains, choose which one: \n".
199: "The domains to choose from are: ".join(', ',@{$privspaces{$uname}})."\n".
200: "Enter choice: ";
201: my $choice=<STDIN>;
202: chomp($choice);
203: if (grep(/^\Q$choice\E$/,@{$privspaces{$uname}})) {
204: &move_priv_to_home($londocroot,$uname,$choice);
205: } else {
206: print "Invalid choice of domain: $choice\n".
207: "Skipping this user: $uname\n";
208: next;
209: }
210: } elsif (@{$privspaces{$uname}} == 1) {
211: &move_priv_to_home($londocroot,$uname,$privspaces{$uname}[0]);
212: } else {
213: print "User $uname found in $londocroot/priv was not within a domain\n";
214: }
215: }
216: }
217: print "Done\n";
218: exit;
219: }
220:
221: # Iterate over directories in /home
222: if (opendir(my $dir,"/home")) {
223: foreach my $item (grep(!/^\.{1,2}$/,readdir($dir))) {
224: next if ($item eq 'www');
225: if (-d "/home/$item") {
226: # Is there a public_html-directory?
227: if (-d "/home/$item/public_html") {
228: my $author = $item;
229: my ($domain,$skipped);
230: if (ref($pubusers{$author}) eq 'ARRAY') {
231: ($domain,$skipped) = &choose_domain($action,$author,$pubusers{$author});
232: }
233: if (($domain eq '') && (!$skipped)) {
234: if (ref($allauthors{$author}) eq 'ARRAY') {
235: ($domain,$skipped) = &choose_domain($action,$author,$allauthors{$author});
236: }
237: }
238: if ($domain) {
239: my $source_path="/home/$author/public_html";
240: my $target_path="$londocroot/priv/$domain/$author";
241: if ($action eq 'move') {
242: move($source_path,$target_path);
243: chown($uid,$gid,$target_path);
244: chmod($target_path,0755);
245: print "Moved $source_path to $target_path\n";
246: } elsif ($action eq 'dryrun') {
247: print "Would move $source_path to $target_path\n";
248: }
249: } elsif (!$skipped) {
250: print "*** WARNING: $author has no domain.\n".
251: "Enter 1: do nothing, continue\n".
252: "Enter 2: stop\n".
253: "or enter domain for user to be placed into\n".
254: "Your input: ";
255: my $choice=<STDIN>;
256: chomp($choice);
257: next if ($choice ==1);
258: if ($choice == 2) { print "Stopped.\n"; exit; }
259: if ($choice =~ /^$match_domain$/) {
260: my $dompath="$londocroot/priv/$choice";
261: my $newpath="$londocroot/priv/$choice/$author";
262: unless (-e $dompath) {
263: print "*** WARNING: $dompath does not yet exist.\n";
264: }
265: if ($action eq 'move') {
266: print "Making author $author in domain $choice\n";
267: unless (-e $dompath) {
268: print "Making $dompath\n";
269: mkdir($dompath,0755);
270: chown($uid,$gid,$dompath);
271: }
272: print "Making $newpath\n";
273: mkdir($newpath,0755);
274: chown($uid,$gid,$newpath);
275: } elsif ($action eq 'dryrun') {
276: print "Would make author $author in domain $choice\n";
277: unless (-e $dompath) {
278: print "Would make $dompath\n";
279: }
280: print "Would make $newpath\n";
281: }
282: }
283: }
284: }
285: }
286: }
287: }
288: print "\nDone.\n";
289:
290: sub choose_domain {
291: my ($action,$author,$domarrayref) = @_;
292: my ($domain,$skipped);
293: if (ref($domarrayref) eq 'ARRAY') {
294: if (@{$domarrayref} > 1) {
295: print "*** ERROR: $author found in multiple domains\n".
296: "Enter a number to choose what action to take\n";
297: my $num = 1;
298: for (my $i=0; $i<@{$domarrayref}; $i++) {
299: print "To use: $domarrayref->[$i] enter $num\n";
300: $num ++;
301: }
302: print "To skip this user enter: $num\n".
303: "Your choice: ";
304: my $choice=<STDIN>;
305: chomp($choice);
306: if ($choice =~ /^\d+$/) {
307: if (($choice == $num) || ($choice > $num)) {
308: $skipped = 1;
309: } elsif (($choice < $num) && ($choice > 0)) {
310: $domain = $domarrayref->[$choice-1];
311: } else {
312: print "Invalid choice\n";
313: $skipped = 1;
314: }
315: } else {
316: print "Invalid choice\n";
317: $skipped = 1;
318: }
319: } elsif (@{$domarrayref} == 1) {
320: $domain = $domarrayref->[0];
321: if ($action eq 'dryrun') {
322: print "Would use domain: $domain for author: $author\n";
323: }
324: }
325: }
326: return ($domain,$skipped);
327: }
328:
329: sub move_priv_to_home {
330: my ($londocroot,$uname,$domain) = @_;
331: if ($uname =~ /^$match_username$/ && $domain =~ /^$match_domain$/) {
332: my $source_path="$londocroot/priv/$domain/$uname";
333: my $target_path="/home/$uname/public_html";
334: if (!-e "/home/$uname") {
335: if (mkdir("/home/$uname",0755)) {
336: chown($uid,$gid,"/home/$uname");
337: } else {
338: print "Failed to create directory /home/$uname -- not moving $source_path\n";
339: }
340: }
341: if (!-e $target_path) {
342: move($source_path,$target_path);
343: chown($uid,$gid,$target_path);
344: chmod($target_path,0755);
345: print "Moved $source_path to $target_path\n";
346: } else {
347: print "Directory $target_path already exists -- not moving $source_path\n";
348: }
349: }
350: return;
351: }
352:
353: sub get_user_selection {
354: my ($defaultrun) = @_;
355: my $do_action = 0;
356: my $choice = <STDIN>;
357: chomp($choice);
358: $choice =~ s/(^\s+|\s+$)//g;
359: my $yes = &mt('y');
360: if ($defaultrun) {
361: if (($choice eq '') || ($choice =~ /^\Q$yes\E/i)) {
362: $do_action = 1;
363: }
364: } else {
365: if ($choice =~ /^\Q$yes\E/i) {
366: $do_action = 1;
367: }
368: }
369: return $do_action;
370: }
371:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to move_construction_spaces.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools