Subversion Repositories DevTools

Rev

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

Rev 4456 Rev 4457
Line 972... Line 972...
972 
 
 972 
 
973 
    #
 973 
    #
974 
    #   Get list of things
 974 
    #   Get list of things
975 
    #
 975 
    #
976 
    my %config;
 976 
    my %config;
- 
 
 977 
    if ($conf->{'allArchive'} )
- 
 
 978 
    {
- 
 
 979 
        $config{allArchive} = 1
- 
 
 980 
    }
- 
 
 981 
    elsif ($conf->{'allProjects'} )
- 
 
 982 
    {
- 
 
 983 
        $config{allProjects} = 1;
- 
 
 984 
    }
- 
 
 985 
    else
- 
 
 986 
    {
977 
    %{$config{projects}} = map { $_ => 1 } split (/[,\s]+/, $conf->{'project'} || '');
 987 
        %{$config{projects}} = map { $_ => 1 } split (/[,\s]+/, $conf->{'project'} || '');
978 
    %{$config{releases}} = map { $_ => 1 } getReleaseList();
 988 
        %{$config{releases}} = map { $_ => 1 } getReleaseList();
- 
 
 989 
    }
979 
 
 990 
 
980 
    #
 991 
    #
981 
    #   Save data
 992 
    #   Save data
982 
    #
 993 
    #
983 
    my $dump =  Data::Dumper->new([\%config], [qw(*config)]);
 994 
    my $dump =  Data::Dumper->new([\%config], [qw(*config)]);