Compare commits
No commits in common. 'master' and 'ldap_speedup' have entirely different histories.
master
...
ldap_speed
44 changed files with 92 additions and 1042 deletions
@ -1,3 +0,0 @@ |
||||
the .tito/packages directory contains metadata files |
||||
named after their packages. Each file has the latest tagged |
||||
version and the project's relative directory. |
||||
@ -1 +0,0 @@ |
||||
0.2.70-1 ./ |
||||
@ -1 +0,0 @@ |
||||
../../tito_libs/releasers.conf |
||||
@ -1,6 +0,0 @@ |
||||
[buildconfig] |
||||
builder = tito.builder.Builder |
||||
tagger = tito.tagger.VersionTagger |
||||
changelog_do_not_remove_cherrypick = 0 |
||||
changelog_format = %s (%ae) |
||||
lib_dir = ../tito_libs |
||||
@ -1,4 +0,0 @@ |
||||
#!/bin/bash |
||||
|
||||
/usr/bin/yum --downloadonly --skip-broken -y update > /dev/null 2>&1 |
||||
exit 0 |
||||
@ -1,57 +0,0 @@ |
||||
#!/usr/bin/perl -w |
||||
|
||||
#---------------------------------------------------------------------- |
||||
# Copyright (C) 2012 Firewall Services |
||||
# daniel@firewall-services.com |
||||
# |
||||
# This program is free software; you can redistribute it and/or modify |
||||
# it under the terms of the GNU General Public License as published by |
||||
# the Free Software Foundation; either version 2 of the License, or |
||||
# (at your option) any later version. |
||||
# |
||||
# This program is distributed in the hope that it will be useful, |
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||||
# GNU General Public License for more details. |
||||
# |
||||
# You should have received a copy of the GNU General Public License |
||||
# along with this program; if not, write to the Free Software |
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
||||
#---------------------------------------------------------------------- |
||||
|
||||
use esmith::AccountsDB; |
||||
use esmith::ConfigDB; |
||||
use File::Find; |
||||
use File::stat; |
||||
|
||||
my $c = esmith::ConfigDB->open_ro || die "Error opening ConfigDB\n"; |
||||
my $a = esmith::AccountsDB->open_ro || die "Error opening AccountsDB\n"; |
||||
my $smb = $c->get('smb') || die "Can't find the smb service in the ConfigDB\n"; |
||||
my $recycle = $smb->prop('RecycleBin') || 'disabled'; |
||||
our $retention = $smb->prop('RecycleBinRetention') || 'unlimited'; |
||||
$retention = 'unlimited' unless ($retention =~ m/^\d+$/); |
||||
|
||||
exit(0) if (($recycle ne 'enabled') || ($retention eq 'unlimited')); |
||||
|
||||
# Convert retention in seconds |
||||
$retention = 60*60*24*$retention; |
||||
|
||||
foreach my $user ($a->get_all_by_prop(type=>'user')){ |
||||
my $key = $user->key; |
||||
# Skip the user if RecycleBin doesn't exists |
||||
next unless (-d "/home/e-smith/files/users/$key/home/Recycle Bin"); |
||||
finddepth(\&remove, "/home/e-smith/files/users/$key/home/Recycle Bin/"); |
||||
} |
||||
|
||||
sub remove{ |
||||
# Remove files with last modification older than $retention |
||||
if ( -f ){ |
||||
my $mtime = stat($_)->mtime; |
||||
(time() - $mtime > $retention) && unlink($_); |
||||
} |
||||
# Remove empty directories |
||||
elsif ( -d ){ |
||||
(scalar <"$_/*">) || rmdir("$_"); |
||||
} |
||||
} |
||||
|
||||
@ -1 +0,0 @@ |
||||
8192 |
||||
@ -1 +0,0 @@ |
||||
disabled |
||||
@ -1 +0,0 @@ |
||||
service |
||||
@ -1 +0,0 @@ |
||||
50 |
||||
@ -1 +0,0 @@ |
||||
50 |
||||
@ -1 +0,0 @@ |
||||
15 |
||||
@ -1 +0,0 @@ |
||||
50 |
||||
@ -0,0 +1,2 @@ |
||||
local5.=notice -/var/log/smb_audit.log |
||||
local5.*;local5.!=notice -{ "${messages}" } |
||||
@ -1 +0,0 @@ |
||||
PERMS=0755 |
||||
@ -1 +1,3 @@ |
||||
#!/bin/sh |
||||
exec qmail-notify -r -m -f /var/qmail/control/queuenotifymsg |
||||
|
||||
|
||||
@ -1,7 +0,0 @@ |
||||
<Location /server-status> |
||||
SetHandler server-status |
||||
Order deny,allow |
||||
deny from all |
||||
allow from 127.0.0.1 |
||||
</Location> |
||||
ExtendedStatus On |
||||
@ -1,16 +0,0 @@ |
||||
{ |
||||
if (($spamassassin{UseBayes} || '0') =~ m/^1|on|yes|enabled$/ && ($spamassassin{BayesAutoLearn} || 'no') =~ m/^1|on|yes|enabled$/){ |
||||
my $ham_thres = $spamassassin{BayesHamThreshold} || '-1.0'; |
||||
my $spam_thres = $spamassassin{BayesSpamThreshold} || '6'; |
||||
$OUT .=<<"_EOF"; |
||||
bayes_auto_learn 1 |
||||
bayes_auto_learn_threshold_nonspam $ham_thres |
||||
bayes_auto_learn_threshold_spam $spam_thres |
||||
_EOF |
||||
} |
||||
else{ |
||||
$OUT .=<<"_EOF"; |
||||
bayes_auto_learn 0 |
||||
_EOF |
||||
} |
||||
} |
||||
@ -1,83 +0,0 @@ |
||||
##################################################################################### |
||||
##### FRENCH SPECIFIC SPAMASSASSIN RULES. |
||||
##### USE AND REDISTRIBUTE WITH THIS NOTE AT YOUR OWN RISK AND PLEASURE. |
||||
##### AUTHOR: John GALLET |
||||
##### Version: 2008-JUNE-21 |
||||
##### Latest: http://www.saphirtech.fr/ |
||||
##### Status: It Works For Me (tm) |
||||
##################################################################################### |
||||
# Spam is legal in France ! |
||||
body FR_SPAMISLEGAL /\b(Conform.+ment|En vertu).\{0,5\}(article.\{0,4\}34.\{0,4\})?la loi\b/i |
||||
describe FR_SPAMISLEGAL French: pretends spam is (l)awful. |
||||
lang fr describe FR_SPAMISLEGAL Invoque la loi informatique et libertes. |
||||
score FR_SPAMISLEGAL 1.0 |
||||
|
||||
body FR_SPAMISLEGAL_2 /\bdroit d.acc.+s.\{1,3\}(de modification)?.\{0,5\}de rectification\b/i |
||||
describe FR_SPAMISLEGAL_2 French: pretends spam is (l)awful. |
||||
lang fr describe FR_SPAMISLEGAL_2 Invoque le droit de rectification cnil. |
||||
score FR_SPAMISLEGAL_2 1.0 |
||||
|
||||
##### |
||||
# yeah, sure. |
||||
body FR_NOTSPAM /\b(ceci|ce).\{1,9\} n.est pas.\{1,5\}spam\b/i |
||||
describe FR_NOTSPAM French: claims not to be spam. |
||||
lang fr describe FR_NOTSPAM Affirme ne pas etre du spam. |
||||
score FR_NOTSPAM 2.5 |
||||
|
||||
##### |
||||
## I can pay my taxes |
||||
body FR_PAYLESSTAXES /\b(paye|calcul|simul|r.+dui|investi).\{1,7\}(moins|vo|ses).\{0,5\}imp.+t(s)?\b/i |
||||
describe FR_PAYLESSTAXES French: Pay less taxes |
||||
lang fr describe FR_PAYLESSTAXES Simulateurs et reductions d'impots. |
||||
score FR_PAYLESSTAXES 2.0 |
||||
|
||||
body FR_REALESTATE_INVEST /\b(loi)? (de.robien|girardin).\{1,15\}(neuf|recentr.+|ancien|IR|IS|imp.+t(s)?|industriel(le)?)\b/i |
||||
describe FR_REALESTATE_INVEST French: Invest in real-estate with tax-reductions |
||||
lang fr describe FR_REALESTATE_INVEST Reduction impots immobilier. |
||||
score FR_REALESTATE_INVEST 2.5 |
||||
|
||||
##### |
||||
# I won at the casino |
||||
body FR_ONLINEGAMBLING /\b(casino(s)?|jeu(x)?|joueur(s)?) (en ligne|de grattage)\b/i |
||||
describe FR_ONLINEGAMBLING French: Online gambling |
||||
lang fr describe FR_ONLINEGAMBLING Jeux en ligne. |
||||
score FR_ONLINEGAMBLING 2.0 |
||||
|
||||
##### |
||||
# Baby, did you forget to take your meds ? |
||||
body FR_ONLINEMEDS /\bpharmacie(s)? (en ligne|internet)\b/i |
||||
describe FR_ONLINEMEDS French: Online meds ordering |
||||
lang fr describe FR_ONLINEMEDS Achat de medicaments en ligne. |
||||
score FR_ONLINEMEDS 2.5 |
||||
|
||||
###### |
||||
# Tell me why |
||||
body FR_REASON_SUBSCRIBE /\bVous recevez ce(t|tte)? (message|mail|m.+l|lettre|news.+|information) (car|parce que)\b/i |
||||
describe FR_REASON_SUBSCRIBE French: you subscribed to my spam. |
||||
lang fr describe FR_REASON_SUBSCRIBE Indique pourquoi vous recevez le courrier. |
||||
score FR_REASON_SUBSCRIBE 0.8 |
||||
|
||||
##### |
||||
# How to unsubscribe |
||||
body FR_HOWTOUNSUBSCRIBE /\b(souhaitez|d.+sirez|pour).\{1,10\}(plus.\{1,\}recevoir|d.+sincrire|d.+sinscription|d.+sabonner).\{0,10\}(information|email|mail|mailing|newsletter|lettre|liste|message|offre|promotion|programme)(s)?\b/i |
||||
describe FR_HOWTOUNSUBSCRIBE French: how to unsubscribe |
||||
lang fr describe FR_HOWTOUNSUBSCRIBE Indique comment se desabonner. |
||||
score FR_HOWTOUNSUBSCRIBE 0.8 |
||||
|
||||
#### |
||||
# Various "CRM" (Could Remove Me) |
||||
##### |
||||
header FR_MAILER_1 X-Mailer =~ /(delosmail|cabestan|ems|mp6|wamailer|eMailink|Accucast|Benchmail|MailChimp)/i |
||||
describe FR_MAILER_1 French spammy X-Mailer |
||||
lang fr describe FR_MAILER_1 X-Mailer couramment employe pour des spams en francais. |
||||
score FR_MAILER_1 1.0 |
||||
|
||||
header FR_MAILER_2 X-EMV-CampagneId =~ /.+/ |
||||
describe FR_MAILER_2 French spammy mailer header |
||||
lang fr describe FR_MAILER_2 X-Mailer couramment employe pour des spams en francais. |
||||
score FR_MAILER_2 2.0 |
||||
|
||||
##################################################################################### |
||||
##### END FRENCH SPECIFIC SPAMASSASSIN RULES. |
||||
##################################################################################### |
||||
|
||||
@ -1,129 +0,0 @@ |
||||
# Check someblacklists |
||||
|
||||
header RCVD_IN_GBUDB eval:check_rbl('gbudb', 'truncate.gbudb.net.', '127.0.0.2') |
||||
describe RCVD_IN_GBUDB Listed in truncate.gbudb.net |
||||
tflags RCVD_IN_GBUDB net |
||||
score RCVD_IN_GBUDB 1.0 |
||||
|
||||
header RCVD_IN_IMP_SPAMLIST eval:check_rbl('spamrbl-lastexternal','spamrbl.imp.ch.','127.0.1.5') |
||||
describe RCVD_IN_IMP_SPAMLIST Listed in spamrbl.imp.ch |
||||
tflags RCVD_IN_IMP_SPAMLIST net |
||||
score RCVD_IN_IMP_SPAMLIST 1.0 |
||||
|
||||
header RCVD_IN_INPS eval:check_rbl('inps-de-lastexternal','dnsbl.inps.de.') |
||||
describe RCVD_IN_INPS Received via a relay in inps.de DNSBL |
||||
tflags RCVD_IN_INPS net |
||||
score RCVD_IN_INPS 1.0 |
||||
|
||||
header RCVD_IN_JMF_BL eval:check_rbl_sub('JMF-lastexternal','hostkarma.junkemailfilter.com','127.0.0.2') |
||||
describe RCVD_IN_JMF_BL Sender listed in JMF-BLACK |
||||
tflags RCVD_IN_JMF_BL net |
||||
score RCVD_IN_JMF_BL 1.0 |
||||
|
||||
header RCVD_IN_NIX_SPAM eval:check_rbl('nix-spam-lastexternal','ix.dnsbl.manitu.net.') |
||||
describe RCVD_IN_NIX_SPAM Listed in NIX-SPAM DNSBL (heise.de) |
||||
tflags RCVD_IN_NIX_SPAM net |
||||
score RCVD_IN_NIX_SPAM 1.0 |
||||
|
||||
header RCVD_IN_SORBS eval:check_rbl('sorbscombined','dnsbl.sorbs.net.') |
||||
describe RCVD_IN_SORBS Sender listed at http://www.sorbs.net |
||||
tflags RCVD_IN_SORBS net |
||||
score RCVD_IN_SORBS 1.0 |
||||
|
||||
header RCVD_IN_SEM_BLACK eval:check_rbl('semblack-lastexternal','bl.spameatingmonkey.net') |
||||
tflags RCVD_IN_SEM_BLACK net |
||||
describe RCVD_IN_SEM_BLACK Received from an IP listed by SEM-BLACK |
||||
score RCVD_IN_SEM_BLACK 1.0 |
||||
|
||||
header RCVD_IN_SEMNETBLACK eval:check_rbl('semnetblack-lastexternal', 'netbl.spameatingmonkey.net') |
||||
tflags RCVD_IN_SEMNETBLACK net |
||||
describe RCVD_IN_SEMNETBLACK Received from an IP listed by SEM-NETBLACK |
||||
score RCVD_IN_SEMNETBLACK 1.0 |
||||
|
||||
urirhssub SEM_URIRED urired.spameatingmonkey.net. A 2 |
||||
body SEM_URIRED eval:check_uridnsbl('SEM_URIRED') |
||||
describe SEM_URIRED Contains a URI listed by SEM-URIRED |
||||
tflags SEM_URIRED net |
||||
score SEM_URIRED 1.0 |
||||
|
||||
urirhssub SEM_FRESH fresh.spameatingmonkey.net. A 2 |
||||
body SEM_FRESH eval:check_uridnsbl('SEM_FRESH') |
||||
describe SEM_FRESH Contains a domain registered less than 5 days ago |
||||
tflags SEM_FRESH net |
||||
score SEM_FRESH 1.0 |
||||
|
||||
header RCVD_IN_SPAMRATS_DYNA eval:check_rbl('spamratsdyna-lastexternal','dyna.spamrats.com.') |
||||
describe RCVD_IN_SPAMRATS_DYNA Sender listed in spamratsdyna |
||||
tflags RCVD_IN_SPAMRATS_DYNA net |
||||
score RCVD_IN_SPAMRATS_DYNA 1.0 |
||||
|
||||
header RCVD_IN_SPAMRATS_NOPTR eval:check_rbl('spamratsnoptr-lastexternal','noptr.spamrats.com.') |
||||
describe RCVD_IN_SPAMRATS_NOPTR Sender listed in spamratsnoptr |
||||
tflags RCVD_IN_SPAMRATS_NOPTR net |
||||
score RCVD_IN_SPAMRATS_NOPTR 1.0 |
||||
|
||||
urirhsbl URIBL_SC_SWINOG uribl.swinog.ch. A |
||||
body URIBL_SC_SWINOG eval:check_uridnsbl('URIBL_SC_SWINOG') |
||||
describe URIBL_SC_SWINOG URI's listed in uribl.swinog.ch. |
||||
tflags URIBL_SC_SWINOG net |
||||
score URIBL_SC_SWINOG 1.0 |
||||
|
||||
header RCVD_IN_UCEPROTECT1 eval:check_rbl_txt('uceprotect1-lastexternal','dnsbl-1.uceprotect.net.') |
||||
describe RCVD_IN_UCEPROTECT1 Listed in dnsbl-1.uceprotect.net (open relay/proxy/dialup) |
||||
tflags RCVD_IN_UCEPROTECT1 net |
||||
score RCVD_IN_UCEPROTECT1 1.0 |
||||
|
||||
header RCVD_IN_UNSUBSCORE eval:check_rbl('unsubscore-lastexternal','ubl.unsubscore.com.') |
||||
describe RCVD_IN_UNSUBSCORE Listed in Lashback unsubscore.com |
||||
tflags RCVD_IN_UNSUBSCORE net |
||||
score RCVD_IN_UNSUBSCORE 1.0 |
||||
|
||||
header RCVD_IN_WPBL eval:check_rbl('wpbl-lastexternal','db.wpbl.info.','127.0.0.2') |
||||
describe RCVD_IN_WPBL Listed in wpbl |
||||
tflags RCVD_IN_WPBL net |
||||
score RCVD_IN_WPBL 1.0 |
||||
|
||||
header RCVD_IN_S5HBL eval:check_rbl_txt('s5hbl', 'all.s5h.net') |
||||
describe RCVD_IN_S5HBL Listed in all.s5h.net |
||||
tflags RCVD_IN_S5HBL net |
||||
score RCVD_IN_S5HBL 1.0 |
||||
|
||||
header RCVD_IN_SPAMCANNIBAL eval:check_rbl('spamcannibal', 'bl.spamcannibal.org') |
||||
describe RCVD_IN_SPAMCANNIBAL Listed in bl.spamcannibal.org |
||||
tflags RCVD_IN_SPAMCANNIBAL net |
||||
score RCVD_IN_SPAMCANNIBAL 1.0 |
||||
|
||||
header RCVD_IN_BACKSCATTERER eval:check_rbl('backscatterer', 'ips.backscatterer.org') |
||||
describe RCVD_IN_BACKSCATTERER Listed in ips.backscatterer.org |
||||
tflags RCVD_IN_BACKSCATTERER net |
||||
score RCVD_IN_BACKSCATTERER 1.0 |
||||
|
||||
header RCVD_IN_FABEL eval:check_rbl('fabel', 'spamsources.fabel.dk.') |
||||
describe RCVD_IN_FABEL Received via a relay in spamsources.fabel.dk |
||||
tflags RCVD_IN_FABEL net |
||||
score RCVD_IN_FABEL 1.0 |
||||
|
||||
header RCVD_IN_DRONEBL eval:check_rbl('dronebl', 'dnsbl.dronebl.org') |
||||
describe RCVD_IN_DRONEBL Listed in dnsbl.dronebl.org |
||||
tflags RCVD_IN_DRONEBL net |
||||
score RCVD_IN_DRONEBL 1.0 |
||||
|
||||
header RCVD_IN_MANITU eval:check_rbl('manitu', 'ix.dnsbl.manitu.net') |
||||
describe RCVD_IN_MANITU Listed in ix.dnsbl.manitu.net |
||||
tflags RCVD_IN_MANITU net |
||||
score RCVD_IN_MANITU 1.0 |
||||
|
||||
header RCVD_IN_SINGULAR eval:check_rbl('singular', 'singular.ttk.pte.hu') |
||||
describe RCVD_IN_SINGULAR Listed in singular.ttk.pte.hu |
||||
tflags RCVD_IN_SINGULAR net |
||||
score RCVD_IN_SINGULAR 1.0 |
||||
|
||||
header RCVD_IN_SPAMBOT_DIGIBASE eval:check_rbl('spambot-digibase', 'spambot.bls.digibase.ca') |
||||
describe RCVD_IN_SPAMBOT_DIGIBASE Listed in spambot.bls.digibase.ca |
||||
tflags RCVD_IN_SPAMBOT_DIGIBASE net |
||||
score RCVD_IN_SPAMBOT_DIGIBASE 1.0 |
||||
|
||||
header RCVD_IN_OPENPROXY_DIGIBASE eval:check_rbl('openproxy-digibase', 'openproxy.bls.digibase.ca') |
||||
describe RCVD_IN_OPENPROXY_DIGIBASE Listed in openproxy.bls.digibase.ca |
||||
tflags RCVD_IN_OPENPROXY_DIGIBASE net |
||||
score RCVD_IN_OPENPROXY_DIGIBASE 1.0 |
||||
@ -1 +0,0 @@ |
||||
innodb_file_per_table |
||||
@ -0,0 +1 @@ |
||||
open_files_limit = 4096 |
||||
@ -1 +0,0 @@ |
||||
max_connections = 500 |
||||
@ -1,3 +0,0 @@ |
||||
local5.notice /var/log/smb_audit.log |
||||
local5.notice ~ |
||||
|
||||
@ -1 +0,0 @@ |
||||
group=admins lrswtipekxa |
||||
@ -1,5 +0,0 @@ |
||||
{ |
||||
my $spf = $qpsmtpd{'CheckSPF'} || 'disabled'; |
||||
return '' unless ($spf =~ m/^[012]$/); |
||||
return "sender_permitted_from spf_deny $spf"; |
||||
} |
||||
@ -1,11 +0,0 @@ |
||||
{ |
||||
|
||||
return "" unless (-x '/usr/bin/make-srv'); |
||||
|
||||
$OUT .= "# SRV Records for Email services\n"; |
||||
$OUT .= `/usr/bin/make-srv -service _imap._tcp.$DomainName -target $SystemName.$DomainName -port 143`; |
||||
$OUT .= `/usr/bin/make-srv -service _imaps._tcp.$DomainName -target $SystemName.$DomainName -port 993`; |
||||
$OUT .= `/usr/bin/make-srv -service _smtp._tcp.$DomainName -target $SystemName.$DomainName -port 25`; |
||||
$OUT .= `/usr/bin/make-srv -service _smtps._tcp.$DomainName -target $SystemName.$DomainName -port 465`; |
||||
|
||||
} |
||||
@ -1,16 +0,0 @@ |
||||
{ |
||||
if (($qpsmtpd{RejectSpoofedLocalDomains} || 'disabled') eq 'enabled'){ |
||||
$OUT .= "# SPF entries for local domains\n"; |
||||
my $allowed = ''; |
||||
foreach my $ip ( split /[;,]/, ($qpsmtpd{AllowedRemoteIP} || '')){ |
||||
$allowed .= 'ip4\072'.$ip.' '; |
||||
} |
||||
foreach my $domain (get_domains()){ |
||||
$OUT .= "'$domain:v=spf1 mx $allowed-all:3600\n"; |
||||
$OUT .= ":$domain:99:\041v=spf1 mx $allowed-all:3600\n"; |
||||
} |
||||
} |
||||
else{ |
||||
$OUT .= "\n"; |
||||
} |
||||
} |
||||
@ -1,181 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
# $Header: /u/cvsroot/env/b/make-srv,v 1.3 2002/10/30 17:26:42 mayoff Exp $ |
||||
|
||||
use strict; |
||||
use Getopt::Long; |
||||
use Pod::Usage; |
||||
|
||||
my $priority = 0; |
||||
my $weight = 0; |
||||
my $service; |
||||
my $port; |
||||
my $target; |
||||
my $help = 0; |
||||
|
||||
my $result = GetOptions( |
||||
'help|?' => \$help, |
||||
'service=s' => \$service, |
||||
'priority=i' => \$priority, |
||||
'weight=i' => \$weight, |
||||
'port=i' => \$port, |
||||
'target=s' => \$target |
||||
) || pod2usage(2); |
||||
|
||||
pod2usage(1) if $help; |
||||
pod2usage(3) if (!defined($service) || !defined($port) || !defined($target)); |
||||
|
||||
my $data = tinydns_escape( |
||||
pack("nnn", $priority, $weight, $port) |
||||
. dotted_sequence_to_label_sequence($target)); |
||||
|
||||
print ":$service:33:$data\n"; |
||||
|
||||
exit 0; |
||||
|
||||
sub tinydns_escape { |
||||
my ($data) = @_; |
||||
|
||||
$data =~ s{[\000-\037:\\\177-\377]}{ |
||||
sprintf("\\%03o", unpack('C', $&)) |
||||
}ge; |
||||
|
||||
return $data; |
||||
} |
||||
|
||||
sub dotted_sequence_to_label_sequence { |
||||
my ($dotted) = @_; |
||||
my @chars = split(//, $dotted); |
||||
my $l = scalar(@chars); |
||||
my $out = ''; |
||||
my $label = ''; |
||||
|
||||
my $i = 0; |
||||
while (1) { |
||||
my $c; |
||||
if ($i < $l) { |
||||
$c = $chars[$i]; |
||||
$i++; |
||||
} |
||||
|
||||
else { |
||||
$c = '.'; |
||||
} |
||||
|
||||
if ($c eq '.') { |
||||
my $ll = length($label); |
||||
if ($ll > 63) { |
||||
die "$dotted contains a label of length $ll, but max length is 63"; |
||||
} |
||||
if ($ll > 0) { |
||||
$out .= pack('C', $ll); |
||||
$out .= $label; |
||||
$label = ''; |
||||
} |
||||
|
||||
last if ($i >= $l); |
||||
|
||||
next; |
||||
} |
||||
|
||||
if ($c eq '\\') { |
||||
if ($i < $l) { |
||||
$c = $chars[$i]; |
||||
$i++; |
||||
if ($c ge '0' && $c le '7') { |
||||
my $o = $c; |
||||
if ($i < $l) { |
||||
$c = $chars[$i]; |
||||
if ($c ge '0' && $c le '7') { |
||||
$i++; |
||||
$o .= $c; |
||||
if ($i < $l) { |
||||
$c = $chars[$i]; |
||||
if ($c ge '0' && $c le '7') { |
||||
$i++; |
||||
$o .= $c; |
||||
} |
||||
} |
||||
} |
||||
} |
||||
$c = pack('C', oct($o)); |
||||
} |
||||
} |
||||
} |
||||
|
||||
$label .= $c; |
||||
} |
||||
|
||||
$out .= "\000"; |
||||
return $out; |
||||
} |
||||
|
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
make-srv - Make an SRV record for tinydns |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
make-srv -service I<service> -target I<target> -port I<port> [I<options>] |
||||
|
||||
Options: |
||||
|
||||
=over 4 |
||||
|
||||
=item -priority I<priority> |
||||
|
||||
=item -weight I<weight> |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
This command prints a DNS SRV record to standard output in |
||||
C<tinydns-data> format. This record is defined by RFC 2052. |
||||
|
||||
The C<-service> flag specifies the domain name for which |
||||
the SRV record is defined. This name should have the format |
||||
I<service>C<.>I<protocol>C<.>I<domain>. For example: |
||||
C<http.tcp.dqd.com>. You must specify the C<-service> flag. |
||||
|
||||
The C<-target> flag specifies the target domain name of the record. The |
||||
I<target> must be a domain name with an associated A record. (This |
||||
command doesn't verify that, but the RFC says it's a requirement.) You |
||||
must specify the C<-target> flag. |
||||
|
||||
The C<-port> flag specifies the port number of the record. You must |
||||
specify the C<-port> flag. |
||||
|
||||
The C<-priority> and C<-weight> flags specify the priority and weight of |
||||
the record. These flags are optional; I<priority> and I<weight> are |
||||
zero by default. |
||||
|
||||
Example: |
||||
|
||||
$ make-srv -service http.tcp.dqd.com -target zot.dqd.com -port 80 |
||||
:http.tcp.dqd.com:33:\000\000\000\000\000P\003zot\003dqd\003com\000 |
||||
|
||||
You may add the I<ttl>, I<timestamp>, and I<lo> fields to the end of the |
||||
line yourself if necessary. For example, |
||||
|
||||
:http.tcp.dqd.com:33:\000\000\000\000\000P\003zot\003dqd\003com\000:::in |
||||
|
||||
is the same SRV record as in the example above, but will be visible only |
||||
to clients in the C<in> location. See the C<tinydns-data> documentation |
||||
for help with these fields. |
||||
|
||||
=head1 LINKS |
||||
|
||||
=over |
||||
|
||||
=item * |
||||
|
||||
RFC 2052: L<http://www.ietf.org/rfc/rfc2052.txt> |
||||
|
||||
=item * |
||||
|
||||
C<tinydns-data> documentation: L<http://cr.yp.to/djbdns/tinydns-data.html> |
||||
|
||||
=back |
||||
|
||||
=cut |
||||
|
||||
@ -1 +0,0 @@ |
||||
winnow.spam.ts.brokenspam.1 |
||||
Loading…
Reference in new issue