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 --- e-smith-ibays-2.4.0.old/root/etc/e-smith/db/accounts/migrate/20ibay-accounts 2003-06-12 09:48:32.000000000 -0700 +++ e-smith-ibays-2.4.0/root/etc/e-smith/db/accounts/migrate/20ibay-accounts 1969-12-31 16:00:00.000000000 -0800 @@ -1,31 +0,0 @@ -{ - foreach my $ibay ($DB->get_all_by_prop(type => 'ibay')) - { - my $usepw = $DB->get_prop_and_delete($ibay->key, 'UsePassword'); - next unless defined $usepw; - - # This is a version 3.x i-bay - # Migrate UsePassword, ReadAccess and WriteAccess properties to - # PublicAccess, Group, UserAccess properties - my $read_access = $DB->get_prop_and_delete($ibay->key, 'ReadAccess') || 'local'; - if ($read_access eq 'global') - { - $ibay->merge_props( - PublicAccess => ($usepw ? 'global-pw' : 'global'), - ); - } - else - { - $ibay->merge_props( - PublicAccess => ($usepw ? 'local-pw' : 'local'), - ); - } - - my $write_access = $DB->get_prop_and_delete($ibay->key, 'WriteAccess') || 'local'; - $ibay->merge_props( - Group => 'shared', - UserAccess => ($write_access eq "admin" ? - 'wr_admin_rd_group' : 'wr-group-rd-group'), - ); - } -}