[Rt-commit] r10678 - in rt/branches/3.999-DANGEROUS: . etc html/Admin/CustomFields html/Admin/Elements html/Admin/Groups html/Admin/Queues html/Admin/Users html/Elements html/Elements/GnuPG html/Elements/RT__Model__Queue html/Elements/RT__Model__Ticket html/Prefs html/Search html/SelfService html/Ticket html/Ticket/Elements html/Tools html/User html/User/Groups lib/RT/Crypt lib/RT/Interface lib/RT/Interface/Web lib/RT/Model lib/RT/ScripAction lib/t/data/crypt-gnupg share/po t/mail t/web
jesse at bestpractical.com
jesse at bestpractical.com
Sat Feb 2 18:07:16 EST 2008
Author: jesse
Date: Sat Feb 2 18:07:14 2008
New Revision: 10678
Modified:
rt/branches/3.999-DANGEROUS/ (props changed)
rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
rt/branches/3.999-DANGEROUS/html/Admin/CustomFields/Modify.html
rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditCustomField
rt/branches/3.999-DANGEROUS/html/Admin/Elements/UserTabs
rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html
rt/branches/3.999-DANGEROUS/html/Admin/Queues/Modify.html
rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html
rt/branches/3.999-DANGEROUS/html/Admin/Users/GnuPG.html
rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html
rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SelectKeyForSigning
rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SignEncryptWidget
rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Queue/ColumnMap
rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap
rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch
rt/branches/3.999-DANGEROUS/html/Prefs/Other.html
rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/UpdateCc
rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
rt/branches/3.999-DANGEROUS/html/Ticket/Update.html
rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html
rt/branches/3.999-DANGEROUS/html/User/Groups/Modify.html
rt/branches/3.999-DANGEROUS/html/User/Prefs.html
rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/pubring.gpg
rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/secring.gpg
rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/signed_old_style_with_attachment.eml
rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/trustdb.gpg
rt/branches/3.999-DANGEROUS/share/po/cs.po
rt/branches/3.999-DANGEROUS/share/po/da.po
rt/branches/3.999-DANGEROUS/share/po/de.po
rt/branches/3.999-DANGEROUS/share/po/es.po
rt/branches/3.999-DANGEROUS/share/po/fi.po
rt/branches/3.999-DANGEROUS/share/po/fr.po
rt/branches/3.999-DANGEROUS/share/po/he.po
rt/branches/3.999-DANGEROUS/share/po/hu.po
rt/branches/3.999-DANGEROUS/share/po/id.po
rt/branches/3.999-DANGEROUS/share/po/it.po
rt/branches/3.999-DANGEROUS/share/po/ja.po
rt/branches/3.999-DANGEROUS/share/po/nl.po
rt/branches/3.999-DANGEROUS/share/po/no.po
rt/branches/3.999-DANGEROUS/share/po/pl.po
rt/branches/3.999-DANGEROUS/share/po/pt_br.po
rt/branches/3.999-DANGEROUS/share/po/ru.po
rt/branches/3.999-DANGEROUS/share/po/sv.po
rt/branches/3.999-DANGEROUS/share/po/tr.po
rt/branches/3.999-DANGEROUS/share/po/zh_cn.po
rt/branches/3.999-DANGEROUS/share/po/zh_tw.po
rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
rt/branches/3.999-DANGEROUS/t/ticket/merge.t
rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
rt/branches/3.999-DANGEROUS/t/web/attachments.t
rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
Log:
r76102 at pinglin: jesse | 2008-02-02 16:32:43 -0500
* mail/sendmail.t now passes
r76103 at pinglin: jesse | 2008-02-02 16:52:39 -0500
* passing merge tests
r76104 at pinglin: jesse | 2008-02-02 17:04:36 -0500
CommentAddressNotSet -> comment_address_not_set
CorrespondAddressNotSet -> correspond_address_not_set
Enable => enable
r76105 at pinglin: jesse | 2008-02-02 17:05:25 -0500
* update_cc, update_comment
r76109 at pinglin: jesse | 2008-02-02 18:04:32 -0500
* Very much closer to passing crypt-gnupg tests
Modified: rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/RT_Config.pm (original)
+++ rt/branches/3.999-DANGEROUS/etc/RT_Config.pm Sat Feb 2 18:07:14 2008
@@ -247,9 +247,9 @@
# and comment mail tracked by RT, unless overridden by a queue-specific
# address.
-set( $correspond_address, 'RT_correspond_addressNotset' );
+set( $correspond_address, 'rt_correspond_address_not_set' );
-set( $comment_address, 'RT_comment_addressNotset' );
+set( $comment_address, 'rt_comment_address_not_set' );
# By default, RT sets the outgoing mail's "From:" header to
# "Sendername via RT". setting this option to 0 disables it.
@@ -309,7 +309,7 @@
# perldoc RT::Crypt::GnuPG (or perldoc lib/RT/Crypt/GnuPG.pm from your RT install directory).
set(%GnuPG,
- Enable => 0,
+ enable => 0,
# set outgoing_messages_format to 'inline' to use inline encryption and
# signatures instead of 'RFC' (GPG/MIME: RFC3156 and RFC1847) format.
Modified: rt/branches/3.999-DANGEROUS/html/Admin/CustomFields/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/CustomFields/Modify.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/CustomFields/Modify.html Sat Feb 2 18:07:14 2008
@@ -112,9 +112,9 @@
</div></td></tr>
<tr><td class="label"> </td><td>
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
-<input type="checkbox" class="checkbox" name="Enabled" value="1" <% $EnabledChecked %> />
-<&|/l&>Enabled (Unchecking this box disables this custom field)</&>
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
+<input type="checkbox" class="checkbox" name="enabled" value="1" <% $enabled_checked %> />
+<&|/l&>enabled (Unchecking this box disables this custom field)</&>
</td></tr>
</table>
@@ -163,7 +163,7 @@
if ( $ARGS{'Update'} && $id ne 'new' ) {
#we're asking about enabled on the web page but really care about disabled.
- $ARGS{'disabled'} = $disabled = $Enabled? 0 : 1;
+ $ARGS{'disabled'} = $disabled = $enabled? 0 : 1;
my @attribs = qw(disabled pattern name type_composite lookup_type description link_value_to include_content_for_value);
push @results, update_record_object(
@@ -207,8 +207,8 @@
$id = $CustomFieldObj->id if $CustomFieldObj->id;
-my $EnabledChecked = "checked";
-$EnabledChecked = '' if $CustomFieldObj->disabled;
+my $enabled_checked = "checked";
+$enabled_checked = '' if $CustomFieldObj->disabled;
</%INIT>
<%ARGS>
@@ -220,7 +220,7 @@
$description => undef
$pattern => undef
$name => undef
-$SetEnabled => undef
-$Enabled => 0
+$set_enabled => undef
+$enabled => 0
$valuesClass => 'RT::Model::CustomFieldValueCollection'
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditCustomField
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditCustomField (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditCustomField Sat Feb 2 18:07:14 2008
@@ -70,8 +70,8 @@
</td></tr>
<tr><td>
</td><td>
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
-<input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> /> <&|/l&>Enabled (Unchecking this box disables this custom field)</&>
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
+<input type="checkbox" class="checkbox" name="enabled" value="1" <%$enabled_checked%> /> <&|/l&>enabled (Unchecking this box disables this custom field)</&>
</td></tr>
</table>
@@ -91,7 +91,7 @@
<%INIT>
my $CustomFieldObj = RT::Model::CustomField->new();
-my $EnabledChecked = "CHECKED";
+my $enabled_checked = "CHECKED";
my (@results);
if (! $CustomField ) {
@@ -131,15 +131,15 @@
$id = $CustomFieldObj->id;
#we're asking about enabled on the web page but really care about disabled.
- my $disabled = ($Enabled ? 0 : 1);
+ my $disabled = ($enabled ? 0 : 1);
- if ( ($SetEnabled) and ( $disabled != $CustomFieldObj->disabled) ) {
+ if ( ($set_enabled) and ( $disabled != $CustomFieldObj->disabled) ) {
my ($code, $msg) = $CustomFieldObj->set_disabled($disabled);
- push @results, _('Enabled status %1', _($msg));
+ push @results, _('enabled status %1', _($msg));
}
if ($CustomFieldObj->disabled()) {
- $EnabledChecked ="";
+ $enabled_checked ="";
}
}
@@ -154,6 +154,6 @@
$Type => undef
$description => undef
$name => undef
-$SetEnabled => undef
-$Enabled => undef
+$set_enabled => undef
+$enabled => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Elements/UserTabs
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Elements/UserTabs (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Elements/UserTabs Sat Feb 2 18:07:14 2008
@@ -71,7 +71,7 @@
},
}
};
- if ( RT->config->get('GnuPG')->{'Enable'} ) {
+ if ( RT->config->get('GnuPG')->{'enable'} ) {
$tabs->{'this'}{'subtabs'}{'GnuPG'} = {
title => _('GnuPG'),
path => "Admin/Users/GnuPG.html?id=".$id,
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html Sat Feb 2 18:07:14 2008
@@ -85,8 +85,8 @@
% }
<tr>
<td colspan="2">
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
-<input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> /> <&|/l&>Enabled (Unchecking this box disables this group)</&><br />
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
+<input type="checkbox" class="checkbox" name="enabled" value="1" <%$enabled_checked%> /> <&|/l&>enabled (Unchecking this box disables this group)</&><br />
</td>
</tr>
% $m->callback( %ARGS, GroupObj => $Group, results => \@results );
@@ -96,7 +96,7 @@
<%INIT>
my $current_tab;
-my ($title, @results, $disabled, $EnabledChecked);
+my ($title, @results, $disabled, $enabled_checked);
my $Group = RT::Model::Group->new();
@@ -145,19 +145,19 @@
}
#we're asking about enabled on the web page but really care about disabled.
-if ($Enabled == 1) {
+if ($enabled == 1) {
$disabled = 0;
}
else {
$disabled = 1;
}
-if ( ($SetEnabled) and ( $disabled != $Group->disabled) ) {
+if ( ($set_enabled) and ( $disabled != $Group->disabled) ) {
my ($code, $msg) = $Group->set_disabled($disabled);
- push @results, _('Enabled status %1', _($msg));
+ push @results, _('enabled status %1', _($msg));
}
unless ($Group->disabled()) {
- $EnabledChecked ="CHECKED";
+ $enabled_checked ="CHECKED";
}
@@ -168,7 +168,7 @@
$Create => undef
$name => undef
$description => undef
-$SetEnabled => undef
-$Enabled => undef
+$set_enabled => undef
+$enabled => undef
$id => '' unless defined $id
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Queues/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Queues/Modify.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Queues/Modify.html Sat Feb 2 18:07:14 2008
@@ -55,7 +55,7 @@
<form action="<%RT->config->get('WebPath')%>/Admin/Queues/Modify.html" method="post">
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
<input type="hidden" class="hidden" name="id" value="<% $Create? 'new': $queue_obj->id %>" />
<table>
@@ -85,7 +85,7 @@
<td colspan="3"><input name="default_due_in" value="<% ($Create) ? "" : $queue_obj->default_due_in%>" /> <&|/l&>days</&>.</td>
</tr>
-% if ( RT->config->get('GnuPG')->{'Enable'} ) {
+% if ( RT->config->get('GnuPG')->{'enable'} ) {
<tr><td align="right"><input type="checkbox" class="checkbox" name="sign" value="1" <% $queue_obj->sign? 'checked': '' %> /></td>
<td><&|/l&>sign by default</&></td>
<td align="right"><input type="checkbox" class="checkbox" name="encrypt" value="1" <% $queue_obj->encrypt? 'checked': '' %> /></td>
@@ -93,12 +93,12 @@
</tr>
% }
-<tr><td align="right"><input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> /></td>
-<td colspan="3"><&|/l&>Enabled (Unchecking this box disables this queue)</&><br />
+<tr><td align="right"><input type="checkbox" class="checkbox" name="enabled" value="1" <%$enabled_checked%> /></td>
+<td colspan="3"><&|/l&>enabled (Unchecking this box disables this queue)</&><br />
% $m->callback( %ARGS, queue_obj => $queue_obj, results => \@results );
</td></tr>
-% if ( RT->config->get('GnuPG')->{'Enable'} ) {
+% if ( RT->config->get('GnuPG')->{'enable'} ) {
% if ( my $email = $queue_obj->correspond_address || RT->config->get('correspond_address') ) {
<tr><td colspan="4"><& /Admin/Elements/ShowKeyInfo, type => 'private', email => $email &></td></tr>
% }
@@ -114,11 +114,11 @@
<%INIT>
-my ($title, $current_tab, @results, $disabled, $EnabledChecked);
+my ($title, $current_tab, @results, $disabled, $enabled_checked);
my $queue_obj = RT::Model::Queue->new();
$queue_obj->load( $id ) if !$id || $id eq 'new';
-$EnabledChecked = "checked";
+$enabled_checked = "checked";
if ($Create) {
$current_tab = 'Admin/Queues/Modify.html?Create=1';
@@ -143,8 +143,8 @@
initial_priority final_priority default_due_in sign encrypt disabled);
# we're asking about enabled on the web page but really care about disabled
- if ( $SetEnabled ) {
- $disabled = $ARGS{'disabled'} = $Enabled? 0: 1;
+ if ( $set_enabled ) {
+ $disabled = $ARGS{'disabled'} = $enabled? 0: 1;
$ARGS{$_} = 0 foreach grep !defined $ARGS{$_} || !length $ARGS{$_},
qw(sign encrypt disabled);
}
@@ -155,9 +155,9 @@
ARGSRef => \%ARGS
);
- $disabled = $ARGS{'disabled'} = $Enabled? 0: 1;
+ $disabled = $ARGS{'disabled'} = $enabled? 0: 1;
- $EnabledChecked = "" if $queue_obj->disabled;
+ $enabled_checked = "" if $queue_obj->disabled;
my @linkresults;
$m->callback(
@@ -182,6 +182,6 @@
$initial_priority => undef
$final_priority => undef
$default_due_in => undef
-$SetEnabled => undef
-$Enabled => undef
+$set_enabled => undef
+$enabled => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html Sat Feb 2 18:07:14 2008
@@ -82,7 +82,7 @@
$caption = _("All Queues");
$queues->{'find_disabled_rows'} = 1;
} else {
- $caption = _("Enabled Queues");
+ $caption = _("enabled Queues");
}
$format ||= q{'<a href="__WebPath__/Admin/Queues/Modify.html?id=__id__">__id__</a>/TITLE:#'}
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Users/GnuPG.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Users/GnuPG.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Users/GnuPG.html Sat Feb 2 18:07:14 2008
@@ -33,7 +33,7 @@
$Update => undef
</%ARGS>
<%INIT>
-return unless RT->config->get('GnuPG')->{'Enable'};
+return unless RT->config->get('GnuPG')->{'enable'};
require RT::Crypt::GnuPG;
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html Sat Feb 2 18:07:14 2008
@@ -106,8 +106,8 @@
</&>
<br />
<&| /Widgets/TitleBox, title => _('Access control') &>
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
-<input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> />
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
+<input type="checkbox" class="checkbox" name="enabled" value="1" <%$enabled_checked%> />
<&|/l&>Let this user access RT</&><br />
@@ -247,7 +247,7 @@
my $current_tab;
my $user_object = RT::Model::User->new();
-my ($title, $privilegedChecked, $EnabledChecked, $disabled, $result, @results);
+my ($title, $privilegedChecked, $enabled_checked, $disabled, $result, @results);
my ($val, $msg);
@@ -290,7 +290,7 @@
Zip => $ARGS{'Zip'},
Country => $ARGS{'Country'},
privileged => $ARGS{'privileged'},
- disabled => ($ARGS{'Enabled'} ? 0 : 1)
+ disabled => ($ARGS{'enabled'} ? 0 : 1)
);
if ($val) {
@@ -341,18 +341,18 @@
push @results, process_object_custom_field_updates( ARGSRef => \%ARGS, object => $user_object );
- # {{{ Deal with special fields: privileged, Enabled
+ # {{{ Deal with special fields: privileged, enabled
if ( $set_privileged and $privileged != $user_object->privileged ) {
my ($code, $msg) = $user_object->set_privileged($privileged);
push @results, _('privileged status: %1', _($msg));
}
#we're asking about enabled on the web page but really care about disabled.
- $disabled = $Enabled ? 0 : 1;
+ $disabled = $enabled ? 0 : 1;
- if ( ($SetEnabled) and ( $disabled != $user_object->disabled) ) {
+ if ( ($set_enabled) and ( $disabled != $user_object->disabled) ) {
my ($code, $msg) = $user_object->set_disabled($disabled);
- push @results, _('Enabled status %1', _($msg));
+ push @results, _('enabled status %1', _($msg));
}
@@ -380,7 +380,7 @@
# Do some setup for the ui
unless ( $user_object->id && $user_object->disabled ) {
- $EnabledChecked ="CHECKED";
+ $enabled_checked ="CHECKED";
}
if (!$Create && $user_object->privileged()) {
@@ -406,8 +406,8 @@
$nickname => undef
$privileged => undef
$set_privileged => undef
-$Enabled => undef
-$SetEnabled => undef
+$enabled => undef
+$set_enabled => undef
$lang => undef
$email_encoding => undef
$web_encoding => undef
Modified: rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SelectKeyForSigning
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SelectKeyForSigning (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SelectKeyForSigning Sat Feb 2 18:07:14 2008
@@ -11,7 +11,7 @@
$User => undef,
</%ARGS>
<%INIT>
-return unless RT->config->get('GnuPG')->{'Enable'};
+return unless RT->config->get('GnuPG')->{'enable'};
my $user_key = $User->private_key;
</%INIT>
Modified: rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SignEncryptWidget
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SignEncryptWidget (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/GnuPG/SignEncryptWidget Sat Feb 2 18:07:14 2008
@@ -18,7 +18,7 @@
$Arguments => {}
</%ARGS>
<%INIT>
-return undef unless RT->config->get('GnuPG')->{'Enable'};
+return undef unless RT->config->get('GnuPG')->{'enable'};
require RT::Crypt::GnuPG;
return { %$Arguments };
Modified: rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Queue/ColumnMap
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Queue/ColumnMap (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Queue/ColumnMap Sat Feb 2 18:07:14 2008
@@ -60,7 +60,7 @@
disabled => {
title => \' ',
attribute => 'disabled',
- value => sub { return $_[0]->disabled? $_[0]->_('disabled'): $_[0]->loc('Enabled') },
+ value => sub { return $_[0]->disabled? $_[0]->_('disabled'): $_[0]->loc('enabled') },
},
Priority => {
value => sub { return $_[0]->initial_priority .'-'. $_[0]->final_priority },
Modified: rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap Sat Feb 2 18:07:14 2008
@@ -309,7 +309,7 @@
# if no GPG support, then KeyOwnername and KeyRequestors fall back to the regular
# versions
-if (RT->config->get('GnuPG')->{'Enable'}) {
+if (RT->config->get('GnuPG')->{'enable'}) {
require RT::Crypt::GnuPG;
}
else {
Modified: rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch Sat Feb 2 18:07:14 2008
@@ -111,7 +111,7 @@
);
foreach ( $SearchArg, $ProcessedSearchArg ) {
- $_->{'Query'} =~ s/__CurrentUser__/Jifty->web->current_user->id/ge;
+ $_->{'query'} =~ s/__CurrentUser__/Jifty->web->current_user->id/ge;
$_->{'format'} =~ s/__(Web(?:Path|base|baseURL))__/scalar RT->config->get($1)/ge;
$_->{'format'} =~ s/__loc\(["']?(\w+)["']?\)__/_("$1")/ge;
}
Modified: rt/branches/3.999-DANGEROUS/html/Prefs/Other.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Prefs/Other.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Prefs/Other.html Sat Feb 2 18:07:14 2008
@@ -68,13 +68,13 @@
</&>
% }
-% if ( RT->config->get('GnuPG')->{'Enable'} ) {
+% if ( RT->config->get('GnuPG')->{'enable'} ) {
<&|/Widgets/TitleBox, title => _( 'Cryptography' ) &>
Preferred key: <& /Elements/GnuPG/SelectKeyForEncryption, email => $user_object->email, Default => $user_object->preferred_key &>
</&>
% }
-% if ( RT->config->get('GnuPG')->{'Enable'} ) {
+% if ( RT->config->get('GnuPG')->{'enable'} ) {
<&|/Widgets/TitleBox, title => _( 'Cryptography' ) &>
Preferred key: <& /Elements/SelectKey, email => $user_object->email, Default => $user_object->preferred_key &>
</&>
Modified: rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Bulk.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Bulk.html Sat Feb 2 18:07:14 2008
@@ -143,7 +143,7 @@
% } # end if while
<tr><td align="right"><&|/l&>Attach</&>:</td><td><input name="UpdateAttachment" type="file" /></td></tr>
<tr><td class="labeltop"><&|/l&>Message</&>:</td><td>
- <& /Elements/MessageBox, name=>"UpdateContent"&>
+ <& /Elements/MessageBox, name=>"update_content"&>
</td></tr>
</table>
Modified: rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/SelfService/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/SelfService/Display.html Sat Feb 2 18:07:14 2008
@@ -177,9 +177,9 @@
if (
$session{'Attachments'}
- || ( defined $ARGS{'UpdateContent'}
- && $ARGS{'UpdateContent'} ne ''
- && $ARGS{'UpdateContent'} ne "-- \n"
+ || ( defined $ARGS{'update_content'}
+ && $ARGS{'update_content'} ne ''
+ && $ARGS{'update_content'} ne "-- \n"
. Jifty->web->current_user->user_object->signature )
)
{
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Display.html Sat Feb 2 18:07:14 2008
@@ -140,12 +140,12 @@
ARGSRef => \%ARGS,
Actions => \@Actions);
- $ARGS{'UpdateContent'} =~ s/\r\n/\n/g if defined $ARGS{'UpdateContent'};
+ $ARGS{'update_content'} =~ s/\r\n/\n/g if defined $ARGS{'update_content'};
my $signature = Jifty->web->current_user->user_object->signature || '';
if ( $ARGS{'UpdateTimeWorked'} || (
- defined $ARGS{'UpdateContent'}
- && $ARGS{'UpdateContent'} ne ''
- && $ARGS{'UpdateContent'} ne "-- \n" . $signature ))
+ defined $ARGS{'update_content'}
+ && $ARGS{'update_content'} ne ''
+ && $ARGS{'update_content'} ne "-- \n" . $signature ))
{
$ARGS{UpdateAttachments} = $session{'Attachments'};
push @Actions, process_update_message(
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips Sat Feb 2 18:07:14 2008
@@ -125,11 +125,11 @@
my $Message = make_mime_entity(
subject => $ARGS{'Updatesubject'},
- Body => $ARGS{'UpdateContent'},
+ Body => $ARGS{'update_content'},
);
my ( $Transaction, $description, $object ) = $ticket_obj->$action(
- cc_message_to => $ARGS{'UpdateCc'},
+ cc_message_to => $ARGS{'update_cc'},
bcc_message_to => $ARGS{'UpdateBcc'},
mime_obj => $Message,
time_taken => $ARGS{'UpdateTimeWorked'},
@@ -161,11 +161,11 @@
my $Message = make_mime_entity(
subject => $ARGS{'Updatesubject'},
- Body => $ARGS{'UpdateContent'},
+ Body => $ARGS{'update_content'},
);
my ( $id, $msg, $txn ) = $ticket_obj->$action(
- cc_message_to => $ARGS{'UpdateCc'},
+ cc_message_to => $ARGS{'update_cc'},
bcc_message_to => $ARGS{'UpdateBcc'},
mime_obj => $Message,
time_taken => $ARGS{'UpdateTimeWorked'},
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction Sat Feb 2 18:07:14 2008
@@ -65,7 +65,7 @@
<tr>
<td colspan="4" class="content">
% if ( $Attachments->[0] && $Attachments->[0]->id ) {
-% if (RT->config->get('GnuPG')->{'Enable'}) {
+% if (RT->config->get('GnuPG')->{'enable'}) {
<& ShowGnuPGStatus, Attachment => $Attachments->[0], WarnUnsigned => $WarnUnsigned &>
% }
% }
@@ -211,7 +211,7 @@
. "\">". _('Forward') . "</a>]";
}
if ( $can_modify
- && RT->config->get('GnuPG')->{'Enable'}
+ && RT->config->get('GnuPG')->{'enable'}
&& RT->config->get('GnuPG')->{'AllowEncryptDataInDB'}
&& $ticket->current_user_has_right('ForwardMessage')
) {
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments Sat Feb 2 18:07:14 2008
@@ -48,7 +48,7 @@
<%PERL>
# Find all the attachments which have parent $Parent
# For each of these attachments
-foreach my $message ( grep $_->__value('Parent') == $Parent, @$Attachments ) {
+foreach my $message ( grep $_->__value('parent') == $Parent, @$Attachments ) {
$m->comp( 'ShowMessageHeaders',
Message => $message,
display_headers => \@display_headers,
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/UpdateCc
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/UpdateCc (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/UpdateCc Sat Feb 2 18:07:14 2008
@@ -45,18 +45,18 @@
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
-<tr><td align="right"><&|/l&>Cc</&>:</td><td> <input name="UpdateCc" id = "UpdateCc" size="60"
- value="<% $ARGS{UpdateCc}||'' %>" />
+<tr><td align="right"><&|/l&>Cc</&>:</td><td> <input name="update_cc" id = "update_cc" size="60"
+ value="<% $ARGS{update_cc}||'' %>" />
<input type="hidden" id="UpdateIgnoreAddressCheckboxes" name="UpdateIgnoreAddressCheckboxes" value="0">
<br />
%foreach my $addr ( keys %txn_addresses) {
<input
-id="UpdateCc-<%$addr%>"
-name="UpdateCc-<%$addr%>"
+id="update_cc-<%$addr%>"
+name="update_cc-<%$addr%>"
type="checkbox"
- onClick="checkboxToInput('UpdateCc', 'UpdateCc-<%$addr%>','<%$txn_addresses{$addr}->format%>' ); $(UpdateIgnoreAddressCheckboxes).value=1"
- <% $ARGS{'UpdateCc-'.$addr} ? 'checked="checked"' : ''%> > <& /Elements/ShowUser, Address => $txn_addresses{$addr}&>
+ onClick="checkboxToInput('update_cc', 'update_cc-<%$addr%>','<%$txn_addresses{$addr}->format%>' ); $(UpdateIgnoreAddressCheckboxes).value=1"
+ <% $ARGS{'update_cc-'.$addr} ? 'checked="checked"' : ''%> > <& /Elements/ShowUser, Address => $txn_addresses{$addr}&>
%}
<div class="hints"><i><font size="-2">
<&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of email addresses. Does <strong>not</strong> change who will receive future updates.)</&></font></i>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html Sat Feb 2 18:07:14 2008
@@ -120,7 +120,7 @@
</tr>
<tr>
<td class="labeltop"><&|/l&>Content</&>:</td>
- <td class="entry"><& /Elements/MessageBox, name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &></td>
+ <td class="entry"><& /Elements/MessageBox, name=>"update_content", QuoteTransaction=>$ARGS{QuoteTransaction} &></td>
</tr>
</table>
</&>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Update.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Update.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Update.html Sat Feb 2 18:07:14 2008
@@ -95,7 +95,7 @@
</td></tr>
<tr><td align="right"><&|/l&>subject</&>:</td><td> <input name="Updatesubject" size="60" value="<% $ARGS{Updatesubject} || $ticket_obj->subject()%>" /></td></tr>
-<& /Ticket/Elements/UpdateCc, %ARGS, ticket_obj => $ticket_obj &>
+<& /Ticket/Elements/update_cc, %ARGS, ticket_obj => $ticket_obj &>
% if (my $TxnCFs = $ticket_obj->transaction_custom_fields) {
@@ -133,14 +133,14 @@
<tr><td align="right" valign="top"><&|/l&>Message</&>:</td><td>
% $m->callback( %ARGS, Callbackname => 'BeforeMessageBox' );
-% if (exists $ARGS{UpdateContent}) {
+% if (exists $ARGS{update_content}) {
% # preserve QuoteTransaction so we can use it to set up sane references/in/reply to
% my $temp = $ARGS{'QuoteTransaction'};
% delete $ARGS{'QuoteTransaction'};
-<& /Elements/MessageBox, name=>"UpdateContent", Default=>$ARGS{UpdateContent}, IncludeSignature => 0, %ARGS&>
+<& /Elements/MessageBox, name=>"update_content", Default=>$ARGS{update_content}, IncludeSignature => 0, %ARGS&>
% $ARGS{'QuoteTransaction'} = $temp;
% } else {
-<& /Elements/MessageBox, name=>"UpdateContent", %ARGS &>
+<& /Elements/MessageBox, name=>"update_content", %ARGS &>
% }
</td></tr>
</table>
Modified: rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html Sat Feb 2 18:07:14 2008
@@ -64,7 +64,7 @@
<%$Ticket->subject%></a></h2></td></tr>
<tr <%$class|n%>><td><span class="label"><&|/l&>Worked</&>:</span><input size="3" name="UpdateTimeWorked-<%$Ticket->id%>" /> <&|/l&>minutes</&>
</td>
-<td rowspan="2"><span class="label"><&|/l&>Comments</&>:<br /></span><textarea name="UpdateContent-<%$Ticket->id%>" rows="5"
+<td rowspan="2"><span class="label"><&|/l&>Comments</&>:<br /></span><textarea name="update_content-<%$Ticket->id%>" rows="5"
cols="60"></textarea></td></tr>
<tr <%$class|n%>>
<td><span class="label"><&|/l&>Status</&>:</span> <& /Elements/SelectStatus, name=> 'UpdateStatus-'.$Ticket->id,
@@ -86,7 +86,7 @@
my $id = $1;
my $ticket = load_ticket($id);
next unless ( $ticket->id );
- if ( my $content = $ARGS{'UpdateContent-'.$id} ) {
+ if ( my $content = $ARGS{'update_content-'.$id} ) {
my ( $val, $msg ) = $ticket->comment(
Content => $content,
time_taken => $ARGS{ 'UpdateTimeWorked-' . $id }
Modified: rt/branches/3.999-DANGEROUS/html/User/Groups/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/User/Groups/Modify.html (original)
+++ rt/branches/3.999-DANGEROUS/html/User/Groups/Modify.html Sat Feb 2 18:07:14 2008
@@ -72,8 +72,8 @@
<&|/l&>description</&>:</td><td colspan="3"><input name="description" value="<%$Group->description%>" size="60" /></td>
</tr><tr>
<td colspan="2">
-<input type="hidden" class="hidden" name="SetEnabled" value="1" />
-<input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> /> <&|/l&>Enabled (Unchecking this box disables this group)</&><br />
+<input type="hidden" class="hidden" name="set_enabled" value="1" />
+<input type="checkbox" class="checkbox" name="enabled" value="1" <%$enabled_checked%> /> <&|/l&>enabled (Unchecking this box disables this group)</&><br />
</tr>
</table>
<& /Elements/Submit, Label => _('Save Changes'), Reset => 1 &>
@@ -81,7 +81,7 @@
<%INIT>
my $current_tab;
-my ($title, @results, $disabled, $EnabledChecked);
+my ($title, @results, $disabled, $enabled_checked);
my $Group = RT::Model::Group->new();
@@ -129,19 +129,19 @@
}
#we're asking about enabled on the web page but really care about disabled.
-if ($Enabled == 1) {
+if ($enabled == 1) {
$disabled = 0;
}
else {
$disabled = 1;
}
-if ( ($SetEnabled) and ( $disabled != $Group->disabled) ) {
+if ( ($set_enabled) and ( $disabled != $Group->disabled) ) {
my ($code, $msg) = $Group->set_disabled($disabled);
- push @results, _('Enabled status %1', _($msg));
+ push @results, _('enabled status %1', _($msg));
}
unless ($Group->disabled()) {
- $EnabledChecked ="CHECKED";
+ $enabled_checked ="CHECKED";
}
</%INIT>
@@ -151,7 +151,7 @@
$Create => undef
$name => undef
$description => undef
-$SetEnabled => undef
-$Enabled => undef
+$set_enabled => undef
+$enabled => undef
$id => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/User/Prefs.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/User/Prefs.html (original)
+++ rt/branches/3.999-DANGEROUS/html/User/Prefs.html Sat Feb 2 18:07:14 2008
@@ -194,7 +194,7 @@
<%INIT>
my $user_object = RT::Model::User->new();
-my ($title, $privilegedChecked, $EnabledChecked, $disabled, $result, @results);
+my ($title, $privilegedChecked, $enabled_checked, $disabled, $result, @results);
my ($val, $msg);
@@ -231,7 +231,7 @@
push (@results, at fieldresults);
-# {{{ Deal with special fields: privileged, Enabled, and password
+# {{{ Deal with special fields: privileged, enabled, and password
if ( ($set_privileged) and ( $privileged != $user_object->privileged) ) {
my ($code, $msg) = $user_object->set_privileged($privileged);
push @results, _('privileged status: %1', _($msg));
@@ -267,8 +267,8 @@
$nickname => undef
$privileged => undef
$set_privileged => undef
-$Enabled => undef
-$SetEnabled => undef
+$enabled => undef
+$set_enabled => undef
$lang => undef
$email_encoding => undef
$web_encoding => undef
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm Sat Feb 2 18:07:14 2008
@@ -82,7 +82,7 @@
set to true value to enable this subsystem:
set( %GnuPG,
- Enable => 1,
+ enable => 1,
... other options ...
);
@@ -104,7 +104,7 @@
set( %GnuPG,
... other options ...
- outgoing_messages_format => 'Inline',
+ outgoing_messages_format => 'inline',
... other options ...
);
@@ -119,7 +119,7 @@
agents (MUA), but some MUAs support only inline signatures and encryption,
so it's possible to use inline format (see below).
-=item Inline
+=item inline
This format doesn't take advantage of MIME, but some mail clients do
not support GPG/MIME.
@@ -266,11 +266,11 @@
=over 4
-=item $Message - user friendly error message
+=item $message - user friendly error message
-=item $Reason - short reason as listed above
+=item $reason - short reason as listed above
-=item $Recipient - recipient's identification
+=item $recipient - recipient's identification
=item $AddressObj - L<Mail::Address> object containing recipient's email address
@@ -278,13 +278,13 @@
A message can have several invalid recipients, to avoid sending many emails
to the RT owner the system sends one message to the owner, grouped by
-recipient. In the 'Error to RT owner: public key' template a C<@BadRecipients>
+recipient. In the 'Error to RT owner: public key' template a C<@bad_recipients>
array is available where each element is a hash reference that describes one
recipient using the same fields as described above. So it's something like:
- @BadRecipients = (
- { Message => '...', Reason => '...', Recipient => '...', ...},
- { Message => '...', Reason => '...', Recipient => '...', ...},
+ @bad_recipients = (
+ { message => '...', reason => '...', recipient => '...', ...},
+ { message => '...', reason => '...', recipient => '...', ...},
...
)
@@ -294,7 +294,7 @@
he sent an encrypted email, but we have no private key to decrypt
it.
-In this template C<$Message> object of L<MIME::Entity> class
+In this template C<$message> object of L<MIME::Entity> class
available. It's the message RT received.
=head3 Invalid data
@@ -305,7 +305,7 @@
There are several reasons for this error, but most of them are data
corruption or absence of expected information.
-In this template C<@Messages> array is available and contains list
+In this template C<@messages> array is available and contains list
of error messages.
=head1 FOR DEVELOPERS
@@ -391,16 +391,16 @@
=item Signing
-During signing you can pass C<Signer> argument to set key we sign with this option
-overrides gnupg's C<default-key> option. If C<Signer> argument is not provided
+During signing you can pass C<signer> argument to set key we sign with this option
+overrides gnupg's C<default-key> option. If C<signer> argument is not provided
then address of a message sender is used.
-As well you can pass C<Passphrase>, but if value is undefined then L</get_passphrase>
+As well you can pass C<passphrase>, but if value is undefined then L</get_passphrase>
called to get it.
=item Encrypting
-During encryption you can pass a C<Recipients> array, otherwise C<To>, C<Cc> and
+During encryption you can pass a C<recipients> array, otherwise C<To>, C<Cc> and
C<Bcc> fields of the message are used to fetch the list.
=back
@@ -419,18 +419,15 @@
my %args = (@_);
my $entity = $args{'entity'};
- if ( $args{'sign'} && !defined $args{'Signer'} ) {
- $args{'Signer'} = use_key_for_signing()
- || ( Mail::Address->parse( $entity->head->get('From') ) )[0]
- ->address;
+ if ( $args{'sign'} && !defined $args{'signer'} ) {
+ $args{'signer'} = use_key_for_signing() || ( Mail::Address->parse( $entity->head->get('From') ) )[0] ->address;
}
- if ( $args{'encrypt'} && !$args{'Recipients'} ) {
+ if ( $args{'encrypt'} && !$args{'recipients'} ) {
my %seen;
- $args{'Recipients'} = [
+ $args{'recipients'} = [
grep $_ && !$seen{$_}++,
map $_->address,
- map Mail::Address->parse( $entity->head->get($_) ),
- qw(To Cc Bcc)
+ map Mail::Address->parse( $entity->head->get($_) ), qw(To Cc Bcc)
];
}
@@ -475,7 +472,7 @@
if !defined $args{'passphrase'};
if ( $args{'sign'} && !defined $args{'passphrase'} ) {
- $args{'passphrase'} = get_passphrase( Address => $args{'signer'} );
+ $args{'passphrase'} = get_passphrase( address => $args{'signer'} );
}
my %res;
@@ -628,7 +625,7 @@
return _sign_encrypt_text_inline(@_)
if $entity->effective_type =~ /^text\//i;
- return _sign_encryptAttachmentInline(@_);
+ return _sign_encrypt_attachment_inline(@_);
}
sub _sign_encrypt_text_inline {
@@ -662,7 +659,7 @@
if !defined( $args{'passphrase'} );
if ( $args{'sign'} && !defined $args{'passphrase'} ) {
- $args{'passphrase'} = get_passphrase( Address => $args{'signer'} );
+ $args{'passphrase'} = get_passphrase( address => $args{'signer'} );
}
if ( $args{'encrypt'} ) {
@@ -755,7 +752,7 @@
if !defined( $args{'passphrase'} );
if ( $args{'sign'} && !defined $args{'passphrase'} ) {
- $args{'passphrase'} = get_passphrase( Address => $args{'signer'} );
+ $args{'passphrase'} = get_passphrase( address => $args{'signer'} );
}
my $entity = $args{'entity'};
@@ -863,7 +860,7 @@
if !defined( $args{'passphrase'} );
if ( $args{'sign'} && !defined $args{'passphrase'} ) {
- $args{'passphrase'} = get_passphrase( Address => $args{'signer'} );
+ $args{'passphrase'} = get_passphrase( address => $args{'signer'} );
}
if ( $args{'encrypt'} ) {
@@ -952,8 +949,8 @@
Jifty->log->debug("Found $type inline part");
return {
type => $type,
- format => 'Inline',
- Data => $entity,
+ format => 'inline',
+ data => $entity,
};
}
$io->close;
@@ -988,9 +985,9 @@
return {
type => 'encrypted',
format => 'RFC3156',
- Top => $entity,
- Data => $entity->parts(1),
- Info => $entity->parts(0),
+ top => $entity,
+ data => $entity->parts(1),
+ info => $entity->parts(0),
};
} else {
unless ( $protocol eq 'application/pgp-signature' ) {
@@ -1003,9 +1000,9 @@
return {
type => 'signed',
format => 'RFC3156',
- Top => $entity,
- Data => $entity->parts(0),
- Signature => $entity->parts(1),
+ top => $entity,
+ data => $entity->parts(0),
+ signature => $entity->parts(1),
};
}
}
@@ -1042,10 +1039,10 @@
push @res,
{
type => 'signed',
- format => 'Attachment',
- Top => $entity,
- Data => $data_part_in,
- Signature => $sig_part,
+ format => 'attachment',
+ top => $entity,
+ data => $data_part_in,
+ signature => $sig_part,
};
}
@@ -1064,9 +1061,9 @@
push @res,
{
type => 'encrypted',
- format => 'Attachment',
- Top => $entity,
- Data => $part,
+ format => 'attachment',
+ top => $entity,
+ data => $part,
};
}
@@ -1076,7 +1073,7 @@
return @res;
}
-=head2 verify_decrypt entity => undef, [ Detach => 1, Passphrase => undef ]
+=head2 verify_decrypt entity => undef, [ Detach => 1, passphrase => undef ]
=cut
@@ -1090,34 +1087,34 @@
if ( $item->{'format'} eq 'RFC3156' ) {
push @res, { verify_rfc3156(%$item) };
if ( $args{'detach'} ) {
- $item->{'Top'}->parts( [ $item->{'Data'} ] );
- $item->{'Top'}->make_singlepart;
+ $item->{'top'}->parts( [ $item->{'data'} ] );
+ $item->{'top'}->make_singlepart;
}
- } elsif ( $item->{'format'} eq 'Inline' ) {
+ } elsif ( $item->{'format'} eq 'inline' ) {
push @res, { verify_inline(%$item) };
- } elsif ( $item->{'format'} eq 'Attachment' ) {
+ } elsif ( $item->{'format'} eq 'attachment' ) {
push @res, { verify_attachment(%$item) };
if ( $args{'detach'} ) {
- $item->{'Top'}->parts(
- [ grep "$_" ne $item->{'Signature'},
- $item->{'Top'}->parts
+ $item->{'top'}->parts(
+ [ grep "$_" ne $item->{'signature'},
+ $item->{'top'}->parts
]
);
- $item->{'Top'}->make_singlepart;
+ $item->{'top'}->make_singlepart;
}
}
}
foreach my $item ( grep $_->{'type'} eq 'encrypted', @protected ) {
if ( $item->{'format'} eq 'RFC3156' ) {
push @res, { decrypt_rfc3156(%$item) };
- } elsif ( $item->{'format'} eq 'Inline' ) {
+ } elsif ( $item->{'format'} eq 'inline' ) {
push @res, { decrypt_inline(%$item) };
- } elsif ( $item->{'format'} eq 'Attachment' ) {
+ } elsif ( $item->{'format'} eq 'attachment' ) {
push @res, { decrypt_attachment(%$item) };
# if ( $args{'Detach'} ) {
-# $item->{'Top'}->parts( [ grep "$_" ne $item->{'Signature'}, $item->{'Top'}->parts ] );
-# $item->{'Top'}->make_singlepart;
+# $item->{'top'}->parts( [ grep "$_" ne $item->{'signature'}, $item->{'top'}->parts ] );
+# $item->{'top'}->make_singlepart;
# }
}
}
@@ -1489,9 +1486,9 @@
return %res;
}
-=head2 get_passphrase [ Address => undef ]
+=head2 get_passphrase [ address => undef ]
-Returns passphrase, called whenever it's required with Address as a named argument.
+Returns passphrase, called whenever it's required with address as a named argument.
=cut
@@ -1506,22 +1503,22 @@
array of hashes. Each element of array is a hash ref and represents line or
group of lines in the status message.
-All hashes have Operation, Status and Message elements.
+All hashes have operation, status and message elements.
=over
-=item Operation
+=item operation
-Classification of operations gnupg performs. Now we have support
-for Sign, Encrypt, Decrypt, Verify, PassphraseCheck, RecipientsCheck and Data
+classification of operations gnupg performs. Now we have support
+for Sign, Encrypt, Decrypt, verify, passphrase_check, recipients_check and data
values.
-=item Status
+=item status
Informs about success. Value is 'DONE' on success, other values means that
an operation failed, for example 'ERROR', 'BAD', 'MISSING' and may be other.
-=item Message
+=item message
User friendly message.
@@ -1569,19 +1566,19 @@
my %simple_keyword = (
NO_RECP => {
- Operation => 'RecipientsCheck',
- Status => 'ERROR',
- Message => 'No recipients',
+ operation => 'recipients_check',
+ status => 'ERROR',
+ message => 'No recipients',
},
UNEXPECTED => {
- Operation => 'Data',
- Status => 'ERROR',
- Message => 'Unexpected data has been encountered',
+ operation => 'data',
+ status => 'ERROR',
+ message => 'Unexpected data has been encountered',
},
BADARMOR => {
- Operation => 'Data',
- Status => 'ERROR',
- Message => 'The ASCII armor is corrupted',
+ operation => 'data',
+ status => 'ERROR',
+ message => 'The ASCII armor is corrupted',
},
);
@@ -1636,13 +1633,13 @@
if ( $keyword eq 'USERID_HINT' ) {
my %tmp = _parse_user_hint( $status, $line );
- $latest_user_main_key = $tmp{'MainKey'};
- if ( $user_hint{ $tmp{'MainKey'} } ) {
+ $latest_user_main_key = $tmp{'main_key'};
+ if ( $user_hint{ $tmp{'main_key'} } ) {
while ( my ( $k, $v ) = each %tmp ) {
- $user_hint{ $tmp{'MainKey'} }->{$k} = $v;
+ $user_hint{ $tmp{'main_key'} }->{$k} = $v;
}
} else {
- $user_hint{ $tmp{'MainKey'} } = \%tmp;
+ $user_hint{ $tmp{'main_key'} } = \%tmp;
}
next;
} elsif ( $keyword eq 'BAD_PASSPHRASE'
@@ -1650,49 +1647,49 @@
{
my $key_id = $args;
my %res = (
- Operation => 'PassphraseCheck',
- Status => $keyword eq 'BAD_PASSPHRASE' ? 'BAD' : 'DONE',
+ operation => 'passphrase_check',
+ status => $keyword eq 'BAD_PASSPHRASE' ? 'BAD' : 'DONE',
Key => $key_id,
);
- $res{'Status'} = 'MISSING'
+ $res{'status'} = 'MISSING'
if $status[ $i - 1 ] =~ /^MISSING_PASSPHRASE/;
foreach my $line ( reverse @status[ 0 .. $i - 1 ] ) {
next
unless $line
=~ /^NEED_PASSPHRASE\s+(\S+)\s+(\S+)\s+(\S+)/;
next if $key_id && $2 ne $key_id;
- @res{ 'MainKey', 'Key', 'KeyType' } = ( $1, $2, $3 );
+ @res{ 'main_key', 'Key', 'key_type' } = ( $1, $2, $3 );
last;
}
- $res{'Message'}
+ $res{'message'}
= ucfirst(
- lc( $res{'Status'} eq 'DONE' ? 'GOOD' : $res{'Status'} ) )
+ lc( $res{'status'} eq 'DONE' ? 'GOOD' : $res{'status'} ) )
. ' passphrase';
- $res{'User'} = ( $user_hint{ $res{'MainKey'} } ||= {} )
- if $res{'MainKey'};
- if ( exists $res{'User'}->{'email'} ) {
- $res{'Message'} .= ' for ' . $res{'User'}->{'email'};
+ $res{'user'} = ( $user_hint{ $res{'main_key'} } ||= {} )
+ if $res{'main_key'};
+ if ( exists $res{'user'}->{'email'} ) {
+ $res{'message'} .= ' for ' . $res{'user'}->{'email'};
} else {
- $res{'Message'} .= " for '0x$key_id'";
+ $res{'message'} .= " for '0x$key_id'";
}
push @res, \%res;
} elsif ( $keyword eq 'END_ENCRYPTION' ) {
my %res = (
- Operation => 'encrypt',
- Status => 'DONE',
- Message => 'Data has been encrypted',
+ operation => 'encrypt',
+ status => 'DONE',
+ message => 'Data has been encrypted',
);
foreach my $line ( reverse @status[ 0 .. $i - 1 ] ) {
next unless $line =~ /^BEGIN_ENCRYPTION\s+(\S+)\s+(\S+)/;
- @res{ 'MdcMethod', 'SymAlgo' } = ( $1, $2 );
+ @res{ 'MdcMethod', 'Symalgo' } = ( $1, $2 );
last;
}
push @res, \%res;
} elsif ( $keyword eq 'DECRYPTION_FAILED'
|| $keyword eq 'DECRYPTION_OKAY' )
{
- my %res = ( Operation => 'Decrypt' );
- @res{ 'Status', 'Message' }
+ my %res = ( operation => 'Decrypt' );
+ @res{ 'status', 'message' }
= $keyword eq 'DECRYPTION_FAILED'
? ( 'ERROR', 'Decryption failed' )
: ( 'DONE', 'Decryption process succeeded' );
@@ -1702,11 +1699,11 @@
my ( $key, $alg, $key_length ) = ( $1, $2, $3 );
my %encrypted_to = (
- Message => "The message is encrypted to '0x$key'",
- User => ( $user_hint{$key} ||= {} ),
- Key => $key,
- KeyLength => $key_length,
- Algorithm => $alg,
+ message => "The message is encrypted to '0x$key'",
+ user => ( $user_hint{$key} ||= {} ),
+ key => $key,
+ key_length => $key_length,
+ algorithm => $alg,
);
push @{ $res{'EncryptedTo'} ||= [] }, \%encrypted_to;
@@ -1717,50 +1714,50 @@
my ($key) = split /\s+/, $args;
my $type = $keyword eq 'NO_SECKEY' ? 'secret' : 'public';
my %res = (
- Operation => 'KeyCheck',
- Status => 'MISSING',
- Message => ucfirst($type) . " key '0x$key' is not available",
- Key => $key,
- KeyType => $type,
+ operation => 'KeyCheck',
+ status => 'MISSING',
+ message => ucfirst($type) . " key '0x$key' is not available",
+ key => $key,
+ key_type => $type,
);
- $res{'User'} = ( $user_hint{$key} ||= {} );
- $res{'User'}{ ucfirst($type) . 'KeyMissing' } = 1;
+ $res{'user'} = ( $user_hint{$key} ||= {} );
+ $res{'user'}{ ucfirst($type) . 'KeyMissing' } = 1;
push @res, \%res;
}
# GOODSIG, BADSIG, VALIDSIG, TRUST_*
elsif ( $keyword eq 'GOODSIG' ) {
my %res = (
- Operation => 'Verify',
- Status => 'DONE',
- Message => 'The signature is good',
+ operation => 'verify',
+ status => 'DONE',
+ message => 'The signature is good',
);
- @res{qw(Key UserString)} = split /\s+/, $args, 2;
- $res{'Message'} .= ', signed by ' . $res{'UserString'};
+ @res{qw(key userstring)} = split /\s+/, $args, 2;
+ $res{'message'} .= ', signed by ' . $res{'userstring'};
foreach my $line ( @status[ $i .. $#status ] ) {
next unless $line =~ /^TRUST_(\S+)/;
- $res{'Trust'} = $1;
+ $res{'trust'} = $1;
last;
}
- $res{'Message'}
- .= ', trust level is ' . lc( $res{'Trust'} || 'unknown' );
+ $res{'message'}
+ .= ', trust level is ' . lc( $res{'trust'} || 'unknown' );
foreach my $line ( @status[ $i .. $#status ] ) {
next unless $line =~ /^VALIDSIG\s+(.*)/;
@res{
qw(
- Fingerprint
- CreationDate
- Timestamp
- ExpireTimestamp
- Version
- Reserved
- PubkeyAlgo
- HashAlgo
- Class
+ fingerprint
+ creation_date
+ timestamp
+ expire_timestamp
+ version
+ reserved
+ rubkey_algo
+ hash_algo
+ class
PKFingerprint
- Other
+ other
)
}
= split /\s+/, $1, 10;
@@ -1769,24 +1766,24 @@
push @res, \%res;
} elsif ( $keyword eq 'BADSIG' ) {
my %res = (
- Operation => 'Verify',
- Status => 'BAD',
- Message => 'The signature has not been verified okay',
+ operation => 'verify',
+ status => 'BAD',
+ message => 'The signature has not been verified okay',
);
- @res{qw(Key UserString)} = split /\s+/, $args, 2;
+ @res{qw(Key userstring)} = split /\s+/, $args, 2;
push @res, \%res;
} elsif ( $keyword eq 'ERRSIG' ) {
my %res = (
- Operation => 'Verify',
- Status => 'ERROR',
- Message => 'Not possible to check the signature',
+ operation => 'verify',
+ status => 'ERROR',
+ message => 'Not possible to check the signature',
);
- @res{qw(Key PubkeyAlgo HashAlgo Class Timestamp ReasonCode Other)}
+ @res{qw(Key Pubkeyalgo Hashalgo class Timestamp reason_code Other)}
= split /\s+/, $args, 7;
- $res{'Reason'}
- = reason_code_to_text( $keyword, $res{'ReasonCode'} );
- $res{'Message'} .= ", the reason is " . $res{'Reason'};
+ $res{'reason'}
+ = reason_code_to_text( $keyword, $res{'reason_code'} );
+ $res{'message'} .= ", the reason is " . $res{'reason'};
push @res, \%res;
} elsif ( $keyword eq 'SIG_CREATED' ) {
@@ -1795,18 +1792,18 @@
my @props = split /\s+/, $args;
push @res,
{
- Operation => 'sign',
- Status => 'DONE',
- Message => "Signed message",
+ operation => 'sign',
+ status => 'DONE',
+ message => "Signed message",
type => $props[0],
- PubKeyAlgo => $props[1],
- HashKeyAlgo => $props[2],
- Class => $props[3],
- Timestamp => $props[4],
- KeyFingerprint => $props[5],
- User => $user_hint{$latest_user_main_key},
+ pub_key_algo => $props[1],
+ hash_key_algo => $props[2],
+ class => $props[3],
+ timestamp => $props[4],
+ key_fingerprint => $props[5],
+ user => $user_hint{$latest_user_main_key},
};
- $res[-1]->{Message}
+ $res[-1]->{message}
.= ' by ' . $user_hint{$latest_user_main_key}->{'email'}
if $user_hint{$latest_user_main_key};
} elsif ( $keyword eq 'INV_RECP' ) {
@@ -1814,24 +1811,24 @@
my $reason = reason_code_to_text( $keyword, $rcode );
push @res,
{
- Operation => 'RecipientsCheck',
- Status => 'ERROR',
- Message =>
+ operation => 'recipients_check',
+ status => 'ERROR',
+ message =>
"Recipient '$recipient' is unusable, the reason is '$reason'",
- Recipient => $recipient,
- ReasonCode => $rcode,
- Reason => $reason,
+ recipient => $recipient,
+ reason_code => $rcode,
+ reason => $reason,
};
} elsif ( $keyword eq 'NODATA' ) {
my $rcode = ( split /\s+/, $args )[0];
my $reason = reason_code_to_text( $keyword, $rcode );
push @res,
{
- Operation => 'Data',
- Status => 'ERROR',
- Message => "No data has been found. The reason is '$reason'",
- ReasonCode => $rcode,
- Reason => $reason,
+ operation => 'data',
+ status => 'ERROR',
+ message => "No data has been found. The reason is '$reason'",
+ reason_code => $rcode,
+ reason => $reason,
};
} else {
Jifty->log->warn("Keyword $keyword is unknown");
@@ -1848,8 +1845,8 @@
= ( $hint =~ /^USERID_HINT\s+(\S+)\s+(.*)$/ );
return () unless $main_key_id;
return (
- MainKey => $main_key_id,
- String => $user_str,
+ main_key => $main_key_id,
+ string => $user_str,
email => ( map $_->address, Mail::Address->parse($user_str) )[0],
);
}
@@ -1859,8 +1856,8 @@
my %res = map { lc $_ => $opt{$_} } grep $supported_opt{ lc $_ },
keys %opt;
$res{'extra_args'} ||= [];
- foreach my $o ( grep !$supported_opt{ lc $_ }, keys %opt ) {
- push @{ $res{'extra_args'} }, '--' . lc $o;
+ foreach my $o ( grep !$supported_opt{ $_ }, keys %opt ) {
+ push @{ $res{'extra_args'} }, '--' . $o;
push @{ $res{'extra_args'} }, $opt{$o}
if defined $opt{$o};
}
@@ -1925,14 +1922,14 @@
foreach my $key ( splice @{ $res{'info'} } ) {
# skip disabled keys
- next if $key->{'Capabilities'} =~ /D/;
+ next if $key->{'capabilities'} =~ /D/;
# skip keys not suitable for encryption
- next unless $key->{'Capabilities'} =~ /e/i;
+ next unless $key->{'capabilities'} =~ /e/i;
# skip disabled, expired, revoke and keys with no trust,
# but leave keys with unknown trust level
- next if $key->{'TrustLevel'} < 0;
+ next if $key->{'trust_level'} < 0;
push @{ $res{'info'} }, $key;
}
@@ -1957,7 +1954,7 @@
my %res = get_keys_for_encryption($address);
if ( $res{'info'}
&& @{ $res{'info'} } == 1
- && $res{'info'}[0]{'TrustLevel'} > 0 )
+ && $res{'info'}[0]{'trust_level'} > 0 )
{
# good, one suitable and trusted key
@@ -1972,8 +1969,8 @@
if ( my $fpr = use_key_for_encryption($address) ) {
if ( $res{'info'} && @{ $res{'info'} } ) {
next
- if grep lc $_->{'Fingerprint'} eq lc $fpr,
- grep $_->{'TrustLevel'} > 0, @{ $res{'info'} };
+ if grep lc $_->{'fingerprint'} eq lc $fpr,
+ grep $_->{'trust_level'} > 0, @{ $res{'info'} };
}
$status = 0;
@@ -1982,7 +1979,7 @@
$user ? ( User => $user ) : (),
Keys => undef,
);
- $issue{'Message'}
+ $issue{'message'}
= "Selected key either is not trusted or doesn't exist anymore."
; #loc
push @issues, \%issue;
@@ -2005,18 +2002,18 @@
unless ( $res{'info'} && @{ $res{'info'} } ) {
# no key
- $issue{'Message'}
+ $issue{'message'}
= "There is no key suitable for encryption."; #loc
- } elsif ( @{ $res{'info'} } == 1 && !$res{'info'}[0]{'TrustLevel'} ) {
+ } elsif ( @{ $res{'info'} } == 1 && !$res{'info'}[0]{'trust_level'} ) {
# trust is not set
- $issue{'Message'}
+ $issue{'message'}
= "There is one suitable key, but trust level is not set."
; #loc
} else {
# multiple keys
- $issue{'Message'}
+ $issue{'message'}
= "There are several keys suitable for encryption."; #loc
}
push @issues, \%issue;
@@ -2122,9 +2119,9 @@
my %info;
@info{
qw(
- TrustChar KeyLength Algorithm Key
- Created Expire Empty OwnerTrustChar
- Empty Empty Capabilities Other
+ trust_char key_length algorithm Key
+ created expire empty owner_trust_char
+ empty empty capabilities Other
)
}
= split /:/, $line, 12;
@@ -2138,39 +2135,39 @@
$always_trust = 1
if exists $gpg_opt{'trust-model'}
&& $gpg_opt{'trust-model'} eq 'always';
- @info{qw(Trust TrustTerse TrustLevel)}
- = _convert_trust_char( $info{'TrustChar'} );
- if ( $always_trust && $info{'TrustLevel'} >= 0 ) {
- @info{qw(Trust TrustTerse TrustLevel)}
+ @info{qw(trust trust_terse trust_level)}
+ = _convert_trust_char( $info{'trust_char'} );
+ if ( $always_trust && $info{'trust_level'} >= 0 ) {
+ @info{qw(trust trust_terse trust_level)}
= _convert_trust_char('u');
}
- @info{qw(OwnerTrust OwnerTrustTerse OwnerTrustLevel)}
- = _convert_trust_char( $info{'OwnerTrustChar'} );
- $info{$_} = _parse_date( $info{$_} ) foreach qw(Created Expire);
+ @info{qw(owner_trust owner_trust_terse owner_trust_level)}
+ = _convert_trust_char( $info{'owner_trust_char'} );
+ $info{$_} = _parse_date( $info{$_} ) foreach qw(created expire);
push @res, \%info;
} elsif ( $tag eq 'sec' ) {
my %info;
@info{
qw(
- Empty KeyLength Algorithm Key
- Created Expire Empty OwnerTrustChar
- Empty Empty Capabilities Other
+ empty key_length algorithm Key
+ created expire empty owner_trust_char
+ empty empty capabilities Other
)
}
= split /:/, $line, 12;
- @info{qw(OwnerTrust OwnerTrustTerse OwnerTrustLevel)}
- = _convert_trust_char( $info{'OwnerTrustChar'} );
- $info{$_} = _parse_date( $info{$_} ) foreach qw(Created Expire);
+ @info{qw(owner_trust owner_trust_terse owner_trust_level)}
+ = _convert_trust_char( $info{'owner_trust_char'} );
+ $info{$_} = _parse_date( $info{$_} ) foreach qw(created expire);
push @res, \%info;
} elsif ( $tag eq 'uid' ) {
my %info;
- @info{qw(Trust Created Expire String)}
+ @info{qw(trust created expire string)}
= ( split /:/, $line )[ 0, 4, 5, 8 ];
- $info{$_} = _parse_date( $info{$_} ) foreach qw(Created Expire);
+ $info{$_} = _parse_date( $info{$_} ) foreach qw(created expire);
push @{ $res[-1]{'User'} ||= [] }, \%info;
} elsif ( $tag eq 'fpr' ) {
- $res[-1]{'Fingerprint'} = ( split /:/, $line, 10 )[8];
+ $res[-1]{'fingerprint'} = ( split /:/, $line, 10 )[8];
}
}
return @res;
@@ -2400,7 +2397,7 @@
sign => 1,
encrypt => 0,
entity => $mime,
- Signer => $from,
+ signer => $from,
);
return $res{exit_code} == 0;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm Sat Feb 2 18:07:14 2008
@@ -329,7 +329,7 @@
$args{'ticket'} = $args{'transaction'}->object;
}
- if ( RT->config->get('GnuPG')->{'Enable'} ) {
+ if ( RT->config->get('GnuPG')->{'enable'} ) {
my %crypt;
my $attachment;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm Sat Feb 2 18:07:14 2008
@@ -497,10 +497,10 @@
return ()
unless $args{ARGSRef}->{'UpdateTimeWorked'}
|| $args{ARGSRef}->{'UpdateAttachments'}
- || $args{ARGSRef}->{'UpdateContent'};
+ || $args{ARGSRef}->{'update_content'};
- $args{ARGSRef}->{'UpdateContent'} =~ s/\r+\n/\n/g
- if $args{ARGSRef}->{'UpdateContent'};
+ $args{ARGSRef}->{'update_content'} =~ s/\r+\n/\n/g
+ if $args{ARGSRef}->{'update_content'};
# skip updates if the content contains only user's signature
# and we don't update other fields
@@ -508,7 +508,7 @@
my $sig = $args{'ticket_obj'}->current_user->user_object->signature
|| '';
$sig =~ s/^\s*|\s*$//g;
- if ( $args{ARGSRef}->{'UpdateContent'} =~ /^\s*(--)?\s*\Q$sig\E\s*$/ )
+ if ( $args{ARGSRef}->{'update_content'} =~ /^\s*(--)?\s*\Q$sig\E\s*$/ )
{
return ()
unless $args{ARGSRef}->{'UpdateTimeWorked'}
@@ -516,7 +516,7 @@
# we have to create transaction, but we don't create attachment
# XXX: this couldn't work as expected
- $args{ARGSRef}->{'UpdateContent'} = '';
+ $args{ARGSRef}->{'update_content'} = '';
}
}
@@ -526,7 +526,7 @@
my $Message = make_mime_entity(
subject => $args{ARGSRef}->{'Updatesubject'},
- Body => $args{ARGSRef}->{'UpdateContent'},
+ Body => $args{ARGSRef}->{'update_content'},
type => $args{ARGSRef}->{'Updatecontent_type'},
);
@@ -566,7 +566,7 @@
}
my $bcc = $args{ARGSRef}->{'UpdateBcc'};
- my $cc = $args{ARGSRef}->{'UpdateCc'};
+ my $cc = $args{ARGSRef}->{'update_cc'};
my %message_args = (
cc_message_to => $cc,
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm Sat Feb 2 18:07:14 2008
@@ -135,7 +135,7 @@
require RT::ScripAction::SendEmail;
RT::ScripAction::SendEmail->clean_slate;
- if ( RT->config->get('GnuPG')->{'Enable'} ) {
+ if ( RT->config->get('GnuPG')->{'enable'} ) {
require RT::Crypt::GnuPG;
RT::Crypt::GnuPG::use_key_for_encryption();
RT::Crypt::GnuPG::use_key_for_signing(undef);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm Sat Feb 2 18:07:14 2008
@@ -598,7 +598,7 @@
return ( 0, _('Permission Denied') )
unless $txn->ticket_obj->current_user_has_right('ModifyTicket');
return ( 0, _('GnuPG integration is disabled') )
- unless RT->config->get('GnuPG')->{'Enable'};
+ unless RT->config->get('GnuPG')->{'enable'};
return ( 0, _('Attachments encryption is disabled') )
unless RT->config->get('GnuPG')->{'AllowEncryptDataInDB'};
@@ -662,7 +662,7 @@
return ( 0, _('Permission Denied') )
unless $txn->ticket_obj->current_user_has_right('ModifyTicket');
return ( 0, _('GnuPG integration is disabled') )
- unless RT->config->get('GnuPG')->{'Enable'};
+ unless RT->config->get('GnuPG')->{'enable'};
require RT::Crypt::GnuPG;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm Sat Feb 2 18:07:14 2008
@@ -1390,7 +1390,7 @@
sub preferred_key {
my $self = shift;
- return undef unless RT->config->get('GnuPG')->{'Enable'};
+ return undef unless RT->config->get('GnuPG')->{'enable'};
my $prefkey = $self->first_attribute('preferred_key');
return $prefkey->content if $prefkey;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm Sat Feb 2 18:07:14 2008
@@ -105,7 +105,7 @@
my $orig_message;
if ( RT->config->get('RecordOutgoingEmail')
- && RT->config->get('GnuPG')->{'Enable'} )
+ && RT->config->get('GnuPG')->{'enable'} )
{
# it's hacky, but we should know if we're going to crypt things
@@ -285,7 +285,7 @@
return (@addresses);
}
-=head2 SendMessage mime_obj
+=head2 send_message mime_obj
sends the message using RT's preferred API.
TODO: Break this out to a separate module
Modified: rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/pubring.gpg
==============================================================================
Binary files. No diff available.
Modified: rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/secring.gpg
==============================================================================
Binary files. No diff available.
Modified: rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/signed_old_style_with_attachment.eml
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/signed_old_style_with_attachment.eml (original)
+++ rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/signed_old_style_with_attachment.eml Sat Feb 2 18:07:14 2008
@@ -21,7 +21,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
-comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
+Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFFoQADtaRiGUNF96URAmHSAKCDdVnRJ2gb1idhE1ZXEg1JARalsQCgkaU8
74cnNxVyp/0XwBA73qzkvx0=
Modified: rt/branches/3.999-DANGEROUS/lib/t/data/crypt-gnupg/trustdb.gpg
==============================================================================
Binary files. No diff available.
Modified: rt/branches/3.999-DANGEROUS/share/po/cs.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/cs.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/cs.po Sat Feb 2 18:07:14 2008
@@ -2042,33 +2042,33 @@
msgstr "Kódování emailu"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Povolena (zrušením zatrhnutí zablokujete tuto uživatelskou položky)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Povolena (zrušením zatrhnutí zablokujete tuto skupinu)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Povoleno (zrušení zatrhnutí zablokuje tuto frontu)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Povolené uživatelské položky"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Povolené fronty"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Povolen stav %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Povolen stav: 1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/da.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/da.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/da.po Sat Feb 2 18:07:14 2008
@@ -2292,24 +2292,24 @@
#: html/Admin/CustomFields/Modify.html:98
#: html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktiveret (fravalg af denne boks deaktiverer dette ekstrafelt)"
#: html/Admin/Groups/Modify.html:84
#: html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktiveret (fravalg af denne boks deaktiverer denne gruppe)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktiveret (fravalg af denne boks deaktiverer denne kø)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Aktiverede ekstrafelter"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktiverede køer"
#. (_($msg))
@@ -2317,13 +2317,13 @@
#: html/Admin/Groups/Modify.html:150
#: html/Admin/Users/Modify.html:350
#: html/User/Groups/Modify.html:138
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Aktiveret status %1"
#. (_($msg))
#: html/Admin/CustomFields/Modify.html:185
#: html/Admin/Queues/Modify.html:162
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Aktiveret status: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/de.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/de.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/de.po Sat Feb 2 18:07:14 2008
@@ -1786,29 +1786,29 @@
# ## muss das überhaupt übersetzt werden???
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktiviert (Abwählen deaktiviert dieses benutzerdefinierte Feld)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktiviert (Abwählen deaktiviert diese Gruppe)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktiviert (Abwählen deaktiviert diesen Bereich)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktivierte Bereiche"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Status aktiviert: %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Status aktiviert: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/es.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/es.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/es.po Sat Feb 2 18:07:14 2008
@@ -2176,34 +2176,34 @@
msgstr "Codificación para el correo"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Habilitado (Desmarcar esta caja deshabilita este campo personalizable)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Habilitado (Desmarcar esta caja deshabilita este campo personalizable)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Habilitado (Desmarcar esta caja, deshabilita esta cola)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Campos Personalizables Habilitados"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Colas habilitadas"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Estado %1 habilitado"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Estado habilitado: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/fi.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/fi.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/fi.po Sat Feb 2 18:07:14 2008
@@ -2051,29 +2051,29 @@
msgstr "Sähköpostin koodaus"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktiivinen (rastin poistaminen passivoi kentän)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktiivinen (rastin poistaminen passivoi ryhmän)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktiivinen (rastin poistaminen passivoi työjonon)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktiiviset työjonot"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Aktivoitu tila %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/fr.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/fr.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/fr.po Sat Feb 2 18:07:14 2008
@@ -1650,29 +1650,29 @@
msgstr "Adresse email utilisée"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Activé (Décocher cette case désactive ce champ personnalisé)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Activé (Décocher cette case désactive ce groupe)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Activé (Décocher cette case désactive cette file)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Files actives"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "État %1 activé"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "État actif : %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/he.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/he.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/he.po Sat Feb 2 18:07:14 2008
@@ -1701,29 +1701,29 @@
msgstr ""
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr ""
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "מופעל (מחיקת סימון תיבה זו מבטלת את קבוצה זו)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr ""
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr ""
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr ""
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/hu.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/hu.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/hu.po Sat Feb 2 18:07:14 2008
@@ -1648,29 +1648,29 @@
# ## muss das überhaupt übersetzt werden???
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktivált (kiválasztása letiltja ezt az egyéni mezõt)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktivált (Kiválasztása letiltja ezt a csoportot)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktivált (Kiválasztása letiltja ezt a sort)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktív sorok"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Status %1 aktiviert"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/id.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/id.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/id.po Sat Feb 2 18:07:14 2008
@@ -1771,29 +1771,29 @@
msgstr "Set Karakter Email"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Mengaktifkan (Klik kotak ini untuk menon-aktifkan kolom kustom)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Mengaktifkan (Klik kotak ini untuk menon-aktifkan grup ini)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Mengaktifkan (Klik kotak ini untuk menon-aktifkan antrian ini)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Mengaktifkan Antrian"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Mengaktifkan status %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Mengaktifkan status: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/it.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/it.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/it.po Sat Feb 2 18:07:14 2008
@@ -2230,33 +2230,33 @@
msgstr "CodificaEmail"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Abilitato (togliere il segno di spunta per disabilitare questo campo personalizzato)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Abilitato (togliere il segno di spunta per disabilitare questo gruppo)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Abilitato (togliere il segno di spunta per disabilitare questa coda)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Campi personalizzati abilitati"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Code abilitate"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Stato %1 abilitato"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Stato abilitato: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/ja.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/ja.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/ja.po Sat Feb 2 18:07:14 2008
@@ -1947,29 +1947,29 @@
msgstr "Eメールエンコーディング"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr ""
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr ""
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "有効になりました（もう一度このボックスをチェックするとこのキューは有効でなくなります）"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "有効なキュー"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "有効なステータス%1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/nl.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/nl.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/nl.po Sat Feb 2 18:07:14 2008
@@ -2065,29 +2065,29 @@
msgstr "E-mailCodering"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr ""
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr ""
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Actief (Het uitvinken van dit hokje zal deze rij deactiveren)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Actieve Rijen"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Actieve status %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/no.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/no.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/no.po Sat Feb 2 18:07:14 2008
@@ -2218,33 +2218,33 @@
msgstr "EpostFormat"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktivt (Fjern merkingen for å deaktivere dette fleksifeltet)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktiv (Fjern merkingen for å deaktivere denne gruppen)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktiv (Fjern merkingen for å deaktivere denne køen)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Aktive Fleksifelt"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktive Køer"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Aktiv status %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/pl.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/pl.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/pl.po Sat Feb 2 18:07:14 2008
@@ -2240,41 +2240,41 @@
msgstr "kodowanie e-maila"
#: NOT FOUND IN SOURCE
-msgid "Enabled (Unchecking this box disables this Class)"
+msgid "enabled (Unchecking this box disables this Class)"
msgstr "Udostępniona (nieoznaczenie tego pola spowoduje, że klasa będzie niedostępna)"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Udostępnione (nieoznaczenie tego pola spowoduje, że pole będzie niedostępne)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Udostępniona (nieoznaczenie tego pola spowoduje, że grupa będzie niedostępna)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Udostępniona (nieoznaczenie tego pola spowoduje, że kolejka będzie niedostępna)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Classes"
+msgid "enabled Classes"
msgstr "Dostępne klasy"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Dostępne pola definiowane przez użytkownika"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Dostępne kolejki"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Dostępny status %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Statut actif: %1"
#: NOT FOUND IN SOURCE
Modified: rt/branches/3.999-DANGEROUS/share/po/pt_br.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/pt_br.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/pt_br.po Sat Feb 2 18:07:14 2008
@@ -2202,33 +2202,33 @@
msgstr "Codificação de Email"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Habilitado (Deselecionando este ítem desabilita este campo personalizado)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Habilitado (Deselecionando este ítem desabilita este grupo)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Habilitado (desassinalando desabilita esta fila)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Campos Personalizados Habilitados"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Filas Habilitadas"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Estado %1 habilitado"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr ""
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/ru.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/ru.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/ru.po Sat Feb 2 18:07:14 2008
@@ -2264,33 +2264,33 @@
msgstr "email_encoding"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Используется (снятие отметки отключает использование этого дополнительного поля)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Используется (снятие отметки отключает использование этой группы)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Используется (снятие отметки отключает использование этой очереди)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "Используемые дополнительные поля"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Используемые очереди"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Активирован статус %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Активирован статус: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/sv.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/sv.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/sv.po Sat Feb 2 18:07:14 2008
@@ -1826,20 +1826,20 @@
#: html/Admin/CustomFields/Modify.html:98
#: html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Aktiverad (Bortval av denna box deaktiverar detta extrafält)"
#: html/Admin/Groups/Modify.html:84
#: html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Aktiverad (Bortval av denna box deaktiverar denna grupp)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Aktiverad (Bortval av denna box deaktiverar denna kö)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Aktiverade köer"
#. (_($msg))
@@ -1847,13 +1847,13 @@
#: html/Admin/Groups/Modify.html:150
#: html/Admin/Users/Modify.html:350
#: html/User/Groups/Modify.html:138
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Aktiverad status %1"
#. (_($msg))
#: html/Admin/CustomFields/Modify.html:185
#: html/Admin/Queues/Modify.html:162
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Aktiverad status: %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/tr.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/tr.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/tr.po Sat Feb 2 18:07:14 2008
@@ -1622,29 +1622,29 @@
msgstr "Eposta adresi kullanımda"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "Etkinleştirildi (Bu kutudaki işareti kaldırmak, bu özel bölümü iptal eder)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "Etkinleştirildi (Bu kutudaki işareti kaldırmak, bu grubu iptal eder)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "Etkinleştirildi (Bu kutudaki işareti kaldırmak, bu kuyruğu iptal eder)"
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "Etkinleştirilmiş Kuyruklar"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "Etkinleştirilme durumu %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "Etkinleştirilme durumu %1"
#: lib/RT/CustomField_Overlay.pm:64
Modified: rt/branches/3.999-DANGEROUS/share/po/zh_cn.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/zh_cn.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/zh_cn.po Sat Feb 2 18:07:14 2008
@@ -2354,7 +2354,7 @@
msgstr "代理人"
#: NOT FOUND IN SOURCE
-msgid "Delegates Enabled Status"
+msgid "Delegates enabled Status"
msgstr "代理激活状态"
#: NOT FOUND IN SOURCE
@@ -2817,45 +2817,45 @@
msgstr "代理激活"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "启用(取消勾选将停用此自订字段)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "启用(取消勾选将停用此群组)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "启用(取消勾选将停用此表单)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "已启用的自订字段"
#: NOT FOUND IN SOURCE
-msgid "Enabled Date"
+msgid "enabled Date"
msgstr "启用日期"
#: NOT FOUND IN SOURCE
-msgid "Enabled Date:"
+msgid "enabled Date:"
msgstr "激活日期："
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "已启用的表单"
#: NOT FOUND IN SOURCE
-msgid "Enabled Status"
+msgid "enabled Status"
msgstr "启用状态"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "启用状态 %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "启用状态: %1"
#: NOT FOUND IN SOURCE
Modified: rt/branches/3.999-DANGEROUS/share/po/zh_tw.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/zh_tw.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/zh_tw.po Sat Feb 2 18:07:14 2008
@@ -2354,7 +2354,7 @@
msgstr "代理人"
#: NOT FOUND IN SOURCE
-msgid "Delegates Enabled Status"
+msgid "Delegates enabled Status"
msgstr "代理啟動狀態"
#: NOT FOUND IN SOURCE
@@ -2817,45 +2817,45 @@
msgstr "代理啟動"
#: html/Admin/CustomFields/Modify.html:98 html/Admin/Elements/EditCustomField:72
-msgid "Enabled (Unchecking this box disables this custom field)"
+msgid "enabled (Unchecking this box disables this custom field)"
msgstr "啟用(取消勾選將停用此自訂欄位)"
#: html/Admin/Groups/Modify.html:84 html/User/Groups/Modify.html:74
-msgid "Enabled (Unchecking this box disables this group)"
+msgid "enabled (Unchecking this box disables this group)"
msgstr "啟用(取消勾選將停用此群組)"
#: html/Admin/Queues/Modify.html:105
-msgid "Enabled (Unchecking this box disables this queue)"
+msgid "enabled (Unchecking this box disables this queue)"
msgstr "啟用(取消勾選將停用此表單)"
#: NOT FOUND IN SOURCE
-msgid "Enabled Custom Fields"
+msgid "enabled Custom Fields"
msgstr "已啟用的自訂欄位"
#: NOT FOUND IN SOURCE
-msgid "Enabled Date"
+msgid "enabled Date"
msgstr "啟用日期"
#: NOT FOUND IN SOURCE
-msgid "Enabled Date:"
+msgid "enabled Date:"
msgstr "啟動日期："
#: html/Admin/Queues/index.html:78
-msgid "Enabled Queues"
+msgid "enabled Queues"
msgstr "已啟用的表單"
#: NOT FOUND IN SOURCE
-msgid "Enabled Status"
+msgid "enabled Status"
msgstr "啟用狀態"
#: html/Admin/Elements/EditCustomField:136 html/Admin/Groups/Modify.html:150 html/Admin/Users/Modify.html:350 html/User/Groups/Modify.html:138
#. (_($msg))
-msgid "Enabled status %1"
+msgid "enabled status %1"
msgstr "啟用狀態 %1"
#: html/Admin/CustomFields/Modify.html:185 html/Admin/Queues/Modify.html:162
#. (_($msg))
-msgid "Enabled status: %1"
+msgid "enabled status: %1"
msgstr "啟用狀態: %1"
#: NOT FOUND IN SOURCE
Modified: rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t Sat Feb 2 18:07:14 2008
@@ -7,8 +7,6 @@
plan tests => 94;
-RT->config->set( LogToScreen => 'debug' );
-RT->config->set( LogStackTraces => 'error' );
use Data::Dumper;
use File::Spec ();
@@ -20,7 +18,7 @@
use_ok('MIME::Entity');
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
@@ -34,16 +32,16 @@
Subject => 'test',
Data => ['test'],
);
- my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, Passphrase => 'test' );
+ my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, passphrase => 'test' );
ok( $entity, 'signed entity');
ok( !$res{'logger'}, "log is here as well" );
warn $res{'logger'};
my @status = RT::Crypt::GnuPG::parse_status( $res{'status'} );
is( scalar @status, 2, 'two records: passphrase, signing');
- is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct');
- is( $status[0]->{'Status'}, 'DONE', 'good passphrase');
- is( $status[1]->{'Operation'}, 'sign', 'operation is correct');
- is( $status[1]->{'Status'}, 'DONE', 'done');
+ is( $status[0]->{'operation'}, 'passphrase_check', 'operation is correct');
+ is( $status[0]->{'status'}, 'DONE', 'good passphrase');
+ is( $status[1]->{'operation'}, 'sign', 'operation is correct');
+ is( $status[1]->{'status'}, 'DONE', 'done');
is( $status[1]->{'User'}->{'email'}, 'rt at example.com', 'correct email');
ok( $entity->is_multipart, 'signed message is multipart' );
@@ -53,15 +51,15 @@
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
- is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
+ is( $parts[0]->{'top'}, $entity, "it's the same entity" );
my @res = RT::Crypt::GnuPG::verify_decrypt( entity => $entity );
is scalar @res, 1, 'one operation';
@status = RT::Crypt::GnuPG::parse_status( $res[0]{'status'} );
is( scalar @status, 1, 'one record');
- is( $status[0]->{'Operation'}, 'Verify', 'operation is correct');
- is( $status[0]->{'Status'}, 'DONE', 'good passphrase');
- is( $status[0]->{'Trust'}, 'ULTIMATE', 'have trust value');
+ is( $status[0]->{'operation'}, 'Verify', 'operation is correct');
+ is( $status[0]->{'status'}, 'DONE', 'good passphrase');
+ is( $status[0]->{'trust'}, 'ULTIMATE', 'have trust value');
}
diag 'only signing. missing passphrase' if $ENV{'TEST_VERBOSE'};
@@ -71,15 +69,15 @@
Subject => 'test',
Data => ['test'],
);
- my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, Passphrase => '' );
+ my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, passphrase => '' );
ok( $res{'exit_code'}, "couldn't sign without passphrase");
ok( $res{'error'}, "error is here" );
ok( $res{'logger'}, "log is here as well" );
my @status = RT::Crypt::GnuPG::parse_status( $res{'status'} );
is( scalar @status, 1, 'one record');
- is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct');
- is( $status[0]->{'Status'}, 'MISSING', 'missing passphrase');
+ is( $status[0]->{'operation'}, 'passphrase_check', 'operation is correct');
+ is( $status[0]->{'status'}, 'MISSING', 'missing passphrase');
}
diag 'only signing. wrong passphrase' if $ENV{'TEST_VERBOSE'};
@@ -89,15 +87,15 @@
Subject => 'test',
Data => ['test'],
);
- my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, Passphrase => 'wrong' );
+ my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, passphrase => 'wrong' );
ok( $res{'exit_code'}, "couldn't sign with bad passphrase");
ok( $res{'error'}, "error is here" );
ok( $res{'logger'}, "log is here as well" );
my @status = RT::Crypt::GnuPG::parse_status( $res{'status'} );
is( scalar @status, 1, 'one record');
- is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct');
- is( $status[0]->{'Status'}, 'BAD', 'wrong passphrase');
+ is( $status[0]->{'operation'}, 'passphrase_check', 'operation is correct');
+ is( $status[0]->{'status'}, 'BAD', 'wrong passphrase');
}
diag 'encryption only' if $ENV{'TEST_VERBOSE'};
@@ -114,8 +112,8 @@
my @status = RT::Crypt::GnuPG::parse_status( $res{'status'} );
is( scalar @status, 1, 'one record');
- is( $status[0]->{'Operation'}, 'encrypt', 'operation is correct');
- is( $status[0]->{'Status'}, 'DONE', 'done');
+ is( $status[0]->{'operation'}, 'encrypt', 'operation is correct');
+ is( $status[0]->{'status'}, 'DONE', 'done');
ok($entity, 'get an encrypted part');
@@ -123,7 +121,7 @@
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
- is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
+ is( $parts[0]->{'top'}, $entity, "it's the same entity" );
}
diag 'encryption only, bad recipient' if $ENV{'TEST_VERBOSE'};
@@ -151,18 +149,18 @@
Subject => 'test',
Data => ['test'],
);
- my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, Passphrase => 'test' );
+ my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, passphrase => 'test' );
ok( !$res{'exit_code'}, "successful encryption with signing" );
ok( !$res{'logger'}, "no records in logger" );
my @status = RT::Crypt::GnuPG::parse_status( $res{'status'} );
is( scalar @status, 3, 'three records: passphrase, sign and encrypt');
- is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct');
- is( $status[0]->{'Status'}, 'DONE', 'done');
- is( $status[1]->{'Operation'}, 'sign', 'operation is correct');
- is( $status[1]->{'Status'}, 'DONE', 'done');
- is( $status[2]->{'Operation'}, 'encrypt', 'operation is correct');
- is( $status[2]->{'Status'}, 'DONE', 'done');
+ is( $status[0]->{'operation'}, 'passphrase_check', 'operation is correct');
+ is( $status[0]->{'status'}, 'DONE', 'done');
+ is( $status[1]->{'operation'}, 'sign', 'operation is correct');
+ is( $status[1]->{'status'}, 'DONE', 'done');
+ is( $status[2]->{'operation'}, 'encrypt', 'operation is correct');
+ is( $status[2]->{'status'}, 'DONE', 'done');
ok($entity, 'get an encrypted and signed part');
@@ -170,7 +168,7 @@
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
- is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
+ is( $parts[0]->{'top'}, $entity, "it's the same entity" );
}
diag 'encryption and signing with cascading, sign on encrypted' if $ENV{'TEST_VERBOSE'};
@@ -184,7 +182,7 @@
my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, sign => 0 );
ok( !$res{'exit_code'}, 'successful encryption' );
ok( !$res{'logger'}, "no records in logger" );
- %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, Passphrase => 'test' );
+ %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, passphrase => 'test' );
ok( !$res{'exit_code'}, 'successful signing' );
ok( !$res{'logger'}, "no records in logger" );
@@ -192,7 +190,7 @@
is( scalar @parts, 1, 'one protected part, top most' );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
- is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
+ is( $parts[0]->{'top'}, $entity, "it's the same entity" );
}
diag 'find signed/encrypted part deep inside' if $ENV{'TEST_VERBOSE'};
@@ -215,7 +213,7 @@
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
- is( $parts[0]->{'Top'}, $entity->parts(0), "it's the same entity" );
+ is( $parts[0]->{'top'}, $entity->parts(0), "it's the same entity" );
}
diag 'wrong signed/encrypted parts: no protocol' if $ENV{'TEST_VERBOSE'};
@@ -274,7 +272,7 @@
Subject => 'test',
Data => ['test'],
);
- my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, Passphrase => 'test' );
+ my %res = RT::Crypt::GnuPG::sign_encrypt( entity => $entity, encrypt => 0, passphrase => 'test' );
ok( !$res{'exit_code'}, 'success' );
$entity->head->mime_attr( 'Content-Type.protocol' => 'application/bad-proto' );
@@ -291,20 +289,20 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( entity => $entity );
is( scalar @parts, 2, 'two protected parts' );
is( $parts[1]->{'type'}, 'signed', "have signed part" );
- is( $parts[1]->{'format'}, 'Inline', "inline format" );
- is( $parts[1]->{'Data'}, $entity->parts(0), "it's first part" );
+ is( $parts[1]->{'format'}, 'inline', "inline format" );
+ is( $parts[1]->{'data'}, $entity->parts(0), "it's first part" );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
- is( $parts[0]->{'format'}, 'Attachment', "attachment format" );
- is( $parts[0]->{'Data'}, $entity->parts(1), "data in second part" );
- is( $parts[0]->{'Signature'}, $entity->parts(2), "file's signature in third part" );
+ is( $parts[0]->{'format'}, 'attachment', "attachment format" );
+ is( $parts[0]->{'data'}, $entity->parts(1), "data in second part" );
+ is( $parts[0]->{'signature'}, $entity->parts(2), "file's signature in third part" );
my @res = RT::Crypt::GnuPG::verify_decrypt( entity => $entity );
my @status = RT::Crypt::GnuPG::parse_status( $res[0]->{'status'} );
is( scalar @status, 1, 'one record');
- is( $status[0]->{'Operation'}, 'Verify', 'operation is correct');
- is( $status[0]->{'Status'}, 'DONE', 'good passphrase');
- is( $status[0]->{'Trust'}, 'ULTIMATE', 'have trust value');
+ is( $status[0]->{'operation'}, 'verify', 'operation is correct');
+ is( $status[0]->{'status'}, 'DONE', 'good passphrase');
+ is( $status[0]->{'trust'}, 'ULTIMATE', 'have trust value');
$parser->filer->purge();
}
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t Sat Feb 2 18:07:14 2008
@@ -9,7 +9,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
@@ -28,7 +28,6 @@
$m->submit_form( form_number => 3,
fields => { correspond_address => 'rt at example.com' } );
$m->content_like(qr/rt\@example.com.* - never/, 'has key info.');
-
ok(my $user = RT::Model::User->new(current_user => RT->system_user));
ok($user->load('root'), "loaded user 'root'");
$user->set_email('rt at example.com');
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t Sat Feb 2 18:07:14 2008
@@ -26,7 +26,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t Sat Feb 2 18:07:14 2008
@@ -12,7 +12,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t Sat Feb 2 18:07:14 2008
@@ -10,7 +10,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
Modified: rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/sendmail.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/sendmail.t Sat Feb 2 18:07:14 2008
@@ -22,7 +22,7 @@
{
no warnings qw/redefine/;
- sub RT::ScripAction::SendEmail::SendMessage {
+ sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
@@ -95,7 +95,7 @@
# make sure it sends a notification to adminccs
-# we need to swap out SendMessage to test the new things we care about;
+# we need to swap out send_message to test the new things we care about;
&utf8_redef_sendmessage;
# create an iso 8859-1 ticket
@@ -143,7 +143,7 @@
-# we need to swap out SendMessage to test the new things we care about;
+# we need to swap out send_message to test the new things we care about;
&iso8859_redef_sendmessage;
RT->config->set( EmailOutputEncoding => 'iso-8859-1' );
# create an iso 8859-1 ticket
@@ -191,7 +191,7 @@
sub utf8_redef_sendmessage {
no warnings qw/redefine/;
eval '
- sub RT::ScripAction::SendEmail::SendMessage {
+ sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
@@ -218,7 +218,7 @@
sub iso8859_redef_sendmessage {
no warnings qw/redefine/;
eval '
- sub RT::ScripAction::SendEmail::SendMessage {
+ sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
@@ -251,7 +251,7 @@
# be as much like the mail gateway as possible.
{
no warnings qw/redefine/;
- local *RT::ScripAction::SendEmail::SendMessage = sub { return 1};
+ local *RT::ScripAction::SendEmail::send_message = sub { return 1};
%args = (message => $content, queue => 1, action => 'correspond');
RT::Interface::Email::gateway(\%args);
@@ -294,7 +294,7 @@
sub text_html_umlauts_redef_sendmessage {
no warnings qw/redefine/;
- eval 'sub RT::ScripAction::SendEmail::SendMessage {
+ eval 'sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
return (1) unless ($self->scrip_obj->action_obj->name eq "Notify AdminCcs" );
@@ -330,7 +330,7 @@
sub text_html_russian_redef_sendmessage {
no warnings qw/redefine/;
- eval 'sub RT::ScripAction::SendEmail::SendMessage {
+ eval 'sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
use Data::Dumper;
@@ -372,7 +372,7 @@
is ($tick->subject, "\x{442}\x{435}\x{441}\x{442} \x{442}\x{435}\x{441}\x{442}", "Recorded the subject right");
sub text_plain_russian_redef_sendmessage {
no warnings qw/redefine/;
- eval 'sub RT::ScripAction::SendEmail::SendMessage {
+ eval 'sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
return (1) unless ($self->scrip_obj->action_obj->name eq "Notify AdminCcs" );
@@ -413,7 +413,7 @@
is (count_attachs($tick) , 5 , "Has one attachment, presumably a text-plain and a message RFC 822 and another plain");
sub text_plain_nested_redef_sendmessage {
no warnings qw/redefine/;
- eval 'sub RT::ScripAction::SendEmail::SendMessage {
+ eval 'sub RT::ScripAction::SendEmail::send_message {
my $self = shift;
my $MIME = shift;
return (1) unless ($self->scrip_obj->action_obj->name eq "Notify AdminCcs" );
@@ -440,7 +440,7 @@
# be as much like the mail gateway as possible.
{
no warnings qw/redefine/;
- local *RT::ScripAction::SendEmail::SendMessage = sub { return 1};
+ local *RT::ScripAction::SendEmail::send_message = sub { return 1};
%args = (message => $content, queue => 1, action => 'correspond');
RT::Interface::Email::gateway(\%args);
$tickets = RT::Model::TicketCollection->new(current_user => RT->system_user);
@@ -465,7 +465,7 @@
# be as much like the mail gateway as possible.
no warnings qw/redefine/;
-local *RT::ScripAction::SendEmail::SendMessage = sub { return 1};
+local *RT::ScripAction::SendEmail::send_message = sub { return 1};
%args = (message => $content, queue => 1, action => 'correspond');
RT::Interface::Email::gateway(\%args);
$tickets = RT::Model::TicketCollection->new(current_user => RT->system_user);
Modified: rt/branches/3.999-DANGEROUS/t/ticket/merge.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/merge.t (original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/merge.t Sat Feb 2 18:07:14 2008
@@ -19,7 +19,7 @@
my $t1 = RT::Model::Ticket->new(current_user => RT->system_user);
my ($tid,$transid, $t1msg) =$t1->create ( queue => $queue->name, subject => 'Merge test. orig');
ok ($tid, $t1msg);
- ($id, $msg) = $t1->comment(Content => 'This is a comment on the original');
+ ($id, $msg) = $t1->comment(content => 'This is a comment on the original');
ok($id,$msg);
my $txns = $t1->transactions;
@@ -35,7 +35,7 @@
- ($id, $msg) = $t2->comment(Content => 'This is a commet on the duplicate');
+ ($id, $msg) = $t2->comment(content => 'This is a commet on the duplicate');
ok($id,$msg);
@@ -46,7 +46,7 @@
}
is($comments,1, "our second ticket has only one comment");
- ($id, $msg) = $t1->comment(Content => 'This is a second comment on the original');
+ ($id, $msg) = $t1->comment(content => 'This is a second comment on the original');
ok($id,$msg);
$txns = $t1->transactions;
Modified: rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t (original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t Sat Feb 2 18:07:14 2008
@@ -72,7 +72,7 @@
$m->follow_link_ok( text => 'Resolve' );
$m->form_number(3);
- $m->field( "UpdateContent" => 'resolve it' );
+ $m->field( "update_content" => 'resolve it' );
$m->click('SubmitTicket');
is_deeply parse_handle($tmp_fh), ['comment', 'Status'], 'comment + Resolve';
Modified: rt/branches/3.999-DANGEROUS/t/web/attachments.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/attachments.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/attachments.t Sat Feb 2 18:07:14 2008
@@ -39,7 +39,7 @@
$m->form_name('TicketUpdate');
$m->field('Attach', FaviconFile);
-$m->field('UpdateContent', 'Message');
+$m->field('update_content', 'Message');
$m->click('SubmitTicket');
is($m->status, 200, "request successful");
Modified: rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t Sat Feb 2 18:07:14 2008
@@ -29,7 +29,7 @@
use_ok('RT::Crypt::GnuPG');
RT->config->set( 'GnuPG',
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t Sat Feb 2 18:07:14 2008
@@ -15,7 +15,7 @@
use_ok('RT::Crypt::GnuPG');
RT->config->set( GnuPG =>
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC',
);
@@ -285,7 +285,7 @@
ok $m->goto_ticket( $tid ), "UI -> ticket #$tid";
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_content => 'Some content' );
foreach ( qw(sign encrypt) ) {
if ( $args{ $_ } ) {
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t Sat Feb 2 18:07:14 2008
@@ -15,7 +15,7 @@
use_ok('RT::Crypt::GnuPG');
RT->config->set( GnuPG =>
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC',
);
@@ -51,7 +51,7 @@
$m->form_number(3);
$m->tick( sign => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/unable to sign outgoing email messages/i,
@@ -77,7 +77,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -112,7 +112,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -159,7 +159,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -204,7 +204,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -231,7 +231,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -263,7 +263,7 @@
$m->form_number(3);
$m->tick( encrypt => 1 );
$m->field( Requestors => 'rt-test at example.com' );
- $m->field( Content => 'Some content' );
+ $m->field( content => 'Some content' );
$m->field( Attach => $0 );
$m->submit;
$m->content_like(
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t Sat Feb 2 18:07:14 2008
@@ -15,7 +15,7 @@
use_ok('RT::Crypt::GnuPG');
RT->config->set( GnuPG =>
- Enable => 1,
+ enable => 1,
outgoing_messages_format => 'RFC',
);
@@ -62,8 +62,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( sign => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/unable to sign outgoing email messages/i,
@@ -89,8 +89,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -126,8 +126,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -174,8 +174,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -220,8 +220,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -248,8 +248,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->click('SubmitTicket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
@@ -281,8 +281,8 @@
$m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
$m->form_number(3);
$m->tick( encrypt => 1 );
- $m->field( UpdateCc => 'rt-test at example.com' );
- $m->field( UpdateContent => 'Some content' );
+ $m->field( update_cc => 'rt-test at example.com' );
+ $m->field( update_content => 'Some content' );
$m->field( Attach => $0 );
$m->click('SubmitTicket');
$m->content_like(
More information about the Rt-commit
mailing list