Lines Matching refs:Options
15 my %Options;
17 my $ok = getopts('f:r:w:h:o:s:?v', \%Options);
18 if ( (!$ok) || ($Options{'?'}) ) {
112 if ($Options{'f'}) {
113 $new{'name'} = $Options{'f'};
115 if ($Options{'r'}) {
116 $new{'office'} = $Options{'r'};
118 if ($Options{'w'}) {
119 $new{'wphone'} = $Options{'w'};
121 if ($Options{'h'}) {
122 $new{'hphone'} = $Options{'h'};
124 if ($Options{'o'}) {
125 $new{'other'} = $Options{'o'};
127 if ($Options{'s'}) {
128 $new{'shell'} = $Options{'s'};
130 if ( keys(%Options) < 1 or keys(%Options) == 1 and $Options{'v'} ) {
235 if ($Options{'v'}) {