initial commit of file from CVS for smeserver-userpanel on Sat Sep 7 21:12:39 AEST 2024

2024-09-07 21:12:39 +10:00
parent d369a6eb72
commit 537335bf32
24 changed files with 3616 additions and 2 deletions
--- a/root/etc/e-smith/web/functions/userpanel-initial
+++ b/root/etc/e-smith/web/functions/userpanel-initial
@@ -0,0 +1,135 @@
+#!/usr/bin/perl -wT
+
+#----------------------------------------------------------------------
+# user manager functions: initial
+#
+# Copyright (c) 2001 Daniel van Raay <danielvr@caa.org.au>
+#
+# 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 CGI ':all';
+use CGI::Carp qw(fatalsToBrowser);
+
+use esmith::cgi;
+use esmith::config;
+use esmith::util;
+use esmith::db;
+
+BEGIN
+{
+    # Clear PATH and related environment variables so that calls to
+    # external programs do not cause results to be tainted. See
+    # "perlsec" manual page for details.
+
+    $ENV {'PATH'} = '';
+    $ENV {'SHELL'} = '/bin/bash';
+    delete $ENV {'ENV'};
+}
+
+esmith::util::setRealToEffective ();
+
+$CGI::POST_MAX=1024 * 100;  # max 100K posts
+$CGI::DISABLE_UPLOADS = 1;  # no uploads
+
+my %conf;
+tie %conf, 'esmith::config';
+
+my %accounts;
+tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
+
+my $q = new CGI;
+
+esmith::cgi::genHeaderNonCacheable ($q, \%conf, 'Smeserver User Manager');
+
+print <<EOF;
+
+<P>To perform a user administration function, click one of the
+links in the menu on the left of your screen. If your admin allows it,
+ you can:
+
+<ul>
+EOF
+
+   my $user = $ENV{'REMOTE_USER'};
+
+   my $userAdminPanels = db_get_prop(\%accounts, $user, 'AdminPanels');
+   $userAdminPanels = '' if ! defined ($userAdminPanels);
+
+   my $globalAdminPanels = db_get_prop(\%accounts, 'globalUP', 'AdminPanels');
+   $globalAdminPanels = '' if ! defined ($globalAdminPanels);
+
+   my @adminpanels;
+   if ( defined ($userAdminPanels) )
+   {
+      @adminpanels = grep (/^userpanel-/, ((split (/,/, $userAdminPanels, -1)),(split (/,/, $globalAdminPanels, -1))));
+   }
+
+   my $panel;
+   my %panelhash = ();
+   my $desc;
+   my $longdesc;
+   foreach $panel (@adminpanels)
+   {
+       unless (open (RD, "/etc/e-smith/web/panels/user/cgi-bin/$panel"))
+       {
+           warn "Can't open file /etc/e-smith/web/panels/user/cgi-bin/$panel: $!\n";
+           next;
+       }
+
+       $desc = "";
+       $longdesc = "";
+       while (<RD>)
+       {
+           if (/^\s*#\s*description\s*:\s*(.+?)\s*$/)
+           {
+               $desc = $1;
+           }
+           if (/^\s*#\s*longdesc\s*:\s*(.+?)\s*$/)
+           {
+               $longdesc = $1;
+           }
+
+           last if ( $desc && $longdesc );
+       }
+       close RD;
+
+       if ($desc && $longdesc)
+       {
+           $panelhash{$desc} = $longdesc;
+       }
+   }
+
+  foreach $panel (sort keys %panelhash)
+  {
+      print "<li><b>$panel</b>&nbsp; - <i>$panelhash{$panel}</i></li>\n";
+  }
+
+print <<EOF;
+</ul>
+
+<P>This software comes with ABSOLUTELY NO WARRANTY. As part of our
+commitment to open-source software, you are welcome to copy and
+redistribute this software.
+
+EOF
+
+print $q->endform;
+
+esmith::cgi::genFooter ($q);
+