summaryrefslogtreecommitdiff
path: root/Build/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq2
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq2')
-rwxr-xr-xBuild/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq268
1 files changed, 68 insertions, 0 deletions
diff --git a/Build/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq2 b/Build/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq2
new file mode 100755
index 00000000000..9ee78ff73fe
--- /dev/null
+++ b/Build/source/utils/dialog/dialog-1.1-20080819/samples/copifuncs/copi.ifreq2
@@ -0,0 +1,68 @@
+# this is the base directory, where the req-files are stored and the
+# default outbound
+$flo_path = "/var/spool/ifmail";
+$outbound = "/outb"; # don't be confused, it means "/var/spool/ifmail/outb"
+
+# end of configuration #############################################
+
+# main()
+#
+if ((@ARGV < 1) || @ARGV > 2 || $ARGV[0] eq "-?") {
+ &usage;
+} elsif ($ARGV[1] ne "") {
+ $node = $ARGV[1];
+}
+$file = $ARGV[0];
+
+if (! ($node =~ /\d+:\d+\/\d+/)) {
+ die "Wrong address: $node!!!";
+}
+
+($zone, $netnode) = split (/:/, $node);
+$reqfile = sprintf("%04x%04x", split(/\//, $netnode));
+
+if ($reqfile eq "00000000") {
+ print ("can't resolve the fido address \"$node\"\n");
+ &usage;
+} else {
+ if ( $zone == 2 ) {
+ $reqfile = $flo_path . $outbound . "/" . $reqfile . ".req";
+ } elsif ( $zone < 7 ) {
+ $reqfile = $flo_path . $outbound . ".00$zone/" . $reqfile . ".req";
+ } else {
+ $outbound = "";
+ open (CONFIG, "< $config") || die "can't open $config";
+ while ($_ = <CONFIG>) {
+ if ( /^address.*$zone:.*\@(\w*)/ ) { $outbound = $1; }
+ }
+ if ( $outbound eq "" ) {
+ die "No Zone $zone found in $config";
+ }
+ $reqfile = $flo_path . "/$outbound/" . $reqfile . ".req";
+ }
+
+ # seperate the file names of the first argument
+ @files = split (/\s+/, $ARGV[0]);
+
+ # open the flofile for appending
+ open(FLOFILE, ">>" . $reqfile) || die "can't open $reqfile";
+ while (@files) {
+ print (FLOFILE shift(@files), "\n");
+ }
+ close(FLOFILE);
+
+ print ("--- fido request $ver ---------------------------\n");
+ print ("requesting \"$file\" from fido-node $node\n");
+ print ("--- executing ifstat .. ------------------------\n");
+ system("ifstat");
+}
+
+#
+# subroutine "usage"
+#
+sub usage {
+ printf ("--- fido request %s -------------\n", $ver);
+ printf ("usage: ifreq <file> [<3-d address>]\n");
+ printf ("e.g. : ifreq FILES 2:2410/305\n");
+ exit 1;
+}