Subversion Repositories DevTools

Rev

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

Rev 325 Rev 331
Line 111... Line 111...
111 
#
 111 
#
112 
# Returns         :
 112 
# Returns         :
113 
#
 113 
#
114 
 
 114 
 
115 
my $result = GetOptions (
 115 
my $result = GetOptions (
116 
                "help:+"        => \$opt_help,              # flag, multiple use allowed
 116 
                "help:+"            => \$opt_help,              # flag, multiple use allowed
117 
                "manual:3"      => \$opt_help,              # flag, multiple use allowed
 117 
                "manual:3"          => \$opt_help,              # flag, multiple use allowed
118 
                "verbose:+"     => \$opt_verbose,           # flag
 118 
                "verbose:+"         => \$opt_verbose,           # flag
119 
                "sbom=s"        => \$opt_sbom_id,           # string
 119 
                "sbomid|sbom_id=s"  => \$opt_sbom_id,           # string
120 
                "rtag=s"        => \$opt_rtag_id,           # string
 120 
                "rtagid|rtag_id=s"  => \$opt_rtag_id,           # string
121 
                "rootpackage=s" => \$opt_rootpkg,           # String
 121 
                "rootpackage=s"     => \$opt_rootpkg,           # String
122 
                "ignore=s",     => sub{my ($a,$i) = @_; $ignore{$i} = 0 },
 122 
                "ignore=s",         => sub{my ($a,$i) = @_; $ignore{$i} = 0 },
123 
                "test!"         => \$opt_test,              #[no]flag
 123 
                "test!"             => \$opt_test,              #[no]flag
124 
                "patch!"        => \$opt_patch,             #[no]flag
 124 
                "patch!"            => \$opt_patch,             #[no]flag
125 
                "extract=s"     => \$opt_extract,           # Name of file
 125 
                "extract=s"         => \$opt_extract,           # Name of file
126 
                );
 126 
                );
127 
 
 127 
 
128 
#
 128 
#
129 
#   Process help and manual options
 129 
#   Process help and manual options
130 
#
 130 
#