1 |
wellsi |
1.1 |
diff -ruN e-smith-ibays-2.4.0.old/root/etc/e-smith/db/accounts/migrate/20ibay-accounts e-smith-ibays-2.4.0/root/etc/e-smith/db/accounts/migrate/20ibay-accounts |
2 |
|
|
--- e-smith-ibays-2.4.0.old/root/etc/e-smith/db/accounts/migrate/20ibay-accounts 2003-06-12 09:48:32.000000000 -0700 |
3 |
|
|
+++ e-smith-ibays-2.4.0/root/etc/e-smith/db/accounts/migrate/20ibay-accounts 1969-12-31 16:00:00.000000000 -0800 |
4 |
|
|
@@ -1,31 +0,0 @@ |
5 |
|
|
-{ |
6 |
|
|
- foreach my $ibay ($DB->get_all_by_prop(type => 'ibay')) |
7 |
|
|
- { |
8 |
|
|
- my $usepw = $DB->get_prop_and_delete($ibay->key, 'UsePassword'); |
9 |
|
|
- next unless defined $usepw; |
10 |
|
|
- |
11 |
|
|
- # This is a version 3.x i-bay |
12 |
|
|
- # Migrate UsePassword, ReadAccess and WriteAccess properties to |
13 |
|
|
- # PublicAccess, Group, UserAccess properties |
14 |
|
|
- my $read_access = $DB->get_prop_and_delete($ibay->key, 'ReadAccess') || 'local'; |
15 |
|
|
- if ($read_access eq 'global') |
16 |
|
|
- { |
17 |
|
|
- $ibay->merge_props( |
18 |
|
|
- PublicAccess => ($usepw ? 'global-pw' : 'global'), |
19 |
|
|
- ); |
20 |
|
|
- } |
21 |
|
|
- else |
22 |
|
|
- { |
23 |
|
|
- $ibay->merge_props( |
24 |
|
|
- PublicAccess => ($usepw ? 'local-pw' : 'local'), |
25 |
|
|
- ); |
26 |
|
|
- } |
27 |
|
|
- |
28 |
|
|
- my $write_access = $DB->get_prop_and_delete($ibay->key, 'WriteAccess') || 'local'; |
29 |
|
|
- $ibay->merge_props( |
30 |
|
|
- Group => 'shared', |
31 |
|
|
- UserAccess => ($write_access eq "admin" ? |
32 |
|
|
- 'wr_admin_rd_group' : 'wr-group-rd-group'), |
33 |
|
|
- ); |
34 |
|
|
- } |
35 |
|
|
-} |
36 |
|
|
|