From 537335bf32f4f579e804f2bc69e3d2821d993ef7 Mon Sep 17 00:00:00 2001
From: Trevor Batley
Date: Sat, 7 Sep 2024 21:12:39 +1000
Subject: [PATCH] initial commit of file from CVS for smeserver-userpanel on
Sat Sep 7 21:12:39 AEST 2024
---
.gitignore | 4 +
Makefile | 21 +
README.md | 16 +-
additional/COPYING | 340 +++++++++++
additional/README.md | 1 +
contriborbase | 1 +
createlinks | 35 ++
.../events/actions/conf-linktotranslations | 8 +
.../events/actions/conf-userpanelsymlinks | 86 +++
.../e-smith/web/common/css/manager.css/50body | 315 ++++++++++
.../web/common/css/manager.css/template-begin | 1 +
.../httpd.conf/80Aliases05userpanel | 10 +
.../httpd.conf/90e-smithAccess30user | 92 +++
.../VirtualHosts/28UserManagerProxyPass | 29 +
.../e-smith/web/common/cgi-bin/logout-user | 128 ++++
root/etc/e-smith/web/common/css/manager.css | 310 ++++++++++
.../e-smith/web/functions/userpanel-initial | 135 +++++
.../web/functions/userpanel-navigation | 371 ++++++++++++
.../e-smith/web/functions/userpanel-noframes | 259 ++++++++
.../etc/e-smith/web/functions/userpanelaccess | 411 +++++++++++++
root/etc/e-smith/web/panels/user/access.incl | 3 +
.../e-smith/web/panels/user/html/index.html | 35 ++
.../share/perl5/vendor_perl/esmith/cgi5.pm | 564 ++++++++++++++++++
smeserver-userpanel.spec | 443 ++++++++++++++
24 files changed, 3616 insertions(+), 2 deletions(-)
create mode 100644 .gitignore
create mode 100644 Makefile
create mode 100644 additional/COPYING
create mode 100644 additional/README.md
create mode 100644 contriborbase
create mode 100644 createlinks
create mode 100644 root/etc/e-smith/events/actions/conf-linktotranslations
create mode 100644 root/etc/e-smith/events/actions/conf-userpanelsymlinks
create mode 100644 root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/50body
create mode 100644 root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/template-begin
create mode 100644 root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/80Aliases05userpanel
create mode 100644 root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/90e-smithAccess30user
create mode 100644 root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/VirtualHosts/28UserManagerProxyPass
create mode 100644 root/etc/e-smith/web/common/cgi-bin/logout-user
create mode 100644 root/etc/e-smith/web/common/css/manager.css
create mode 100644 root/etc/e-smith/web/functions/userpanel-initial
create mode 100644 root/etc/e-smith/web/functions/userpanel-navigation
create mode 100644 root/etc/e-smith/web/functions/userpanel-noframes
create mode 100644 root/etc/e-smith/web/functions/userpanelaccess
create mode 100644 root/etc/e-smith/web/panels/user/access.incl
create mode 100644 root/etc/e-smith/web/panels/user/html/index.html
create mode 100644 root/usr/share/perl5/vendor_perl/esmith/cgi5.pm
create mode 100644 smeserver-userpanel.spec
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..e594810
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+*.rpm
+*.log
+*spec-20*
+*.tar.xz
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..81b542c
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,21 @@
+# Makefile for source rpm: smeserver-userpanel
+# $Id: Makefile,v 1.1 2020/11/04 16:01:55 michel Exp $
+NAME := smeserver-userpanel
+SPECFILE = $(firstword $(wildcard *.spec))
+
+define find-makefile-common
+for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done
+endef
+
+MAKEFILE_COMMON := $(shell $(find-makefile-common))
+
+ifeq ($(MAKEFILE_COMMON),)
+# attept a checkout
+define checkout-makefile-common
+test -f CVS/Root && { cvs -Q -d $$(cat CVS/Root) checkout common && echo "common/Makefile.common" ; } || { echo "ERROR: I can't figure out how to checkout the 'common' module." ; exit -1 ; } >&2
+endef
+
+MAKEFILE_COMMON := $(shell $(checkout-makefile-common))
+endif
+
+include $(MAKEFILE_COMMON)
diff --git a/README.md b/README.md
index e048072..04de4a3 100644
--- a/README.md
+++ b/README.md
@@ -1,3 +1,15 @@
-# smeserver-userpanel
+# smeserver-userpanel
-SMEServer Koozali developed git repo for smeserver-userpanel smecontribs
\ No newline at end of file
+SMEServer Koozali developed git repo for smeserver-userpanel smecontribs
+
+## Wiki
+
https://wiki.koozali.org/
+
+## Bugzilla
+Show list of outstanding bugs: [here](https://bugs.koozali.org/buglist.cgi?component=smeserver-userpanel&product=SME%20Contribs&query_format=advanced&limit=0&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=CONFIRMED)
+
+## Description
+
+
*This description has been generated by an LLM AI system and cannot be relied on to be fully correct.*
+*Once it has been checked, then this comment will be deleted*
+
diff --git a/additional/COPYING b/additional/COPYING
new file mode 100644
index 0000000..eeb586b
--- /dev/null
+++ b/additional/COPYING
@@ -0,0 +1,340 @@
+ GNU GENERAL PUBLIC LICENSE
+ Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users. This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it. (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.) You can apply it to
+your programs, too.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+ To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+ For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have. You must make sure that they, too, receive or can get the
+source code. And you must show them these terms so they know their
+rights.
+
+ We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+ Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software. If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+ Finally, any free program is threatened constantly by software
+patents. We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary. To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+
+ GNU GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License. The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language. (Hereinafter, translation is included without limitation in
+the term "modification".) Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+ 1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+ 2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) You must cause the modified files to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ b) You must cause any work that you distribute or publish, that in
+ whole or in part contains or is derived from the Program or any
+ part thereof, to be licensed as a whole at no charge to all third
+ parties under the terms of this License.
+
+ c) If the modified program normally reads commands interactively
+ when run, you must cause it, when started running for such
+ interactive use in the most ordinary way, to print or display an
+ announcement including an appropriate copyright notice and a
+ notice that there is no warranty (or else, saying that you provide
+ a warranty) and that users may redistribute the program under
+ these conditions, and telling the user how to view a copy of this
+ License. (Exception: if the Program itself is interactive but
+ does not normally print such an announcement, your work based on
+ the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+ a) Accompany it with the complete corresponding machine-readable
+ source code, which must be distributed under the terms of Sections
+ 1 and 2 above on a medium customarily used for software interchange; or,
+
+ b) Accompany it with a written offer, valid for at least three
+ years, to give any third party, for a charge no more than your
+ cost of physically performing source distribution, a complete
+ machine-readable copy of the corresponding source code, to be
+ distributed under the terms of Sections 1 and 2 above on a medium
+ customarily used for software interchange; or,
+
+ c) Accompany it with the information you received as to the offer
+ to distribute corresponding source code. (This alternative is
+ allowed only for noncommercial distribution and only if you
+ received the program in object code or executable form with such
+ an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it. For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable. However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License. Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+ 5. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Program or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+ 6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+ 7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all. For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded. In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+ 9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time. Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation. If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+ 10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission. For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this. Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+ NO WARRANTY
+
+ 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+ 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Programs
+
+ If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+ To do so, attach the following notices to the program. It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+
+ Copyright (C) 19yy
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+ Gnomovision version 69, Copyright (C) 19yy name of author
+ Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+ This is free software, and you are welcome to redistribute it
+ under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License. Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+ `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+ , 1 April 1989
+ Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs. If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library. If this is what you want to do, use the GNU Library General
+Public License instead of this License.
diff --git a/additional/README.md b/additional/README.md
new file mode 100644
index 0000000..761195d
--- /dev/null
+++ b/additional/README.md
@@ -0,0 +1 @@
+smeserver-userpanel is a contrib for SME Server, a Linux distro oriented server. see http://wiki.contribs.org
diff --git a/contriborbase b/contriborbase
new file mode 100644
index 0000000..9b7fd51
--- /dev/null
+++ b/contriborbase
@@ -0,0 +1 @@
+contribs10
diff --git a/createlinks b/createlinks
new file mode 100644
index 0000000..7e16981
--- /dev/null
+++ b/createlinks
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+
+use esmith::Build::CreateLinks qw(:all);
+use File::Basename;
+use File::Path;
+
+##link to panel
+panel_link("userpanelaccess", "manager");
+
+##actions conf-userpanelsymlinks
+ for my $event (qw( conf-userpanel bootstrap-console-save console-save post-upgrade remoteaccess-update )){
+event_link("conf-userpanelsymlinks", $event, "03");}
+
+##actions link to translations
+ for my $event (qw( conf-userpanel bootstrap-console-save console-save post-upgrade remoteaccess-update )){
+event_link("conf-linktotranslations", $event, "03");}
+
+##event conf-userpanel
+my $event = "conf-userpanel";
+safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-admin");
+safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
+templates2events( "/etc/httpd/conf/httpd.conf",$event);
+templates2events( "/etc/httpd/admin-conf/httpd.conf",$event);
+templates2events( "/etc/e-smith/web/common/css/manager.css",$event);
+templates2events( "/etc/e-smith/web/common/css/manager.css","bootstrap-console-save");
+
+$event = "smeserver-userpanel-update";
+safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-admin");
+safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
+templates2events( "/etc/httpd/conf/httpd.conf",$event);
+templates2events( "/etc/httpd/admin-conf/httpd.conf",$event);
+templates2events( "/etc/e-smith/web/common/css/manager.css",$event);
+templates2events( "/etc/e-smith/web/common/css/manager.css","bootstrap-console-save");
+event_link("conf-linktotranslations", $event, "03");
+event_link("conf-userpanelsymlinks", $event, "03");
diff --git a/root/etc/e-smith/events/actions/conf-linktotranslations b/root/etc/e-smith/events/actions/conf-linktotranslations
new file mode 100644
index 0000000..31fc0e2
--- /dev/null
+++ b/root/etc/e-smith/events/actions/conf-linktotranslations
@@ -0,0 +1,8 @@
+#!/bin/bash
+trad=`/usr/bin/ls /etc/e-smith/locale/`
+for lang in $trad
+do
+/bin/mkdir -p /etc/e-smith/locale/$lang/etc/e-smith/web/panels/user
+/bin/ln -sf /etc/e-smith/locale/$lang/etc/e-smith/web/functions /etc/e-smith/locale/$lang/etc/e-smith/web/panels/user/cgi-bin
+done
+
diff --git a/root/etc/e-smith/events/actions/conf-userpanelsymlinks b/root/etc/e-smith/events/actions/conf-userpanelsymlinks
new file mode 100644
index 0000000..737fc17
--- /dev/null
+++ b/root/etc/e-smith/events/actions/conf-userpanelsymlinks
@@ -0,0 +1,86 @@
+#!/usr/bin/perl -w
+
+#----------------------------------------------------------------------
+#
+# Copyright (c) 2001 Daniel van Raay
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#----------------------------------------------------------------------
+
+package esmith;
+
+use strict;
+use Errno;
+use esmith::config;
+use esmith::util;
+use esmith::db;
+
+my %conf;
+tie %conf, 'esmith::config';
+
+my %accounts;
+tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
+
+#---------------------------------------------------------------------------
+# clear and re-create all the user panel symlinks
+#---------------------------------------------------------------------------
+
+#clear
+opendir (DIR, "/etc/e-smith/web/panels/user/cgi-bin/") or
+ die "Can't open directory /etc/e-smith/web/panels/user/cgi-bin/\n";
+my @symlinks = grep (!/^\./, readdir (DIR));
+closedir (DIR);
+
+foreach my $link (@symlinks)
+{
+ -e "/etc/e-smith/web/panels/user/cgi-bin/$link" && unlink("/etc/e-smith/web/panels/user/cgi-bin/$link");
+}
+
+#always link userpanels
+my %newsymlinks;
+opendir (DIR, "/etc/e-smith/web/functions/") or
+ die "Can't open directory /etc/e-smith/web/functions/\n";
+foreach my $userpanels ( grep (/^(userpanel-initial|userpanel-navigation|userpanel-noframes|pleasewait)$/, readdir (DIR)) )
+{
+ $newsymlinks{$userpanels} = 'Yes';
+}
+closedir (DIR);
+
+#also add needed panels
+foreach my $user (sort keys %accounts)
+{
+ my $userAdminPanels = db_get_prop(\%accounts, $user, "AdminPanels");
+ $userAdminPanels = '' if ! defined ($userAdminPanels);
+
+ foreach my $panels (split (/,/, $userAdminPanels))
+ {
+ $newsymlinks{$panels} = 'Yes';
+ }
+}
+
+foreach my $link ( sort keys %newsymlinks )
+{
+ if ( -e "/etc/e-smith/web/functions/$link" &&
+ ! -e "/etc/e-smith/web/panels/user/cgi-bin/$link" )
+ {
+ symlink("../../../functions/wrapper", "/etc/e-smith/web/panels/user/cgi-bin/$link") ||
+ #link("/etc/e-smith/web/functions/$link", "/etc/e-smith/web/panels/user/cgi-bin/$link") ||
+ warn "Couldn't link('functions/$link' to '/etc/e-smith/web/panels/user/cgi-bin/$link'): $!\n";
+ }
+}
+
+
+exit (0);
+
diff --git a/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/50body b/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/50body
new file mode 100644
index 0000000..55ac7b6
--- /dev/null
+++ b/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/50body
@@ -0,0 +1,315 @@
+{
+ $OUT =<<'HERE';
+/*------------------------------------------------------------
+ * Default properties
+ *------------------------------------------------------------*/
+
+body
+{
+ background: #ffffff;
+ color: #000000;
+ font-family: verdana,arial,helvetica,sans-serif;
+ font-size: 10pt;
+ border-width: 0
+}
+
+/* Netscape 4 needs these basic settings in order to render default font properly */
+p
+{
+ color: #000000;
+ font-family: verdana,arial,helvetica,sans-serif;
+}
+
+table td
+{
+ color: #000000;
+ font-family: verdana,arial,helvetica,sans-serif;
+ font-size: 10pt;
+}
+
+td {
+ font-family: verdana,arial,helvetica,sans-serif;
+ font-size: 10pt;
+}
+table td div {
+ background: transparent;
+ font-size: 10pt;
+}
+
+p.notsmall {
+ font-size: 10pt;
+}
+
+/* End Netscape-isms (for the moment ) */
+
+.centerit
+{
+ text-align: center;
+}
+
+div
+{
+ margin-top: 10px;
+ margin-bottom: 10px;
+}
+
+.highlight
+{
+ background: #ffc61e;
+}
+
+.subheading
+{
+ background: #ffffff;
+ color: #1e385b;
+}
+/*------------------------------------------------------------
+ * Properties for headings
+ *------------------------------------------------------------*/
+
+
+h1
+{
+ font-family: verdana,helvetica,arial,sans-serif;
+ color: #000099
+}
+
+h2
+{
+ font-family: verdana,helvetica,arial,sans-serif;
+ color: #000099
+}
+
+h3
+{
+ font-family: verdana,helvetica,arial,sans-serif;
+ color: #000099
+}
+
+h4
+{
+ font-family: verdana,helvetica,arial,sans-serif;
+ font-style: italic
+}
+
+/*------------------------------------------------------------
+ * Properties for lists
+ *------------------------------------------------------------*/
+
+ul
+{
+ font-family: arial,helvetica,sans-serif;
+ list-style-type: square;
+
+}
+
+ol {
+ font-family: arial,helvetica,sans-serif;
+ font-size: 80%;
+ color: #1e385b;
+}
+
+/*------------------------------------------------------------
+ * Properties for list items
+ *------------------------------------------------------------*/
+
+ol ul li
+{
+ font-family: arial,helvetica,sans-serif;
+ font-size: 80%;
+ font-weight: normal;
+ color: #000000;
+}
+
+
+/*------------------------------------------------------------
+ * Properties for tables
+ *------------------------------------------------------------*/
+
+/* Removed -- see default table font above... */
+/* td
+{
+ font-family: Times
+}
+*/
+
+table
+{
+ margin-top: 0px;
+ margin-bottom: 0px;
+ margin-left: 0px;
+ margin-right: 0px;
+}
+/* left margin and center [sic] table classes */
+
+.banner
+{
+ background: #000000;
+ color: #ffffff;
+}
+
+.banner-right
+{
+ font-family: arial,helvetica,sans-serif;
+ background: #e17200;
+ color: #ffffff;
+}
+
+.border
+{
+ background: #000000;
+ color: #000000;
+ border-color: #000000;
+}
+.sidebar
+{
+ width: 200px;
+ background: #ffffff;
+ font-size: smaller;
+ font: arial,helvetica,sans-serif;
+ font-weight: normal;
+}
+
+.sidebar-title
+{
+ background: #1e385b;
+ color: #ffffff;
+ font: arial,helvetica,sans-serif;
+ font-weight: bold;
+}
+
+.newsitem
+{
+ background: #ffffff;
+ font-color: #000000;
+ font: arial,helvetica,sans-serif;
+ margin-left: 5px;
+ margin-right: 5px;
+ margin-top: 5px;
+ margin-bottom: 5px;
+}
+
+.newsitem-title
+{
+ background: #cccccc;
+ font-color: #ffffff;
+ font: arial,helvetica,sans-serif;
+ font-weight: bold;
+}
+
+.newsitem-footer
+{
+ background: #cccccc;
+ color: #000000;
+ font: arial,helvetica,sans-serif;
+ font-size: smaller;
+ text-align: right;
+}
+
+.newsitem-detail
+{
+ font-size: smaller;
+ font-weight: normal;
+}
+
+.formlabel
+{
+ background: #c0c0c0;
+ color: #000000;
+ font: arial,helvetica,sans-serif;
+ font-size: small;
+ font-weight: bold;
+ text-align: right;
+}
+
+
+/*------------------------------------------------------------
+ * Properties for title tables
+ *------------------------------------------------------------*/
+
+th
+{
+ /* font-family: Helvetica,Arial; */
+ background: #F7E0B5;
+ color: #000000
+}
+
+/*------------------------------------------------------------
+ * Properties for the copyright notice on the bottom
+ *------------------------------------------------------------*/
+
+.copyright
+{
+ font-family: Times;
+ font-size: smaller
+}
+
+/*------------------------------------------------------------
+ * Properties for the clickable links
+ *------------------------------------------------------------*/
+
+/* Netscape 4 can't use these. Default ANCHOR setting follows... */
+a:link, A:visited, A:active
+{
+ color: #00008b
+}
+
+a
+{
+ color: #00008b;
+}
+
+/* link styles for index.php3 (i.e. welcome page) */
+.welcome-link
+{
+ background: #ffffff;
+ color: #1e385b;
+}
+
+/*------------------------------------------------------------
+ * Properties for the littlelinks
+ *------------------------------------------------------------*/
+
+.littlelink
+{
+ font-family: helvetica,arial,sans-serif;
+}
+
+/*------------------------------------------------------------
+ * Style for positioning text
+ *------------------------------------------------------------*/
+
+#textlayer
+{
+ position: absolute;
+ visibility: inherit;
+ top: 160px;
+ left: 50px;
+ z-index: 2
+}
+
+/*------------------------------------------------------------
+ * Style for bold paragraph text
+ *------------------------------------------------------------*/
+
+#para
+{
+ font-family: helvetica,arial,sans-serif;
+ font-weight: bold;
+ color: #000000
+}
+
+/*------------------------------------------------------------
+ *
+ *------------------------------------------------------------*/
+
+#title
+{
+ font-family: helvetica,arial,sans-serif;
+ font-weight: bold;
+ padding: 7px 7px 7px 7px;
+ color: #ffffff
+}
+
+HERE
+}
diff --git a/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/template-begin b/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/template-begin
new file mode 100644
index 0000000..85538dc
--- /dev/null
+++ b/root/etc/e-smith/templates/etc/e-smith/web/common/css/manager.css/template-begin
@@ -0,0 +1 @@
+/* DO NOT MODIFY THIS FILE! It is updated automatically */
diff --git a/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/80Aliases05userpanel b/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/80Aliases05userpanel
new file mode 100644
index 0000000..a46279c
--- /dev/null
+++ b/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/80Aliases05userpanel
@@ -0,0 +1,10 @@
+
+# Aliases for the e-smith-user panel:
+ ScriptAlias /user-manager/cgi-bin /etc/e-smith/web/panels/user/cgi-bin
+ Alias /user-manager /etc/e-smith/web/panels/user/html
+ {
+ my $UserAlias = ${UserPanelAlias} || 'user';
+ $OUT .= " ScriptAlias /$UserAlias/cgi-bin /etc/e-smith/web/panels/user/cgi-bin\n";
+ $OUT .= " Alias /$UserAlias /etc/e-smith/web/panels/user/html\n";
+ }
+
diff --git a/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/90e-smithAccess30user b/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/90e-smithAccess30user
new file mode 100644
index 0000000..0ab230f
--- /dev/null
+++ b/root/etc/e-smith/templates/etc/httpd/admin-conf/httpd.conf/90e-smithAccess30user
@@ -0,0 +1,92 @@
+
+#------------------------------------------------------------
+# e-smith-user panel
+#------------------------------------------------------------
+{
+ use esmith::db;
+
+ my %accounts;
+ tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
+
+ my %panelshash;
+ opendir (DIR, "/etc/e-smith/web/panels/user/cgi-bin")
+ || die "Can't open /etc/e-smith/web/panels/user/cgi-bin directory.\n";
+
+ my @files = sort (grep (!/(^\.\.?$)|(^pleasewait$)|(^userpanel-[a-z][\-\_a-z0-9]*)/, readdir(DIR)));
+
+ closedir (DIR);
+
+ my $globalpanels = db_get_prop(\%accounts, 'globalUP', 'AdminPanels');
+ $globalpanels = '' if ( ! defined ($globalpanels) );
+ my @globalpanels = split (/,/, $globalpanels, -1);
+
+ my $key;
+ my $value;
+ my $require = "require user ";
+ while (($key,$value) = each %accounts)
+ {
+ my ($type, %properties) = split (/\|/, $value, -1);
+ if ($type eq 'user')
+ {
+ # Build the all-users require line:
+ $require .= " $key";
+
+ foreach $file (@files)
+ {
+ next if ($globalpanels && grep (/^$file$/, @globalpanels));
+
+ my $adminpanels = db_get_prop(\%accounts, $key, 'AdminPanels');
+ if ( defined $adminpanels )
+ {
+ my @adminpanels = split (/,/, $adminpanels, -1);
+ if (grep (/^$file$/, @adminpanels))
+ {
+ # Build a files require line for each panel
+ $panelshash{$file} .= " $key"
+ }
+ }
+ }
+ }
+ }
+
+ $OUT .= <
+ Options Includes Indexes FollowSymLinks
+ AllowOverride None
+ AuthName "SME User manager"
+ AuthType Basic
+ TKTAuthLoginURL /server-common/cgi-bin/login
+ SetEnv IMGHDR_SRC \"/e-smith-common/server-manager.jpg\"
+
+ require valid-user
+ Require ip $localAccess
+
+
+
+
+ Options Includes Indexes FollowSymLinks
+ AllowOverride None
+ AuthName "SME User Manager"
+ AuthType Basic
+ TKTAuthLoginURL /server-common/cgi-bin/login
+ SetEnv IMGHDR_SRC \"/e-smith-common/server-manager.jpg\"
+
+ require valid-user
+ Require ip $localAccess
+
+HERE
+
+ foreach $file (@files)
+ {
+ next unless ( defined ($panelshash{$file}) );
+ $OUT .= "\n";
+ $OUT .= " \n";
+ $OUT .= " AuthName \"SME User manager\"\n";
+ $OUT .= " AuthType Basic\n";
+ $OUT .= " TKTAuthLoginURL /server-common/cgi-bin/login\n";
+ $OUT .= " require user admin$panelshash{$file}\n";
+ $OUT .= " \n";
+ }
+
+ $OUT .= "\n";
+}
diff --git a/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/VirtualHosts/28UserManagerProxyPass b/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/VirtualHosts/28UserManagerProxyPass
new file mode 100644
index 0000000..b4936ba
--- /dev/null
+++ b/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/VirtualHosts/28UserManagerProxyPass
@@ -0,0 +1,29 @@
+{
+ # vim: ft=perl:
+
+ $haveSSL = (exists ${modSSL}{status} and ${modSSL}{status} eq "enabled") ? 'yes' : 'no';
+ $plainTextAccess = ${'httpd-admin'}{PermitPlainTextAccess} || 'no';
+ $UserAlias = ${UserPanelAlias} || 'user';
+
+
+ $OUT = '';
+ foreach $place ('user-manager',$UserAlias)
+ {
+ if (($port eq "80") && ($haveSSL eq 'yes') && ($plainTextAccess ne 'yes'))
+ {
+ $OUT .= " RewriteRule ^/$place(/.*|\$) https://%{HTTP_HOST}/$place\$1 [L,R]\n";
+ } else {
+ $OUT .= " ProxyPass /$place http://127.0.0.1:${'httpd-admin'}{TCPPort}/$place\n";
+ $OUT .= " ProxyPassReverse /$place http://127.0.0.1:${'httpd-admin'}{TCPPort}/$place\n";
+ }
+
+ $OUT .= " \n";
+ if (($haveSSL eq 'yes') && (($port eq "443") || ($plainTextAccess ne 'yes')))
+ {
+ $OUT .= " Require ip $localAccess $externalSSLAccess\n";
+ } else {
+ $OUT .= " Require ip $localAccess\n";
+ }
+ $OUT .= " \n";
+ }
+}
diff --git a/root/etc/e-smith/web/common/cgi-bin/logout-user b/root/etc/e-smith/web/common/cgi-bin/logout-user
new file mode 100644
index 0000000..cd94b26
--- /dev/null
+++ b/root/etc/e-smith/web/common/cgi-bin/logout-user
@@ -0,0 +1,128 @@
+#!/usr/bin/perl -w
+#
+# mod_auth_tkt sample logout script
+#
+# Note that this needs script needs to be available locally on all domains
+# if using multiple domains (unlike login.cgi, which only needs to exist
+# on one domain).
+#
+
+use File::Basename;
+use lib dirname($ENV{SCRIPT_FILENAME});
+use Apache::AuthTkt 0.03;
+use CGI qw(:standard);
+use URI::Escape;
+use URI;
+use strict;
+
+# ------------------------------------------------------------------------
+# Configure this section to taste
+
+# CSS stylesheet to use (optional)
+my $STYLESHEET = '/server-common/css/tkt.css';
+# Page title (optional)
+my $TITLE = '';
+# Boolean flag, whether to fallback to HTTP_REFERER for back link
+my $BACK_REFERER = 1;
+# Additional cookies to clear on logout e.g. PHPSESSID
+my @NUKE_COOKIES = qw();
+
+# ------------------------------------------------------------------------
+# Main code begins
+my $debug = 0;
+my $at = Apache::AuthTkt->new(conf => "/etc/e-smith/web/common/cgi-bin/AuthTKT.cfg");
+my $q = CGI->new;
+my ($server_name, $server_port) = split /:/, $q->http('X-Forwarded-Host') || $ENV{HTTP_HOST};
+#warn "servername is $server_name; HOST is $ENV{HTTP_HOST}\n";
+$server_name ||= $ENV{SERVER_NAME};
+$server_port ||= $ENV{SERVER_PORT};
+$server_port = '443';
+my $AUTH_DOMAIN = $server_name;
+my $back = $q->cookie($at->back_cookie_name) if $at->back_cookie_name;
+$back ||= $q->param($at->back_arg_name) if $at->back_arg_name;
+$back ||= $ENV{HTTP_REFERER} if $BACK_REFERER;
+$back = "/user-manager/";
+if ($back && $back =~ m!^/!) {
+ my $hostname = $server_name;
+ my $port = $server_port;
+ $hostname .= ':' . $port if $port && $port != 80 && $port != 443;
+ $back = sprintf "http%s://%s%s", ($port == 443 ? 's' : ''), $hostname, $back;
+} elsif ($back && $back !~ m/^http/i) {
+ $back = 'http://' . $back;
+}
+$back = uri_unescape($back) if $back =~ m/^https?%3A%2F%2F/;
+my $back_html = escapeHTML($back) if $back;
+
+# Logout by resetting the auth cookie
+my @cookies = cookie(-name => $at->cookie_name, -value => '', -expires => '-1h',
+ ($AUTH_DOMAIN && $AUTH_DOMAIN =~ /\./ ? (-domain => $AUTH_DOMAIN) : ()));
+push @cookies, map { cookie(-name => $_, -value => '', -expires => '-1h') } @NUKE_COOKIES;
+
+my $redirected = 0;
+if ($back) {
+ my $b = URI->new($back);
+ # If $back domain doesn't match $AUTH_DOMAIN, add ticket reset to back
+ if ($b->host !~ m/\b$AUTH_DOMAIN$/i) {
+ $back .= $b->query ? '&' : '?';
+ $back .= $at->cookie_name . '=';
+ }
+
+ if ($debug) {
+ print $q->header(-cookie => \@cookies);
+ }
+
+ else {
+ # Set (local) cookie, and redirect to $back
+ print $q->header(
+ -cookie => \@cookies,
+# -location => $back,
+ );
+ # For some reason, a Location: redirect doesn't seem to then see the cookie,
+ # but a meta refresh one does - weird
+ print $q->start_html(
+ -head => meta({
+ -http_equiv => 'refresh', -content => "0;URL=$back"
+ }));
+ $redirected = 1;
+ }
+}
+
+# If no $back, just set the auth cookie and hope for the best
+else {
+ print $q->header(-cookie => \@cookies);
+}
+
+my @style = $STYLESHEET ? ('-style' => { src => $STYLESHEET }) : ();
+$TITLE ||= 'Logout Page';
+unless ($redirected) {
+ # If here, either some kind of error or no back ref found
+ print $q->start_html(
+ -title => $TITLE,
+ @style,
+ );
+ print <
+$TITLE
+EOD
+ if ($debug) {
+ print <
+back: $back
+back_html: $back_html
+
+EOD
+ }
+ print <You are now logged out.
+EOD
+ print qq(Return to server manager login
\n) if $back_html;
+ print <
+