summaryrefslogtreecommitdiff
path: root/Build/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq2
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq2')
-rwxr-xr-xBuild/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq268
1 files changed, 0 insertions, 68 deletions
diff --git a/Build/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq2 b/Build/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq2
deleted file mode 100755
index 9ee78ff73fe..00000000000
--- a/Build/source/utils/dialog/dialog-1.1-20110707/samples/copifuncs/copi.ifreq2
+++ /dev/null
@@ -1,68 +0,0 @@
-# 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;
-}