File Manager

003 File Manager

Current Path: /usr/src/contrib/sendmail/contrib

usr / src / contrib / sendmail / contrib /

📁 ..
📄 AuthRealm.p0(1.51 KB)
📄 README(458 B)
📄 bitdomain.c(8.67 KB)
📄 bounce-resender.pl(7.69 KB)
📄 bsdi.mc(8.71 KB)
📄 buildvirtuser(6.28 KB)
📄 cidrexpand(5.08 KB)
📄 dnsblaccess.m4(3.98 KB)
📄 domainmap.m4(4.25 KB)
📄 doublebounce.pl(6.15 KB)
📄 etrn.0(1.79 KB)
📄 etrn.pl(5.96 KB)
📄 expn.pl(36.02 KB)
📄 link_hash.sh(556 B)
📄 mail.local.linux(11.51 KB)
📄 mailprio(19.02 KB)
📄 mh.patch(4.85 KB)
📄 mmuegel(67.22 KB)
📄 movemail.conf(745 B)
📄 movemail.pl(2.4 KB)
📄 passwd-to-alias.pl(867 B)
📄 qtool.8(5.79 KB)
📄 qtool.pl(24.08 KB)
📄 re-mqueue.pl(9.15 KB)
📄 rmail.oldsys.patch(3.18 KB)
📄 smcontrol.pl(7.4 KB)
📄 socketmapClient.pl(1.48 KB)
📄 socketmapServer.pl(2.18 KB)

Editing: socketmapClient.pl

#!/usr/bin/perl -w
#
# Contributed by Bastiaan Bakker for SOCKETMAP
# $Id: socketmapClient.pl,v 1.1 2003-05-21 15:36:33 ca Exp $

use strict;
use IO::Socket;

die "usage: $0 <connection> <mapname> <key> [<key2> ...]" if (@ARGV < 3);

my $connection = shift @ARGV;
my $mapname = shift @ARGV;

my $sock;

if ($connection =~ /tcp:(.+):([0-9]*)/) {
    $sock = new IO::Socket::INET (
				  PeerAddr => $1,
				  PeerPort => $2,
				  Proto => 'tcp',
				  );
} elsif ($connection =~ /((unix)|(local)):(.+)/) {
    $sock = new IO::Socket::UNIX (
				  Type => SOCK_STREAM,
				  Peer => $4
				  );
} else {
    die "unrecognized connection specification $connection";
}

die "Could not create socket: $!\n" unless $sock;

while(my $key = shift @ARGV) {
    my $request = "$mapname $key";
    netstringWrite($sock, $request);
    $sock->flush();
    my $response = netstringRead($sock);

print "$key => $response\n";
}

$sock->close();

sub netstringWrite {
    my $sock = shift;
    my $data = shift;

print $sock length($data).':'.$data.',';
}

sub netstringRead {
    my $sock = shift;
    my $saveSeparator = $/;
    $/ = ':';
    my $dataLength = <$sock>;
    die "cannot read netstring length" unless defined($dataLength);
    chomp $dataLength;
    my $data;
    if ($sock->read($data, $dataLength) == $dataLength) {
	($sock->getc() eq ',') or die "data misses closing ,";
    } else {
	die "received only ".length($data)." of $dataLength bytes";
    }
    
    $/ = $saveSeparator;
    return $data;
}

003 File Manager

Editing: socketmapClient.pl

Upload File

Create Folder