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