Rev 11 | Rev 17 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 11 | Rev 13 | ||
|---|---|---|---|
| Line 82... | Line 82... | ||
| 82 | "Version $version\n\n", |
82 | "Version $version\n\n", |
| 83 | "Usage: vgwhois {options} [query]\n", |
83 | "Usage: vgwhois {options} [query]\n", |
| 84 | " Try find information about the query (might be multiple words).\n", |
84 | " Try find information about the query (might be multiple words).\n", |
| 85 | " If no query is given, use the first line from stdin\n\n", |
85 | " If no query is given, use the first line from stdin\n\n", |
| 86 | " Options:\n", |
86 | " Options:\n", |
| - | 87 | " -C dir Setting an alternate configuration directory\n", |
|
| - | 88 | " default: $VGWhoIs::Core::confdir\n", |
|
| 87 | " -h host Selecting a fixed whois server for this query\n", |
89 | " -h host Selecting a fixed whois server for this query\n", |
| 88 | " -m method:host mirror Defining a mirror for a given method and host.\n", |
90 | " -m method:host mirror Defining a mirror for a given method and host.\n", |
| 89 | " -L Use lynx -source instead of LWP::Simple\n", |
91 | " -L Use lynx -source instead of LWP::Simple\n", |
| 90 | " -e Do not protect eMail addresses\n", |
92 | " -e Do not protect eMail addresses\n", |
| 91 | " -c Do not try to convert to UTF-8. Output server's stream.\n", |
93 | " -c Do not try to convert to UTF-8. Output server's stream.\n", |
| 92 | " -v Output version of pattern table(s)\n", |
94 | " -v Output version of pattern table(s)\n", |
| 93 | " -?, --help Printing this text\n\n"; |
95 | " -?, --help Printing this text\n\n"; |
| 94 | exit; |
96 | exit; |
| - | 97 | } elsif ($ARGV[0] eq '-C') { |
|
| - | 98 | shift; |
|
| - | 99 | $VGWhoIs::Core::confdir = shift; |
|
| 95 | } elsif ($ARGV[0] eq '-c') { |
100 | } elsif ($ARGV[0] eq '-c') { |
| 96 | shift; |
101 | shift; |
| 97 | $rawoutput = 1; |
102 | $rawoutput = 1; |
| 98 | $VGWhoIs::Core::useLWP = 0; # TODO: geht irgendwie nicht anders |
103 | $VGWhoIs::Core::useLWP = 0; # TODO: geht irgendwie nicht anders |
| 99 | } elsif ($ARGV[0] eq '-h') { |
104 | } elsif ($ARGV[0] eq '-h') { |