Subversion Repositories DevTools

Rev

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

Rev 3921 Rev 3923
Line 116... Line 116...
116 
    #       Remove multiple '-' characters
 116 
    #       Remove multiple '-' characters
117 
    #       Lowercase all text
 117 
    #       Lowercase all text
118 
    #
 118 
    #
119 
    my $cvt = 0;
 119 
    my $cvt = 0;
120 
    $cvt = 1 if ( $build_name =~ s/^ERG/erg-/ );
 120 
    $cvt = 1 if ( $build_name =~ s/^ERG/erg-/ );
121 
    $cvt = 1 if ( $build_name =~ s/^VIX/vix-/ );
 121 
    $cvt = 2 if ( $build_name =~ s/^VIX/vix-/ );
122 
    $cvt = 1 if ( $build_name =~ s~\s~-~g );
 122 
    $cvt = 3 if ( $build_name =~ s~\s~-~g );
123 
    $cvt = 1 if ( $build_name =~ s~_~-~g );
 123 
    $cvt = 4 if ( $build_name =~ s~_~-~g );
124 
    $cvt = 1 if ( $build_name =~ s~-+~-~g );
 124 
    $cvt = 5 if ( $build_name =~ s~--+~-~g );
125 
    if ( $build_name =~ m/[A-Z]/ )
 125 
    if ( $build_name =~ m/[A-Z]/ )
126 
    {
 126 
    {
127 
        $cvt = 1;
 127 
        $cvt = 6;
128 
        $build_name = lc $build_name;
 128 
        $build_name = lc $build_name;
129 
    }
 129 
    }
130 
 
 130 
 
131 
    Warning ("Package Name converted to debian friendly form: $build_name")
 131 
    Warning ("Package Name converted to debian friendly form: $build_name")
132 
        if ( $cvt );
 132 
        if ( $cvt );