main/rt4: moved from testing

move rt4 to main

2 files changed, 178 insertions, 0 deletions

diff --git a/main/rt4/APKBUILD b/main/rt4/APKBUILD
new file mode 100644
index 0000000000..6f428d66ef
--- /dev/null
+++ b/main/rt4/APKBUILD
@@ -0,0 +1,129 @@
+# Contributor: Natanael Copa <ncopa@alpinelinux.org>
+# Maintainer: Natanael Copa <ncopa@alpinelinux.org>
+pkgname=rt4
+pkgver=4.0.0
+pkgrel=1
+pkgdesc="Request Tracker - issue and bug tracker"
+url="http://www.bestpractical.com/rt"
+arch="noarch"
+license="GPLv2+"
+depends="perl
+	perl-term-readkey
+	perl-cache-simple-timedexpiry
+	perl-class-accessor
+	perl-dbi
+	perl-dbd-pg
+	perl-dbd-mysql
+	perl-devel-globaldestruction
+	perl-devel-stacktrace
+	perl-digest-sha1
+	perl-email-address
+	perl-getopt-long
+	perl-locale-maketext-fuzzy
+	perl-locale-maketext-lexicon
+	perl-log-dispatch
+	perl-mime-tools
+	perl-net-cidr
+	perl-regexp-common-net-cidr
+	perl-sub-exporter
+	perl-text-password-pronounceable
+	perl-text-template
+	perl-text-wrapper
+	perl-time-hires
+	perl-time-modules
+	perl-tree-simple
+	perl-universal-require
+	perl-xml-rss
+	perl-text-wikiformat
+	perl-convert-color
+	perl-data-ical
+	perl-mime-types
+	perl-html-format
+	perl-html-rewriteattributes
+	perl-html-tree
+	perl-html-mason
+	perl-javascript-minifier
+	perl-cgi-psgi
+	perl-cgi-emulate-psgi
+	perl-html-mason-psgihandler
+	perl-apache-session
+	perl-starlet
+	perl-html-parser
+	perl-file-sharedir
+	perl-module-versions-report
+	perl-list-moreutils
+	perl-css-squish
+	perl-dbix-searchbuilder
+	perl-regexp-ipv6
+	perl-text-quoted
+	perl-html-scrubber
+	perl-html-quoted
+	perl-datetime-locale
+	perl-fcgi
+	perl-fcgi-procmanager
+	perl-datetime
+	perl-json
+	perl-ipc-run3
+	perl-plack
+	"
+
+makedepends="$depends"
+install=""
+subpackages=""
+source="http://www.bestpractical.com/pub/rt/release/rt-$pkgver.tar.gz
+	rt4-perl-qw-list-deprecation.patch"
+
+_builddir="$srcdir"/rt-$pkgver
+prepare() {
+	local i
+	cd "$_builddir"
+	for i in $source; do
+		case $i in
+		*.patch) msg $i; patch -p1 -i "$srcdir"/$i || return 1;;
+		esac
+	done
+
+	cat <<'EOF' >> config.layout
+# Alpione directory layout.
+<Layout Alpine>
+  prefix:		/usr
+  exec_prefix:		${prefix}
+  bindir:		${exec_prefix}/bin
+  sbindir:		${exec_prefix}/sbin
+  sysconfdir:		/etc/rt4
+  mandir:		${prefix}/share/man
+  plugindir:		${prefix}/lib/rt4/plugins
+  libdir:		${prefix}/lib/rt4/
+  datadir:		${prefix}/share/rt4
+  htmldir:		${datadir}/html
+  fontdir:		${datadir}/fonts
+  lexdir:		${datadir}/po
+  manualdir:		${datadir}/doc
+  localstatedir:	/var
+  logfiledir:		${localstatedir}/log
+  masonstatedir:	${localstatedir}/cache/mason_data
+  sessionstatedir:	${localstatedir}/cache/session_data
+  customdir:		${prefix}/local
+  custometcdir:		${customdir}/etc
+  customhtmldir:	${customdir}/html
+  customlexdir:		${customdir}/po
+  customlibdir:		${customdir}/lib
+  customplugindir:	${customdir}/plugins
+</Layout>
+EOF
+}
+
+build() {
+	cd "$_builddir"
+	./configure --enable-layout=Alpine \
+		|| return 1
+	make || return 1
+}
+
+package() {
+	cd "$_builddir"
+	make DESTDIR="$pkgdir" install || return 1
+}
+
+md5sums="bd6045421a6f2d0e8c18923f80726e4a  rt-4.0.0.tar.gz
+ff469c9469be2bc094601939068e60ae  rt4-perl-qw-list-deprecation.patch"
diff --git a/main/rt4/rt4-perl-qw-list-deprecation.patch b/main/rt4/rt4-perl-qw-list-deprecation.patch
new file mode 100644
index 0000000000..6887539995
--- /dev/null
+++ b/main/rt4/rt4-perl-qw-list-deprecation.patch
@@ -0,0 +1,49 @@
+--- a/share/html/Ticket/Elements/PreviewScrips
++++ b/share/html/Ticket/Elements/PreviewScrips
+@@ -69,7 +69,7 @@
+           <b><% $scrip->Description || loc('Scrip #[_1]',$scrip->id) %></b><br />
+           <&|/l, loc($scrip->ConditionObj->Name), loc($scrip->ActionObj->Name), loc($scrip->TemplateObj->Name)&>[_1] [_2] with template [_3]</&>
+           <br />
+-%         for my $type qw(To Cc Bcc) {
++%         for my $type (qw(To Cc Bcc)) {
+ %             my @addresses =  $scrip->ActionObj->Action->$type();
+ %             next unless @addresses;
+               <ul>
+@@ -97,7 +97,7 @@
+ %         next unless $rule->{hints} && $rule->{hints}{class} eq 'SendEmail';
+           <b><% $rule->Describe %></b>
+ %         my $data = $rule->{hints}{recipients};
+-%         for my $type qw(To Cc Bcc) {
++%         for my $type (qw(To Cc Bcc)) {
+ %             next unless @{$data->{$type}};
+               <ul>
+ %             for my $address (@{$data->{$type}}) {
+--- a/share/html/Ticket/Elements/ShowSimplifiedRecipients
++++ b/share/html/Ticket/Elements/ShowSimplifiedRecipients
+@@ -58,7 +58,7 @@
+ my %headers = (To => {}, Cc => {}, Bcc => {});
+ if ($Object->Scrips) {
+     for my $scrip (grep $_->ActionObj->Action->isa('RT::Action::SendEmail'), @{$Object->Scrips->Prepared}) {
+-        for my $type qw(To Cc Bcc) {
++        for my $type (qw(To Cc Bcc)) {
+             $headers{$type}{$_->address} = $_
+                 for $scrip->ActionObj->Action->$type();
+         }
+@@ -66,7 +66,7 @@
+ }
+ if ($Object->Rules) {
+     for my $rule (grep {$_->{hints} and $_->{hints}{class} eq "SendEmail"} @{$Object->Rules}) {
+-        for my $type qw(To Cc Bcc) {
++        for my $type (qw(To Cc Bcc)) {
+             $headers{$type}{$_} ||= @{[Email::Address->parse($_)]}[0] # Hate list context
+                 for @{$rule->{hints}{recipients}{$type}};
+         }
+@@ -77,7 +77,7 @@
+ <&|/Widgets/TitleBox, title => loc('Recipients'), id => 'recipients' &>
+ <table>
+ <tr>
+-% for my $type qw(To Cc Bcc) {
++% for my $type (qw(To Cc Bcc)) {
+ %     next unless keys %{$headers{$type}};
+ <td valign="top"><% $type %>:</td>
+ <td valign="top">