Subversion Repositories DevTools

Rev

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

Rev 1348 Rev 1356
Line 478... Line 478...
478
                      'replace' => $opt_replace,
478
                      'replace' => $opt_replace,
479
                      );
479
                      );
480
    #
480
    #
481
    # Report RmPath as using a pegged version of a new package is a bit silly
481
    # Report RmPath as using a pegged version of a new package is a bit silly
482
    #
482
    #
483
    Message ("Repository Ref: " . $uref->RmPath);
483
#    Message ("Repository Ref: " . $uref->RmPath);
484
    Message ("Vcs Tag       : " . $uref->SvnTag);
484
#    Message ("Vcs Tag       : " . $uref->SvnTag);
485
    if ( $uref->{REVNO} )
485
    if ( $uref->{REVNO} )
486
    {
486
    {
487
        $uref->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
487
        $uref->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
488
        $uref->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
488
        $uref->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
489
    }
489
    }
Line 637... Line 637...
637
                            'target' => $svn->Full,
637
                            'target' => $svn->Full,
638
                            'require' => 1,
638
                            'require' => 1,
639
                            );
639
                            );
640
 
640
 
641
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
641
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
642
        $svn->SvnCo ( $url_co, $opt_workdir, $opt_printfiles ? '--Print' : '--NoPrint' );
642
        $svn->SvnCo ( $url_co, $opt_workdir, 'print' => $opt_printfiles );
643
        Error ("Cannot locate the created Workspace")
643
        Error ("Cannot locate the created Workspace")
644
            unless ( -d $opt_workdir );
644
            unless ( -d $opt_workdir );
645
    }
645
    }
646
    else
646
    else
647
    {
647
    {
Line 1292... Line 1292...
1292
    -man                    - Full documentation [-help=3]
1292
    -man                    - Full documentation [-help=3]
1293
    -verbose[=n]            - Verbose command operation
1293
    -verbose[=n]            - Verbose command operation
1294
 
1294
 
1295
 Command Options
1295
 Command Options
1296
    -help[=n]               - Provide command specific help
1296
    -help[=n]               - Provide command specific help
1297
    -import=nnn             - Import directory tree
-
 
1298
    -label=nnn              - Label it (trunk import only)
-
 
1299
    -new                    - Package must not exist
1297
    -new                    - Package must not exist
1300
    -replace                - Replace any existing versions
1298
    -replace                - Replace any existing versions
-
 
1299
    -import=nnn             - Import directory tree
-
 
1300
    -label=nnn              - Label imported package
1301
    -trunk                  - Import to trunk
1301
    -trunk                  - Import to trunk (default)
1302
    -tags=nnn               - Import to tags
1302
    -tags=nnn               - Import to tags
1303
    -branch=nnn             - Import to branches
1303
    -branch=nnn             - Import to branches
1304
 
1304
 
1305
=head2 ARGUMENTS
1305
=head2 ARGUMENTS
1306
 
1306
 
Line 1328... Line 1328...
1328
Print a help message and exit. The level of help may be either 1, 2 or 3.
1328
Print a help message and exit. The level of help may be either 1, 2 or 3.
1329
 
1329
 
1330
This option may be specified multiple times to increment the help level, or
1330
This option may be specified multiple times to increment the help level, or
1331
the help level may be directly specified as a number.
1331
the help level may be directly specified as a number.
1332
 
1332
 
1333
=item -import=nnn
-
 
1334
 
-
 
1335
This option specifies the path of a subdirectory tree to import into the newly
-
 
1336
created package. In not provided, then only a package skeleton will be created.
-
 
1337
 
-
 
1338
=item -label=nnn
-
 
1339
 
-
 
1340
This option specifies a label to place the imported source, if the source is
-
 
1341
being imported to the 'trunk' of the package.
-
 
1342
 
-
 
1343
=item -new
1333
=item -new
1344
 
1334
 
1345
This option specifies that the named package MUST not exist at all.
1335
This option specifies that the named package MUST not exist at all.
1346
 
1336
 
1347
=item -replace
1337
=item -replace
1348
 
1338
 
1349
This option allows the program to replace any existing versions of the
1339
This option allows the program to replace any existing versions of the
1350
imported source. It will allow the deletion of any existing trunk, tags or
1340
imported source. It will allow the deletion of any existing trunk, tags or
1351
branches.
1341
branches.
1352
 
1342
 
-
 
1343
=item -import=nnn
-
 
1344
 
-
 
1345
This option specifies the path of a subdirectory tree to import into the newly
-
 
1346
created package. In not provided, then only a package skeleton will be created.
-
 
1347
 
-
 
1348
=item -label=nnn
-
 
1349
 
-
 
1350
This option specifies a label to place the imported source.
-
 
1351
 
1353
=item -trunk
1352
=item -trunk
1354
 
1353
 
1355
This option specifies that imported source will be placed on the trunk of the
1354
This option specifies that imported source will be placed on the trunk of the
1356
package. This is the default mode of import.
1355
package. This is the default mode of import.
1357
 
1356