smeserver-php/sme10/smeserver-php-3.0.0-bz11413-php-perl-module.patch

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
--- smeserver-php-3.0.0.old/root/usr/share/perl5/vendor_perl/esmith/php.pm      1969-12-31 19:00:00.000000000 -0500
+++ smeserver-php-3.0.0/root/usr/share/perl5/vendor_perl/esmith/php.pm  2021-03-07 01:04:34.688000000 -0500
@@ -0,0 +1,138 @@
+package esmith::php;
+
+use strict;
+use warnings;
+use esmith::ConfigDB;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw( listPHPVersionFPM listPHPVersionShort listPHPVersionHash listPHPVersionHashShort);
+
+=head1 NAME
+
+esmith::php - A few tools to help with php-fpm installed versions
+
+=head1 SYNOPSIS
+
+    use esmith::php;
+
+    my @phps=listPHPVersionFPM('enabled');
+
+=head1 DESCRIPTION
+
+This is intended to help playing with installed php versions.
+
+=head1 Methods
+
+
+=head2 listPHPVersionFPM
+param = (enabled, disabled, all) , if empty default to all
+this will return you an array of php-fpm versions available php version
+print "'$_'\n" for listPHPVersionFPM('all');
+'php-fpm'
+'php55-php-fpm'
+'php56-php-fpm'
+'php70-php-fpm'
+'php71-php-fpm'
+'php72-php-fpm'
+'php73-php-fpm'
+'php74-php-fpm'
+'php80-php-fpm'
+
+this will return only available and enabled
+print "'$_'\n" for listPHPVersionFPM('enabled');
+=cut
+sub listPHPVersionFPM {
+  my $status = shift  || 'all';
+  my $conf = esmith::ConfigDB->open_ro or die "Could not open accounts db";
+  my @list = $conf->get_all_by_prop( type => 'service' );
+  my @keys = map {$_->key; } @list;
+  my @FPM;
+  foreach my $service (  grep(/^(php[0-9]{2}-)?php-fpm$/,@keys) ) {
+    my $s = $conf->get($service);
+    next unless ($s) ;
+    next unless (-f "/usr/lib/systemd/system/$service.service") ;
+    next unless ( $status eq "all" || ($s->prop('status') || "disabled") eq $status );
+    push @FPM, $service;
+  }
+ return @FPM
+}
+
+=head2 listPHPVersionShort
+param = (enabled, disabled, all) , if empty default to all
+
+this will return you an array of numerical available php version
+print "'$_'\n" for listPHPVersionShort('all');
+'54'
+'55'
+'56'
+'70'
+'71'
+'72'
+'73'
+'74'
+'80'
+
+this will returnonly available and enabled
+print "'$_'\n" for listPHPVersionShort('enabled');
+=cut
+sub listPHPVersionShort {
+  my $status = shift  || 'all';
+  my @FPM = listPHPVersionFPM($status);
+  s/^php([0-9]{2})-php-fpm$/$1/ for @FPM ;
+  s/^php-fpm$/54/ for @FPM ;
+  return @FPM;
+}
+
+=head2 listPHPVersionHash
+param = (enabled, disabled, all) , if empty default to all
+
+this will return you a hash order by version 
+my %list= listPHPVersionHash();
+print "$_ => $list{$_}\n" for (sort keys %list);
+54 => php-fpm
+55 => php55-php-fpm
+56 => php56-php-fpm
+70 => php70-php-fpm
+71 => php71-php-fpm
+72 => php72-php-fpm
+73 => php73-php-fpm
+74 => php74-php-fpm
+80 => php80-php-fpm
+=cut
+sub listPHPVersionHash {
+  my $status = shift  || 'all';
+  my @FPM = listPHPVersionFPM($status);
+  my %myfpm;
+  for my $php ( @FPM)  {
+    $myfpm{"54"}="$php" for ( $php=~/^php-fpm$/);
+    $myfpm{$_}="$php"  for ( $php=~/^php([0-9]{2})-php-fpm$/);
+  }
+  return %myfpm;
+}
+
+=head2 listPHPVersionHashShort
+param = (enabled, disabled, all) , if empty default to all
+
+this will return you a hash order by version 
+my %list= listPHPVersionHashShort();
+print "$_ => $list{$_}\n" for (sort keys %list);
+54 => php
+55 => php55
+56 => php56
+70 => php70
+71 => php71
+72 => php72
+73 => php73
+74 => php74
+80 => php80
+=cut
+sub listPHPVersionHashShort {
+  my $status = shift  || 'all';
+  my %myfpm = listPHPVersionHash($status);
+  my %rfpm;
+  foreach my $key (keys %myfpm) {
+    my $php = $myfpm{$key};
+    ($rfpm{$key}=  $php)=~s/(php[0-9]{0,2}).*/$1/;
+  }
+  return %rfpm;
+}
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	+}