Subversion Repositories DevTools

Rev

Rev 255 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 255 Rev 261
Line 215... Line 215...
215 
 
 215 
 
216 
    #
 216 
    #
217 
    #   Create a config spec
 217 
    #   Create a config spec
218 
    #
 218 
    #
219 
    Verbose ("Create tmp file: $config");
 219 
    Verbose ("Create tmp file: $config");
220 
    open (CF, ">$config" ) || Error ("Cannot create temp config spec file");
 220 
    FileCreate ( $config,
221 
    print CF "element * CHECKEDOUT\n";
 221 
                 "element * CHECKEDOUT",
222 
    print CF "element .../lost+found -none\n";
 222 
                 "element .../lost+found -none",
223 
    print CF "element * $label\n";
 223 
                 "element * $label",
224 
    close CF;
 224 
                );
225 
 
 225 
 
226 
    my $tag = "${USER}_${MACHINENAME}_${opt_tag}_${label}";
 226 
    my $tag = "${USER}_${MACHINENAME}_${opt_tag}_${label}";
227 
    push @view_tags, $tag;
 227 
    push @view_tags, $tag;
228 
 
 228 
 
229 
    ClearCmd ( "rmview -tag $tag" );
 229 
    ClearCmd ( "rmview -tag $tag" );