Subversion Repositories DevTools

Rev

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

Rev 2429 Rev 2439
Line 179... Line 179...
179
    'reports'             => ',utf8,',
179
    'reports'             => ',utf8,',
180
    'cda_imports'         => ',utf8,',
180
    'cda_imports'         => ',utf8,',
181
    'cdxforms'            => ',utf8,',
181
    'cdxforms'            => ',utf8,',
182
    'db_cda'              => ',utf8,',
182
    'db_cda'              => ',utf8,',
183
    'CommandServer'       => ',IgnoreMakeProject,',
183
    'CommandServer'       => ',IgnoreMakeProject,',
-
 
184
    'TDSExporterControl'  => ',IgnoreMakeProject,',
-
 
185
    'cdagui'              => ',IgnoreMakeProject,',
184
 
186
 
185
 
187
 
186
    # Need to be handled in a special manner
188
    # Need to be handled in a special manner
187
    # Not done by this utility
189
    # Not done by this utility
188
    #
190
    #
Line 1622... Line 1624...
1622
            $timestamp,
1624
            $timestamp,
1623
            $duration,
1625
            $duration,
1624
            $data{errStr} || ''
1626
            $data{errStr} || ''
1625
            );
1627
            );
1626
    logToFile( $cwd . '/importsummary.txt', ";$line;");
1628
    logToFile( $cwd . '/importsummary.txt', ";$line;");
-
 
1629
 
1627
    #
1630
    #
1628
    #   Sava data
1631
    #   Sava data
1629
    #
1632
    #
1630
    $data{errFlags} = $flags;
1633
    $data{errFlags} = $flags;
1631
    $data{duration} = $duration;
1634
    $data{duration} = $duration;
Line 3553... Line 3556...
3553
#
3556
#
3554
sub createImages
3557
sub createImages
3555
{
3558
{
3556
 
3559
 
3557
    my $filebase = "${packageNames}";
3560
    my $filebase = "${packageNames}";
3558
    open (FH, '>', "$filebase.dot" ) or die "Cannot open output";
3561
    open (FH, '>', $cwd . "/$filebase.dot" ) or die "Cannot open output";
3559
    print FH "digraph \"${packageNames}\" {\n";
3562
    print FH "digraph \"${packageNames}\" {\n";
3560
    #print FH "rankdir=LR;\n";
3563
    #print FH "rankdir=LR;\n";
3561
    print FH "node[fontsize=16];\n";
3564
    print FH "node[fontsize=16];\n";
3562
    print FH "node[target=_graphviz];\n";
3565
    print FH "node[target=_graphviz];\n";
3563
#    print FH "subgraph cluster_A {\n";
3566
#    print FH "subgraph cluster_A {\n";