Commit 8c22d225 authored by IKEDA Soji's avatar IKEDA Soji
Browse files

Removing some unused codes.

parent 75ab33e0
......@@ -26,11 +26,7 @@
[% FOREACH pS = config_schema ~%]
[% SET pV = config_values.${pS.name} ~%]
[% IF pS.changed ~%]
<div class="CurrentBlock">
[%~ ELSE ~%]
<div class="block">
[%~ END ~%]
<div class="block">
<h4>
[% IF pS.title ~%]
[% pS.title %]
......
......@@ -1005,8 +1005,6 @@ unless (Conf::data_structure_uptodate()) {
);
}
 
our %changed_params;
our %in;
my $query;
 
......@@ -1029,8 +1027,6 @@ my $loop_count;
my $start_time = time;
while ($query = new_loop()) {
 
undef %::changed_params;
undef $param;
undef $list;
undef $robot;
......@@ -1090,10 +1086,6 @@ while ($query = new_loop()) {
## Get params in a hash
%in = $query->Vars;
 
foreach my $k (keys %::changed_params) {
$log->syslog('debug3', 'Changed Param: %s', $k);
}
# Determin robot.
# N.B. As of 6.2.15, the http_host parameter will match with the host name
# and path locally detected by server. If remotely detected host name
......@@ -10793,11 +10785,6 @@ sub do_edit_list {
return undef;
}
 
## Tag changed parameters
foreach my $pname (keys %{$config->get_changeset}) {
$::changed_params{$pname} = 1;
}
## Save stats
$list->savestats();
 
......@@ -10996,10 +10983,8 @@ sub do_edit_list_request {
my @p = _do_edit_list_request($config, $schema->{$_}, [$_]);
if (@p) {
# Store if the parameter is still at its default value or not.
# Store the change state of this parameter.
# FIXME:Multiple levels of keys should be possible.
$p[0]->{'default_value'} = $config->get('defaults')->{$_};
$p[0]->{'changed'} = $::changed_params{$_};
}
@p;
}
......
......@@ -39,7 +39,6 @@ use Sympa::Message::Template;
use Sympa::Process;
use Sympa::Tools::Data;
use Sympa::Tools::DKIM;
use Sympa::Tools::Text;
use Sympa::Tracking;
use base qw(Sympa::Spindle);
......@@ -211,26 +210,8 @@ sub _twist {
? $self->{log_level}
: Conf::get_robot_conf($robot, 'log_level');
#HASH which will contain the attributes of the subscriber
my $data;
# Initialization of the HASH $data. It will be used by parse_tt2 to
# personalized messages.
# Note that message ID which can be anonymized should be taken from
# message header instead of {message_id} attribute.
my $msg_id = Sympa::Tools::Text::canonic_message_id(
$message->get_header('Message-ID'));
$data = {
'messageid' => $msg_id,
'listname' => $listname,
'robot' => $robot,
#XXX'to' => $message->{rcpt}, #XXX Insecure
'wwsympa_url' => Conf::get_robot_conf($robot, 'wwsympa_url'),
};
# Contain all the subscribers
my @rcpts = @{$message->{rcpt}};
## Use an intermediate handler to encode to filesystem_encoding
my $user;
# Message transformation should be done in the folowing order:
# -1 headers modifications (done in sympa.pl)
......@@ -424,20 +405,8 @@ sub _twist {
}
# Old name: trace_smime() in bulk.pl.
# Note: Currently never used.
sub _trace_smime {
my $message = shift;
my $where = shift;
my $result = $message->check_smime_signature;
return if defined $result and $result == 0;
unless ($result) {
$log->syslog('debug', 'Signature S/MIME NOT OK (%s)', $where);
} else {
$log->syslog('debug', 'Signature S/MIME OK (%s)', $where);
}
}
# No longer used.
#sub _trace_smime;
1;
__END__
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment