Subversion Repositories DevTools

Rev

Rev 5359 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5359 Rev 5855
Line 741... Line 741...
741 
                RmDirTree($vdirName);
 741 
                RmDirTree($vdirName);
742 
                System('--NoExit', '--NoShell', catfile($scriptDir, 'lxr.dropdb.sh'), genDatabaseName($rdirEntry));
 742 
                System('--NoExit', '--NoShell', catfile($scriptDir, 'lxr.dropdb.sh'), genDatabaseName($rdirEntry));
743 
                if ( defined $Config->{glimpseDir} )
 743 
                if ( defined $Config->{glimpseDir} )
744 
                {
 744 
                {
745 
                    my $glimpseData = catdir( $Config->{glimpseDir}, $rdirEntry );
 745 
                    my $glimpseData = catdir( $Config->{glimpseDir}, $rdirEntry );
- 
 
 746 
                    Message("Delete Glimpse Subdir: $glimpseData");
746 
                    RmDirTree($glimpseData);
 747 
                    RmDirTree($glimpseData);
747 
                }
 748 
                }
748 
            }
 749 
            }
749 
            else
 750 
            else
750 
            {
 751 
            {
Line 780... Line 781...
780 
                    Message("Delete Version: $rdirEntry, $entry->{name}, $entry->{ctime}");
 781 
                    Message("Delete Version: $rdirEntry, $entry->{name}, $entry->{ctime}");
781 
                    RmDirTree($entry->{path});
 782 
                    RmDirTree($entry->{path});
782 
                    if ( defined $Config->{glimpseDir} )
 783 
                    if ( defined $Config->{glimpseDir} )
783 
                    {
 784 
                    {
784 
                        my $glimpseEntry = catdir( $Config->{glimpseDir}, $rdirEntry, $entry->{name} );
 785 
                        my $glimpseEntry = catdir( $Config->{glimpseDir}, $rdirEntry, $entry->{name} );
- 
 
 786 
                        Message("Delete Glimpse Data: $glimpseEntry");
785 
                        RmDirTree($glimpseEntry);
 787 
                        RmDirTree($glimpseEntry);
- 
 
 788 
                        Warning("Glimpse Data Dir still present: $glimpseEntry") if ( -d $glimpseEntry);
786 
                    }
 789 
                    }
787 
                }
 790 
                }
788 
                else
 791 
                else
789 
                {
 792 
                {
790 
                    #   Note which versions we have
 793 
                    #   Note which versions we have