/[smeserver]/rpms/smeserver-php/sme10/smeserver-php-3.0.0-bz11413-php-perl-module.patch
ViewVC logotype

Annotation of /rpms/smeserver-php/sme10/smeserver-php-3.0.0-bz11413-php-perl-module.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Mar 7 06:07:16 2021 UTC (3 years, 7 months ago) by jpp
Branch: MAIN
CVS Tags: smeserver-php-3_0_0-44_el7_sme, smeserver-php-3_0_0-47_el7_sme, smeserver-php-3_0_0-31_el7_sme, smeserver-php-3_0_0-28_el7_sme, smeserver-php-3_0_0-45_el7_sme, smeserver-php-3_0_0-48_el7_sme, smeserver-php-3_0_0-43_el7_sme, smeserver-php-3_0_0-46_el7_sme, smeserver-php-3_0_0-41_el7_sme, smeserver-php-3_0_0-30_el7_sme, smeserver-php-3_0_0-29_el7_sme, smeserver-php-3_0_0-42_el7_sme, smeserver-php-3_0_0-34_el7_sme, smeserver-php-3_0_0-37_el7_sme, smeserver-php-3_0_0-40_el7_sme, smeserver-php-3_0_0-35_el7_sme, smeserver-php-3_0_0-26_el7_sme, smeserver-php-3_0_0-32_el7_sme, smeserver-php-3_0_0-38_el7_sme, smeserver-php-3_0_0-27_el7_sme, smeserver-php-3_0_0-39_el7_sme, smeserver-php-3_0_0-36_el7_sme, smeserver-php-3_0_0-33_el7_sme, HEAD
* Sat Mar 06 2021 Jean-Philipe Pialasse <tests@pialasse.com> 3.0.0-26.sme
- improve sendmail parameter, force sender  [SME: 11410]
  MailForceSender as property for php versions, ibays and pools
- add perl module to help handling fpm version available [SME: 11413]

1 jpp 1.1 diff -Nur --no-dereference smeserver-php-3.0.0.old/root/usr/share/perl5/vendor_perl/esmith/php.pm smeserver-php-3.0.0/root/usr/share/perl5/vendor_perl/esmith/php.pm
2     --- smeserver-php-3.0.0.old/root/usr/share/perl5/vendor_perl/esmith/php.pm 1969-12-31 19:00:00.000000000 -0500
3     +++ smeserver-php-3.0.0/root/usr/share/perl5/vendor_perl/esmith/php.pm 2021-03-07 01:04:34.688000000 -0500
4     @@ -0,0 +1,138 @@
5     +package esmith::php;
6     +
7     +use strict;
8     +use warnings;
9     +use esmith::ConfigDB;
10     +
11     +our @ISA = qw(Exporter);
12     +our @EXPORT = qw( listPHPVersionFPM listPHPVersionShort listPHPVersionHash listPHPVersionHashShort);
13     +
14     +=head1 NAME
15     +
16     +esmith::php - A few tools to help with php-fpm installed versions
17     +
18     +=head1 SYNOPSIS
19     +
20     + use esmith::php;
21     +
22     + my @phps=listPHPVersionFPM('enabled');
23     +
24     +=head1 DESCRIPTION
25     +
26     +This is intended to help playing with installed php versions.
27     +
28     +=head1 Methods
29     +
30     +
31     +=head2 listPHPVersionFPM
32     +param = (enabled, disabled, all) , if empty default to all
33     +this will return you an array of php-fpm versions available php version
34     +print "'$_'\n" for listPHPVersionFPM('all');
35     +'php-fpm'
36     +'php55-php-fpm'
37     +'php56-php-fpm'
38     +'php70-php-fpm'
39     +'php71-php-fpm'
40     +'php72-php-fpm'
41     +'php73-php-fpm'
42     +'php74-php-fpm'
43     +'php80-php-fpm'
44     +
45     +this will return only available and enabled
46     +print "'$_'\n" for listPHPVersionFPM('enabled');
47     +=cut
48     +sub listPHPVersionFPM {
49     + my $status = shift || 'all';
50     + my $conf = esmith::ConfigDB->open_ro or die "Could not open accounts db";
51     + my @list = $conf->get_all_by_prop( type => 'service' );
52     + my @keys = map {$_->key; } @list;
53     + my @FPM;
54     + foreach my $service ( grep(/^(php[0-9]{2}-)?php-fpm$/,@keys) ) {
55     + my $s = $conf->get($service);
56     + next unless ($s) ;
57     + next unless (-f "/usr/lib/systemd/system/$service.service") ;
58     + next unless ( $status eq "all" || ($s->prop('status') || "disabled") eq $status );
59     + push @FPM, $service;
60     + }
61     + return @FPM
62     +}
63     +
64     +=head2 listPHPVersionShort
65     +param = (enabled, disabled, all) , if empty default to all
66     +
67     +this will return you an array of numerical available php version
68     +print "'$_'\n" for listPHPVersionShort('all');
69     +'54'
70     +'55'
71     +'56'
72     +'70'
73     +'71'
74     +'72'
75     +'73'
76     +'74'
77     +'80'
78     +
79     +this will returnonly available and enabled
80     +print "'$_'\n" for listPHPVersionShort('enabled');
81     +=cut
82     +sub listPHPVersionShort {
83     + my $status = shift || 'all';
84     + my @FPM = listPHPVersionFPM($status);
85     + s/^php([0-9]{2})-php-fpm$/$1/ for @FPM ;
86     + s/^php-fpm$/54/ for @FPM ;
87     + return @FPM;
88     +}
89     +
90     +=head2 listPHPVersionHash
91     +param = (enabled, disabled, all) , if empty default to all
92     +
93     +this will return you a hash order by version
94     +my %list= listPHPVersionHash();
95     +print "$_ => $list{$_}\n" for (sort keys %list);
96     +54 => php-fpm
97     +55 => php55-php-fpm
98     +56 => php56-php-fpm
99     +70 => php70-php-fpm
100     +71 => php71-php-fpm
101     +72 => php72-php-fpm
102     +73 => php73-php-fpm
103     +74 => php74-php-fpm
104     +80 => php80-php-fpm
105     +=cut
106     +sub listPHPVersionHash {
107     + my $status = shift || 'all';
108     + my @FPM = listPHPVersionFPM($status);
109     + my %myfpm;
110     + for my $php ( @FPM) {
111     + $myfpm{"54"}="$php" for ( $php=~/^php-fpm$/);
112     + $myfpm{$_}="$php" for ( $php=~/^php([0-9]{2})-php-fpm$/);
113     + }
114     + return %myfpm;
115     +}
116     +
117     +=head2 listPHPVersionHashShort
118     +param = (enabled, disabled, all) , if empty default to all
119     +
120     +this will return you a hash order by version
121     +my %list= listPHPVersionHashShort();
122     +print "$_ => $list{$_}\n" for (sort keys %list);
123     +54 => php
124     +55 => php55
125     +56 => php56
126     +70 => php70
127     +71 => php71
128     +72 => php72
129     +73 => php73
130     +74 => php74
131     +80 => php80
132     +=cut
133     +sub listPHPVersionHashShort {
134     + my $status = shift || 'all';
135     + my %myfpm = listPHPVersionHash($status);
136     + my %rfpm;
137     + foreach my $key (keys %myfpm) {
138     + my $php = $myfpm{$key};
139     + ($rfpm{$key}= $php)=~s/(php[0-9]{0,2}).*/$1/;
140     + }
141     + return %rfpm;
142     +}

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed