| /dports/net-mgmt/monitoring-plugins/monitoring-plugins-2.3.1/plugins-scripts/ |
| H A D | check_file_age.pl | 35 my ($opt_c, $opt_f, $opt_w, $opt_C, $opt_W, $opt_h, $opt_V, $opt_i);
46 $opt_f = "";
53 "f=s" => \$opt_f, "file" => \$opt_f,
69 $opt_f = shift unless ($opt_f);
71 if (! $opt_f) {
77 unless (-e $opt_f) {
80 print "FILE_AGE $result: $opt_f doesn't exist, but ignore-missing was set\n";
84 print "FILE_AGE CRITICAL: File not found - $opt_f\n";
89 $st = File::stat::stat($opt_f);
133 print "FILE_AGE $result: $opt_f is $age seconds old and $size bytes | $perfdata\n";
|
| /dports/editors/vim/vim-8.2.3745/runtime/tools/ |
| H A D | efm_perl.pl | 67 use vars qw/$opt_c $opt_f $opt_h/; # needed for Getopt in combination with use strict 'vars'
75 if (defined $opt_f) {
77 open FILE, "> $opt_f" or do {
78 warn "Couldn't open $opt_f: $!. Using STDOUT instead.\n";
79 undef $opt_f;
84 my $handle = (defined $opt_f ? \*FILE : \*STDOUT);
108 if (defined $opt_f) {
123 unlink $opt_f unless $errors;
|
| /dports/net-mgmt/nagios-plugins/nagios-plugins-2.3.3/plugins-scripts/ |
| H A D | check_file_age.pl | 38 my ($opt_c, $opt_f, $opt_w, $opt_C, $opt_W, $opt_h, $opt_V, $opt_i);
51 $opt_f = "";
58 "f=s" => \$opt_f, "file" => \$opt_f,
74 $opt_f = shift unless ($opt_f);
76 if (! $opt_f) {
81 $opt_f = '"' . $opt_f . '"' if $opt_f =~ / /;
86 @filelist = glob($opt_f);
|
| /dports/devel/ncurses/ncurses-6.3/test/ |
| H A D | test_arrays.c | 57 static bool opt_f; variable
79 PLAIN(opt_T && opt_f, boolfnames); in dump_plain()
83 PLAIN(opt_T && opt_f, numfnames); in dump_plain()
87 PLAIN(opt_T && opt_f, strfnames); in dump_plain()
103 STRING(opt_f, "FName"); in dump_table()
112 STRING(opt_T && opt_f, boolfnames[r]); in dump_table()
122 STRING(opt_T && opt_f, numfnames[r]); in dump_table()
132 STRING(opt_T && opt_f, strfnames[r]); in dump_table()
179 opt_f = TRUE; in main()
198 if (!(opt_c || opt_f || opt_n)) { in main()
[all …]
|
| /dports/ftp/ftpmirror/ftpmirror-1.96/tools/ |
| H A D | pmirror | 32 use vars qw($opt_C $opt_d $opt_f $opt_l $opt_p $opt_v);
56 if ($opt_f) {
59 -f $opt_f or die("$opt_f: file not found\n");
60 open(FILE, $opt_f) or die("open($opt_f): $!\n");
|
| H A D | run.pl | 32 use vars qw($opt_d $opt_f $opt_l $opt_p $opt_v $todo $dir);
50 if ($opt_f) {
53 -f $opt_f or die("$opt_f: file not found\n");
54 open(FILE, $opt_f) or die("open($opt_f): $!\n");
|
| /dports/mail/p5-Mail-IMAPClient/Mail-IMAPClient-3.43/examples/ |
| H A D | build_ldif.pl | 55 $opt_f ||= "default folder";
72 $imap->select($opt_f); $imap->expunge;
74 my @msgs = $imap->search("NOT SUBJECT",qq("buid_ldif.pl $opt_f Output"));
147 Subject => "LDIF file from $opt_f",
149 Data =>"Attached is the LDIF file of addresses from folder $opt_f."
152 Filename => "$opt_f.ldif",
156 $imap->append($opt_f, $msg->as_string) unless $opt_n;
|
| H A D | build_dist.pl | 51 $opt_f ||= "default folder";
68 $imap->select($opt_f);
70 my @msgs = $imap->search("NOT SUBJECT",qq("buid_dist.pl $opt_f Output"));
94 Subject: build_dist.pl $opt_f Output
107 $imap->append($opt_f,$append) or warn "Couldn't append the message.";
|
| /dports/mail/imapsync/imapsync-1d08afa/W/Mail-IMAPClient-3.42/examples/ |
| H A D | build_ldif.pl | 55 $opt_f ||= "default folder";
72 $imap->select($opt_f); $imap->expunge;
74 my @msgs = $imap->search("NOT SUBJECT",qq("buid_ldif.pl $opt_f Output"));
147 Subject => "LDIF file from $opt_f",
149 Data =>"Attached is the LDIF file of addresses from folder $opt_f."
152 Filename => "$opt_f.ldif",
156 $imap->append($opt_f, $msg->as_string) unless $opt_n;
|
| H A D | build_dist.pl | 51 $opt_f ||= "default folder";
68 $imap->select($opt_f);
70 my @msgs = $imap->search("NOT SUBJECT",qq("buid_dist.pl $opt_f Output"));
94 Subject: build_dist.pl $opt_f Output
107 $imap->append($opt_f,$append) or warn "Couldn't append the message.";
|
| /dports/databases/WWWdb/WWWdb-0.8.3/lib/WWWdb/Db/ |
| H A D | ConvertVersion.pl | 36 use vars qw($opt_b $opt_d $opt_f $opt_h $opt_t
109 if ($opt_f eq $_);
123 if($opt_f eq "0.0.7")
128 $opt_f = "0.8.0";
133 if($opt_f eq "0.8.0")
138 $opt_f = "0.8.1";
|
| /dports/converters/convmv/convmv-2.05/ |
| H A D | convmv | 340 'f=s'=>\$opt_f,
400 die "No charset conversion when unescaping!\n" if ($opt_f or $opt_t);
408 $opt_f="ascii" unless ($opt_f);
410 if ($opt_t or $opt_f or $opt_upper or $opt_lower or $opt_unescape) {
416 if (not ($opt_f and $opt_f=Encode::resolve_alias($opt_f))) {
430 $from_is_utf8 = lc($opt_f) =~ m/^utf-?8/;
636 from_to($newname, $opt_f, $opt_t, Encode::FB_QUIET) or $lets_die = 1;
795 elsif (! from_to($new,$opt_f, "utf8", Encode::FB_QUIET) ) {
799 …print $outerr "this file was not validly encoded in $opt_f: \"". &$from_print($dir."/".$oldfile) .…
1036 if (! from_to($name, $opt_f, "utf8", Encode::FB_QUIET)) { # should also leave NFD as it is ...
[all …]
|
| /dports/dns/p5-Net-DNS/Net-DNS-1.32/demo/ |
| H A D | axfr | 6 use vars qw($opt_f $opt_q $opt_s $opt_D);
58 if (-e $zonefile && !defined $opt_f) {
89 $opt_f = 1;
93 $opt_f = 1;
96 if (defined $opt_f) {
|
| /dports/science/libxc/libxc-5.0.0/testsuite/ |
| H A D | xc-reference.pl | 13 $opt_f || usage();
18 $opt_f =~ s/(.*)/\L$1\E/;
26 $constants{"$opt_f"} || die "Functional '$opt_f' not found";
29 my $data_file = "$top_srcdir/testsuite/df_repo/$opt_f.data";
49 $cmd1 = "$exec_cmd ".$constants{"$opt_f"};
|
| /dports/net/p5-srv2pf/srv2pf-20211010/scripts/ |
| H A D | srv2pf | 56 our $opt_f; # Save to file
282 if ($opt_f) {
284 unless $opt_f =~ m/^($RE{path}{pfcs})$/o;
285 $opt_f = $1;
286 $opt_f .= "/$opt_t"
287 if -d $opt_f;
290 srv2pf($opt_t, $opt_f, @ARGV);
|
| /dports/devel/p5-libxml-enno/libxml-enno-1.02/bin/ |
| H A D | xql.pl | 93 $opt_f = extrapolate ($opt_f) if defined ($opt_f);
95 if ($opt_f)
101 while ($opt_f =~ /((%)|%%)/g)
310 if ($opt_f)
320 printf ($opt_f, @par);
|
| /dports/textproc/p5-XML-XQL/XML-XQL-0.68/bin/ |
| H A D | xql.pl | 93 $opt_f = extrapolate ($opt_f) if defined ($opt_f);
95 if ($opt_f)
101 while ($opt_f =~ /((%)|%%)/g)
310 if ($opt_f)
320 printf ($opt_f, @par);
|
| /dports/comms/mgetty+sendfax/mgetty-1.1.37/frontends/mail2fax06/ |
| H A D | mail2fax.pl | 37 use vars qw /$opt_f $opt_h $opt_d $opt_v/;
39 $opt_f = ''; # sender's e-mail address (envelope-from)
74 &logmsg( "--- from=$opt_f, to=$fax_to" );
142 $cmd .= " -f $opt_f" if ( $opt_f ne '' );
|
| /dports/mail/spamassassin-devel/spamassassin-1ea352210/tools/ |
| H A D | mboxsplit | 25 our ($opt_h, $opt_f, $opt_i, $opt_n);
55 if (! $opt_f) {
56 $opt_f = "%d";
73 open(OUTFILE, '>' . sprintf($opt_f, $file_no));
|
| /dports/net-mgmt/mk-livestatus/mk-livestatus-1.2.8p25/api/perl/examples/ |
| H A D | dump.pl | 64 my ($opt_h, $opt_v, $opt_f);
84 if(!defined $opt_f) {
90 my $nl = Monitoring::Livestatus->new( peer => $opt_f, verbose => $opt_v );
103 $opt_f = $file;
|
| H A D | test.pl | 66 my ($opt_h, $opt_v, @opt_f);
86 if(scalar @opt_f == 0) {
94 peer => \@opt_f,
142 push @opt_f, $file;
|
| /dports/net-mgmt/p5-Monitoring-Livestatus/Monitoring-Livestatus-0.84/examples/ |
| H A D | dump.pl | 64 my ($opt_h, $opt_v, $opt_f);
84 if(!defined $opt_f) {
90 my $nl = Monitoring::Livestatus->new( peer => $opt_f, verbose => $opt_v );
103 $opt_f = $file;
|
| /dports/sysutils/webmin/webmin-1.981/mon/ |
| H A D | moncmd.pl | 55 if ($opt_f) {
56 if ($opt_f eq "-") {
60 open (IN, $opt_f) ||
166 if ($opt_f or !@ARGV) {
168 $cmd = (<$H>||$cmd1) if ($opt_f || !@ARGV);
|
| H A D | moncmd.diff | 13 if ($opt_f) {
14 if ($opt_f eq "-") {
18 open (IN, $opt_f) ||
76 if ($opt_f or !@ARGV) {
77 - $cmd = <$H> if ($opt_f || !@ARGV);
78 + #$cmd = <$H> if ($opt_f || !@ARGV);
79 + $cmd = (<$H>||$cmd1) if ($opt_f || !@ARGV);
|
| /dports/net-mgmt/pandorafms_server/pandorafms_server-6.0SP2/util/ |
| H A D | pandora_csvbridge.pl | 70 my ($opt_v, $opt_h, $opt_d, $opt_c, $opt_f, $opt_s, $opt_R, $opt_A, $opt_O, $opt_Y, $opt_T, $opt_X,…
92 "f=s" => \$opt_f,
119 if ( !defined($opt_f)){
131 open (FIDATA, "< $opt_f");
171 print "Generating data from CSV file $opt_f, with CSV character $opt_c Agent name $opt_A Timestamp …
|