[rt-commit] r301 - in rt/branches/rt-3.1: . bin html/Ticket
html/Ticket/Elements lib/RT lib/RT/Action lib/t sbin
root at fsck.com
root at fsck.com
Sun Dec 14 23:32:15 EST 2003
Author: root
Date: 2003-12-09 23:23:27 -0500 (Tue, 09 Dec 2003)
New Revision: 301
Modified:
rt/branches/rt-3.1/Makefile
rt/branches/rt-3.1/bin/mason_handler.fcgi
rt/branches/rt-3.1/bin/mason_handler.svc
rt/branches/rt-3.1/bin/rt
rt/branches/rt-3.1/bin/rt-commit-handler
rt/branches/rt-3.1/bin/rt-crontool
rt/branches/rt-3.1/bin/rt-mailgate
rt/branches/rt-3.1/bin/webmux.pl
rt/branches/rt-3.1/config.status
rt/branches/rt-3.1/html/Ticket/Elements/PreviewScrips
rt/branches/rt-3.1/html/Ticket/Update.html
rt/branches/rt-3.1/lib/RT/Action/Notify.pm
rt/branches/rt-3.1/lib/RT/Action/SendEmail.pm
rt/branches/rt-3.1/lib/RT/Record.pm
rt/branches/rt-3.1/lib/RT/Ticket_Overlay.pm
rt/branches/rt-3.1/lib/t/00smoke.t
rt/branches/rt-3.1/lib/t/01harness.t
rt/branches/rt-3.1/lib/t/02regression.t
rt/branches/rt-3.1/lib/t/03web.pl
rt/branches/rt-3.1/lib/t/04_send_email.pl
rt/branches/rt-3.1/sbin/rt-setup-database
rt/branches/rt-3.1/sbin/rt-test-dependencies
Log:
Squelching messages to individual recipients now works
Modified: rt/branches/rt-3.1/Makefile
===================================================================
--- rt/branches/rt-3.1/Makefile 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/Makefile 2003-12-10 04:23:27 UTC (rev 301)
@@ -27,7 +27,7 @@
#
-PERL = /usr/local/bin/perl
+PERL = /usr/bin/perl
CONFIG_FILE_PATH = /opt/rt3/etc
CONFIG_FILE = $(CONFIG_FILE_PATH)/RT_Config.pm
@@ -55,8 +55,8 @@
# Group that should own all of RT's libraries, generally root.
LIBS_GROUP = bin
-WEB_USER = www
-WEB_GROUP = www
+WEB_USER = www-data
+WEB_GROUP = www-data
APACHECTL = /usr/sbin/apachectl
Modified: rt/branches/rt-3.1/bin/mason_handler.fcgi
===================================================================
--- rt/branches/rt-3.1/bin/mason_handler.fcgi 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/mason_handler.fcgi 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/mason_handler.svc
===================================================================
--- rt/branches/rt-3.1/bin/mason_handler.svc 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/mason_handler.svc 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/rt
===================================================================
--- rt/branches/rt-3.1/bin/rt 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/rt 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/rt-commit-handler
===================================================================
--- rt/branches/rt-3.1/bin/rt-commit-handler 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/rt-commit-handler 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/rt-crontool
===================================================================
--- rt/branches/rt-3.1/bin/rt-crontool 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/rt-crontool 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/rt-mailgate
===================================================================
--- rt/branches/rt-3.1/bin/rt-mailgate 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/rt-mailgate 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/bin/webmux.pl
===================================================================
--- rt/branches/rt-3.1/bin/webmux.pl 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/bin/webmux.pl 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/config.status
===================================================================
--- rt/branches/rt-3.1/config.status 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/config.status 2003-12-10 04:23:27 UTC (rev 301)
@@ -294,7 +294,7 @@
ac_cs_version="\
RT config.status 3.1.1
configured by ./configure, generated by GNU Autoconf 2.58,
- with options \"\"
+ with options \"'--with-web-user=www-data' '--with-web-group=www-data'\"
Copyright (C) 2003 Free Software Foundation, Inc.
This config.status script is free software; the Free Software Foundation
@@ -373,8 +373,8 @@
fi
if $ac_cs_recheck; then
- echo "running /bin/sh ./configure " $ac_configure_extra_args " --no-create --no-recursion" >&6
- exec /bin/sh ./configure $ac_configure_extra_args --no-create --no-recursion
+ echo "running /bin/sh ./configure " '--with-web-user=www-data' '--with-web-group=www-data' $ac_configure_extra_args " --no-create --no-recursion" >&6
+ exec /bin/sh ./configure '--with-web-user=www-data' '--with-web-group=www-data' $ac_configure_extra_args --no-create --no-recursion
fi
for ac_config_target in $ac_config_targets
@@ -485,7 +485,7 @@
s, at INSTALL_PROGRAM@,${INSTALL},;t t
s, at INSTALL_SCRIPT@,${INSTALL},;t t
s, at INSTALL_DATA@,${INSTALL} -m 644,;t t
-s, at PERL@,/usr/local/bin/perl,;t t
+s, at PERL@,/usr/bin/perl,;t t
s, at SPEEDY_BIN@,/usr/local/bin/speedy,;t t
s, at exp_prefix@,/opt/rt3,;t t
s, at exp_exec_prefix@,/opt/rt3,;t t
@@ -530,8 +530,8 @@
s, at DB_DATABASE@,rt3,;t t
s, at DB_RT_USER@,rt_user,;t t
s, at DB_RT_PASS@,rt_pass,;t t
-s, at WEB_USER@,www,;t t
-s, at WEB_GROUP@,www,;t t
+s, at WEB_USER@,www-data,;t t
+s, at WEB_GROUP@,www-data,;t t
s, at APACHECTL@,/usr/sbin/apachectl,;t t
s, at RT_VERSION_MAJOR@,3,;t t
s, at RT_VERSION_MINOR@,1,;t t
Modified: rt/branches/rt-3.1/html/Ticket/Elements/PreviewScrips
===================================================================
--- rt/branches/rt-3.1/html/Ticket/Elements/PreviewScrips 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/html/Ticket/Elements/PreviewScrips 2003-12-10 04:23:27 UTC (rev 301)
@@ -2,54 +2,82 @@
$TicketObj => undef
</%args>
-
-<b><&|/l&>Preview of notifications</&></b>
<%init>
+my $arg = 'Ticket-'.$TicketObj->Id.'-SquelchMailTo';
+my @squelchto = ref($ARGS{$arg}) eq 'ARRAY' ? @{$ARGS{$arg}} : ($ARGS{$arg});
+
+foreach my $address (@squelchto) {
+ $TicketObj->SquelchMailTo($address) if ($address);
+}
+
+
+$arg = 'Ticket-'.$TicketObj->Id.'-UnsquelchMailTo';
+my @unsquelchto = ref($ARGS{$arg}) eq 'ARRAY' ? @{$ARGS{$arg}} : ($ARGS{$arg});
+
+foreach my $address (@unsquelchto) {
+ $TicketObj->UnsquelchMailTo($address) if ($address);
+}
+
+
my $action;
-if ($ARGS{'UpdateType'} eq 'response' ) {
+if ( $ARGS{'UpdateType'} eq 'response' ) {
$action = 'Correspond';
-} else {
+}
+else {
$action = 'Comment';
}
+my $Message = MakeMIMEEntity(
+ Subject => $ARGS{'UpdateSubject'},
+ Body => $ARGS{'UpdateContent'},
+);
- my $Message = MakeMIMEEntity(
- Subject => $ARGS{'UpdateSubject'},
- Body => $ARGS{'UpdateContent'},
- );
+my ( $Transaction, $Description, $Object ) = $TicketObj->$action(
+ CcMessageTo => $ARGS{'UpdateCc'},
+ BccMessageTo => $ARGS{'UpdateBcc'},
+ MIMEObj => $Message,
+ TimeTaken => $ARGS{'UpdateTimeWorked'},
+ DryRun => 1
+);
- ## TODO: Implement public comments
- my ( $Transaction, $Description, $Object ) = $TicketObj->$action(
- CcMessageTo => $ARGS{'UpdateCc'},
- BccMessageTo => $ARGS{'UpdateBcc'},
- MIMEObj => $Message,
- TimeTaken => $ARGS{'UpdateTimeWorked'},
- DryRun => 1
- );
+my @non_recipients = $TicketObj->SquelchMailTo;
+</%init>
-
-
-</%init>
+<h2><&|/l&>Squelched message recipients</&></h2>
+<i><&|/l&>(Check boxes to enable notifications to the listed recipients)</&></i>
+<br>
+<ul>
+% foreach my $recipient (@non_recipients) {
+<li><input type="checkbox" name="Ticket-<%$TicketObj->id%>-UnsquelchMailTo" value="<%$recipient->Content%>">
+<% $recipient->Content %>
+% }
+</ul>
+<h2><&|/l&>Message recipients</&></h2>
+<i><&|/l&>(Check boxes to disable notifications to the listed recipients)</&></i>
% foreach my $scrip (@{$Object->Scrips->Prepared}) {
% next unless $scrip->ActionObj->Action->isa('RT::Action::SendEmail');
-<hr>
<b><%$scrip->Description%></b><br>
-<%$scrip->ConditionObj->Name%>
-<%$scrip->ActionObj->Name%>
-<%$scrip->TemplateObj->Name%> <br>
-
+<&|/l, $scrip->ConditionObj->Name, $scrip->ActionObj->Name, $scrip->TemplateObj->Name&>[_1] [_2] with template [_3]</&>
+<br>
%foreach my $type qw(To Cc Bcc) {
+%my @addresses = $scrip->ActionObj->Action->$type();
+% next unless $addresses[0];
<%loc($type)%>:
-%foreach my $addr ($scrip->ActionObj->Action->$type()) {
-<%$addr->address%>
-%}
+<ul>
+%foreach my $addr (@addresses) {
+<li><input type="checkbox" name="Ticket-<%$TicketObj->id%>-SquelchMailTo" value="<%$addr->address%>"> <%$addr->address%>
+% }
+</ul>
<br>
% }
+% if ($RT::PreviewScripMessages) {
<textarea cols=80 rows="5">
<%$scrip->ActionObj->TemplateObj->MIMEObj->as_string%>
</textarea>
+% }
+<hr>
%}
-<& /Elements/Submit, Value => 'UpdatePreview', Label => loc('Update Preview')&>
+<& /Elements/Submit, Value => 'UpdatePreview', Label => loc('Save changes')&>
Modified: rt/branches/rt-3.1/html/Ticket/Update.html
===================================================================
--- rt/branches/rt-3.1/html/Ticket/Update.html 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/html/Ticket/Update.html 2003-12-10 04:23:27 UTC (rev 301)
@@ -52,7 +52,7 @@
</td></tr>
<tr><td align=right><&|/l&>Subject</&>:</td><td> <input name="UpdateSubject" size=60 value="<% ($ARGS{UpdateSubject}) ? $ARGS{UpdateSubject} : $TicketObj->Subject()%>"></td></tr>
<tr><td align=right><&|/l&>Cc</&>:</td><td> <input name="UpdateCc" size=60
-value=<% $ARGS{UpdateCc} %>><BR>
+value="<% $ARGS{UpdateCc} %>"><BR>
<i><font size=-2>
<&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of email addresses. Does <b>not</b> change who will receive future updates.)</&></font></i>
</td></tr>
Modified: rt/branches/rt-3.1/lib/RT/Action/Notify.pm
===================================================================
--- rt/branches/rt-3.1/lib/RT/Action/Notify.pm 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/RT/Action/Notify.pm 2003-12-10 04:23:27 UTC (rev 301)
@@ -21,9 +21,10 @@
#
#
# END LICENSE BLOCK
+#
package RT::Action::Notify;
require RT::Action::SendEmail;
-
+use Mail::Address;
use strict;
use vars qw/@ISA/;
@ISA = qw(RT::Action::SendEmail);
@@ -61,10 +62,18 @@
my ( @To, @PseudoTo, @Cc, @Bcc );
- if ($arg =~ /\bOtherRecipients\b/) {
- if ($self->TransactionObj->Attachments->First) {
- push (@Cc, $self->TransactionObj->Attachments->First->GetHeader('RT-Send-Cc'));
- push (@Bcc, $self->TransactionObj->Attachments->First->GetHeader('RT-Send-Bcc'));
+ if ( $arg =~ /\bOtherRecipients\b/ ) {
+ if ( $self->TransactionObj->Attachments->First ) {
+ my @cc_addresses = Mail::Address->parse($self->TransactionObj->Attachments->First->GetHeader('RT-Send-Cc'));
+ foreach my $addr (@cc_addresses) {
+ push @Cc, $addr->address;
+ }
+ my @bcc_addresses = Mail::Address->parse($self->TransactionObj->Attachments->First->GetHeader('RT-Send-Bcc'));
+
+ foreach my $addr (@bcc_addresses) {
+ push @Bcc, $addr->address;
+ }
+
}
}
Modified: rt/branches/rt-3.1/lib/RT/Action/SendEmail.pm
===================================================================
--- rt/branches/rt-3.1/lib/RT/Action/SendEmail.pm 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/RT/Action/SendEmail.pm 2003-12-10 04:23:27 UTC (rev 301)
@@ -417,32 +417,47 @@
sub RemoveInappropriateRecipients {
my $self = shift;
- # Weed out any RT addresses. We really don't want to talk to ourselves!
- @{$self->{'To'}} = RT::EmailParser::CullRTAddresses("", @{$self->{'To'}});
- @{$self->{'Cc'}} = RT::EmailParser::CullRTAddresses("", @{$self->{'Cc'}});
- @{$self->{'Bcc'}} = RT::EmailParser::CullRTAddresses("", @{$self->{'Bcc'}});
+ my @blacklist;
+
+ # Weed out any RT addresses. We really don't want to talk to ourselves!
+ @{ $self->{'To'} } =
+ RT::EmailParser::CullRTAddresses( "", @{ $self->{'To'} } );
+ @{ $self->{'Cc'} } =
+ RT::EmailParser::CullRTAddresses( "", @{ $self->{'Cc'} } );
+ @{ $self->{'Bcc'} } =
+ RT::EmailParser::CullRTAddresses( "", @{ $self->{'Bcc'} } );
+
# If there are no recipients, don't try to send the message.
# If the transaction has content and has the header RT-Squelch-Replies-To
if ( defined $self->TransactionObj->Attachments->First() ) {
+ my $squelch =
+ $self->TransactionObj->Attachments->First->GetHeader(
+ 'RT-Squelch-Replies-To');
- my $squelch = $self->TransactionObj->Attachments->First->GetHeader( 'RT-Squelch-Replies-To');
-
if ($squelch) {
- my @blacklist = split ( /,/, $squelch );
+ @blacklist = split ( /,/, $squelch );
+ }
+ }
- # Cycle through the people we're sending to and pull out anyone on the
- # system blacklist
+# Let's grab the SquelchMailTo attribue and push those entries into the @blacklist
+ my @non_recipients = $self->TicketObj->SquelchMailTo;
+ foreach my $attribute (@non_recipients) {
+ push @blacklist, $attribute->Content;
+ }
- foreach my $person_to_yank (@blacklist) {
- $person_to_yank =~ s/\s//g;
- @{ $self->{'To'} } = grep ( !/^$person_to_yank$/, @{ $self->{'To'} } );
- @{ $self->{'Cc'} } = grep ( !/^$person_to_yank$/, @{ $self->{'Cc'} } );
- @{ $self->{'Bcc'} } = grep ( !/^$person_to_yank$/, @{ $self->{'Bcc'} } );
- }
- }
+ # Cycle through the people we're sending to and pull out anyone on the
+ # system blacklist
+
+ foreach my $person_to_yank (@blacklist) {
+ $person_to_yank =~ s/\s//g;
+ @{ $self->{'To'} } = grep ( !/^$person_to_yank$/, @{ $self->{'To'} } );
+ @{ $self->{'Cc'} } = grep ( !/^$person_to_yank$/, @{ $self->{'Cc'} } );
+ @{ $self->{'Bcc'} } =
+ grep ( !/^$person_to_yank$/, @{ $self->{'Bcc'} } );
}
}
+
# }}}
# {{{ sub SetReturnAddress
Modified: rt/branches/rt-3.1/lib/RT/Record.pm
===================================================================
--- rt/branches/rt-3.1/lib/RT/Record.pm 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/RT/Record.pm 2003-12-10 04:23:27 UTC (rev 301)
@@ -44,7 +44,7 @@
package RT::Record;
use RT::Date;
use RT::User;
-
+use RT::Attributes;
use RT::Base;
use DBIx::SearchBuilder::Record::Cachable;
Modified: rt/branches/rt-3.1/lib/RT/Ticket_Overlay.pm
===================================================================
--- rt/branches/rt-3.1/lib/RT/Ticket_Overlay.pm 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/RT/Ticket_Overlay.pm 2003-12-10 04:23:27 UTC (rev 301)
@@ -1644,6 +1644,10 @@
is(shift @names, 'SquelchMailTo', "The attribute we have is SquelchMailTo");
+my ($ret, $msg) = $t->UnsquelchMailTo('nobody at example.com');
+ok($ret, "Removed nobody as a squelched recipient - ".$msg);
+is($#returned, -1, "The ticket has no squelched recipients");
+
=end testing
=cut
@@ -1651,17 +1655,50 @@
sub SquelchMailTo {
my $self = shift;
if (@_) {
+ unless ( $self->CurrentUserHasRight('ModifyTicket') ) {
+ return undef;
+ }
my $attr = shift;
- $self->AddAttribute(Name => 'SquelchMailTo', Content => $attr)
- unless grep { $_->Content eq $attr } $self->Attributes->Named('SquelchMailTo');
+ $self->AddAttribute( Name => 'SquelchMailTo', Content => $attr )
+ unless grep { $_->Content eq $attr }
+ $self->Attributes->Named('SquelchMailTo');
}
- my @attributes = $self->Attributes->Named('SquelchMailTo');
- return(@attributes);
+ unless ( $self->CurrentUserHasRight('ShowTicket') ) {
+ return undef;
+ }
+ my @attributes = $self->Attributes->Named('SquelchMailTo');
+ return (@attributes);
}
+=head2 UnsquelchMailTo ADDRESS
+Takes an address and removes it from this ticket's "SquelchMailTo" list. If an address appears multiple times, each instance is removed.
+
+Returns a tuple of (status, message)
+
+=cut
+
+sub UnsquelchMailTo {
+ my $self = shift;
+
+ my $address = shift;
+ unless ( $self->CurrentUserHasRight('ModifyTicket') ) {
+ return ( 0, $self->loc("Permission Denied") );
+ }
+
+# TODO: the user also needs to have ShowTicket to make this work. will that ever be an issue?
+ my @attributes = $self->SquelchMailTo();
+ foreach my $attribute (@attributes) {
+ if ( $attribute->Content eq $address ) {
+ $attribute->Delete();
+ }
+ }
+ return ( 1, $self->loc("Record Deleted") );
+}
+
+
# {{{ a set of [foo]AsString subs that will return the various sorts of watchers for a ticket/queue as a comma delineated string
=head2 RequestorAddresses
Modified: rt/branches/rt-3.1/lib/t/00smoke.t
===================================================================
--- rt/branches/rt-3.1/lib/t/00smoke.t 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/t/00smoke.t 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Test::More qw(no_plan);
Modified: rt/branches/rt-3.1/lib/t/01harness.t
===================================================================
--- rt/branches/rt-3.1/lib/t/01harness.t 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/t/01harness.t 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Test::More qw(no_plan);
Modified: rt/branches/rt-3.1/lib/t/02regression.t
===================================================================
--- rt/branches/rt-3.1/lib/t/02regression.t 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/t/02regression.t 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Test::More qw(no_plan);
Modified: rt/branches/rt-3.1/lib/t/03web.pl
===================================================================
--- rt/branches/rt-3.1/lib/t/03web.pl 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/t/03web.pl 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use strict;
use WWW::Mechanize;
Modified: rt/branches/rt-3.1/lib/t/04_send_email.pl
===================================================================
--- rt/branches/rt-3.1/lib/t/04_send_email.pl 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/lib/t/04_send_email.pl 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use RT::EmailParser;
Modified: rt/branches/rt-3.1/sbin/rt-setup-database
===================================================================
--- rt/branches/rt-3.1/sbin/rt-setup-database 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/sbin/rt-setup-database 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
Modified: rt/branches/rt-3.1/sbin/rt-test-dependencies
===================================================================
--- rt/branches/rt-3.1/sbin/rt-test-dependencies 2003-12-06 19:34:24 UTC (rev 300)
+++ rt/branches/rt-3.1/sbin/rt-test-dependencies 2003-12-10 04:23:27 UTC (rev 301)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# BEGIN LICENSE BLOCK
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse at bestpractical.com>
More information about the Rt-commit
mailing list