e-smith-ibays
-SMEServer Koozali developed git repo for e-smith-ibays smeserver
\ No newline at end of file
+SMEServer Koozali developed git repo for e-smith-ibays smeserver
+
+## Wiki
++ You can remove any information bay or reset its password by + clicking on the corresponding command + next to the information bay. If the information bay shows up + in red, that means that the password has not + yet been changed from the default, and should be changed + soon. +
+ ]]> ++ All files belonging to this information bay will be deleted. +
++ Are you sure you wish to remove this information bay? +
+ ]]> +This information bay has not yet been customized.
+ + + + +HERE +} diff --git a/root/etc/e-smith/templates/home/e-smith/files/ibays/html/index.html/template-begin b/root/etc/e-smith/templates/home/e-smith/files/ibays/html/index.html/template-begin new file mode 100644 index 0000000..e69de29 diff --git a/root/etc/e-smith/web/common/.gitignore b/root/etc/e-smith/web/common/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/root/etc/e-smith/web/functions/ibays b/root/etc/e-smith/web/functions/ibays new file mode 100755 index 0000000..711038e --- /dev/null +++ b/root/etc/e-smith/web/functions/ibays @@ -0,0 +1,145 @@ +#!/usr/bin/perl -wT + +# vim: ft=xml ts=4 sw=4 et: +#---------------------------------------------------------------------- +# heading : Collaboration +# description : Information bays +# navigation : 2000 2500 +# +# Copyright (c) 2001 Mitel Networks Corporation +# +# 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 +# +# Technical support for this program is available from e-smith, inc. +# Please visit our web site www.e-smith.com for details. +#---------------------------------------------------------------------- + +use strict; +use esmith::FormMagick::Panel::ibays; + +my $fm = esmith::FormMagick::Panel::ibays->new(); +$fm->display(); + +=pod + +=head1 NAME + +ibays -- add/remove/manage ibays + +=head2 DESCRIPTION + +This screen allows the administrator to manage information bays. + +=begin testing + +use esmith::FormMagick::Tester; +use esmith::TestUtils; +use esmith::TestUtils; +use esmith::ConfigDB; +use esmith::AccountsDB; + +my $panel = $Original_File; +my $ua = esmith::FormMagick::Tester->new(); + +my $c = esmith::ConfigDB->open(); +my $a = esmith::AccountsDB->open(); + +is (mode($panel), '4750', "Check permissions on script"); +ok ($ua->get_panel($panel), "ABOUT TO RUN L10N TESTS"); +is ($ua->{status}, 200, "200 OK"); +#like($ua->{content}, qr/FORM_TITLE/, "Saw untranslated form title"); +ok ($ua->set_language("en"), "Set language to English"); +ok ($ua->get_panel($panel), "Get panel"); +is ($ua->{status}, 200, "200 OK"); +like($ua->{content}, qr/Information bays/, "Saw translated form title"); + +ok ($ua->get_panel($panel), "ABOUT TO TEST CREATING IBAY"); +ok ($ua->follow("Click here"), "Follow 'create ibay' link"); +is ($ua->{status}, 200, "200 OK"); +like($ua->{content}, qr/Create a new information bay/, "Saw page title"); +like($ua->{content}, qr/Brief description/, "Saw description field"); +like($ua->{content}, qr/Group/, "Saw group field"); +like($ua->{content}, qr/User access via file/, "Saw user access field"); +like($ua->{content}, qr/Public access via/, "Saw Public access field"); +like($ua->{content}, qr/Add/, "Saw add button"); + +SKIP: { + + skip 10, "Unsafe!" unless destruction_ok(); + + ok ($ua->follow("Click here"), "ACTUALLY ADDING A NETWORK"); + $ua->field(); + $ua->click("Add"); + like($ua->{content}, qr/Successfully added ibay/, "Saw success message"); + + ok ($ua->follow("Remove"), "REMOVING NETWORK"); + like($ua->{content}, qr/Are you sure/, "Saw confirmation message"); + $ua->click("Remove"); + like($ua->{content}, qr/Successfully deleted/, "Saw success message"); + +} + + +=cut + +__DATA__ + diff --git a/root/etc/e-smith/web/panels/manager/cgi-bin/.gitignore b/root/etc/e-smith/web/panels/manager/cgi-bin/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/root/etc/e-smith/web/panels/manager/common/.gitignore b/root/etc/e-smith/web/panels/manager/common/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/root/etc/e-smith/web/panels/manager/html/.gitignore b/root/etc/e-smith/web/panels/manager/html/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/root/home/e-smith/files/ibays/.gitignore b/root/home/e-smith/files/ibays/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/ibays.pm b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/ibays.pm new file mode 100644 index 0000000..3c55691 --- /dev/null +++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/ibays.pm @@ -0,0 +1,730 @@ +#!/usr/bin/perl -w + +# +# $Id: ibays.pm,v 1.8 2005/09/06 05:49:52 apc Exp $ +# + +package esmith::FormMagick::Panel::ibays; + +use strict; + +use esmith::FormMagick; +use esmith::AccountsDB; +use esmith::ConfigDB; +use esmith::DomainsDB; +use esmith::cgi; +use esmith::util; +use File::Basename; +use Exporter; +use Carp; + +our @ISA = qw(esmith::FormMagick Exporter); + +our @EXPORT = qw( + print_ibay_table + print_ibay_name_field + print_vhost_message + group_list + userAccess_list + publicAccess_list + max_ibay_name_length + handle_ibays + remove_ibay + reset_password + getExtraParams + verifyPasswords + check_password + print_save_or_add_button + wherenext +); + +our $VERSION = sprintf '%d.%03d', q$Revision: 1.8 $ =~ /: (\d+).(\d+)/; + +our $accountdb = esmith::AccountsDB->open(); +our $configdb = esmith::ConfigDB->open(); + +=pod + +=head1 NAME + +esmith::FormMagick::Panels::ibays - useful panel functions + +=head1 SYNOPSIS + + use esmith::FormMagick::Panels::ibays; + + my $panel = esmith::FormMagick::Panel::ibays->new(); + $panel->display(); + +=head1 DESCRIPTION + +=head2 new(); + +Exactly as for esmith::FormMagick + +=begin testing + +$ENV{ESMITH_ACCOUNT_DB} = "10e-smith-base/accounts.conf"; +$ENV{ESMITH_CONFIG_DB} = "10e-smith-base/configuration.conf"; +$ENV{ESMITH_DOMAINS_DB} = "10e-smith-base/domains.conf"; + +use_ok('esmith::FormMagick::Panel::ibays'); +use vars qw($panel); +ok($panel = esmith::FormMagick::Panel::ibays->new(), + "Create panel object"); +isa_ok($panel, 'esmith::FormMagick::Panel::ibays'); + +{ package esmith::FormMagick::Panel::ibays; + our $accountdb; + ::isa_ok($accountdb, 'esmith::AccountsDB'); +} + +=end testing + +=cut + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = esmith::FormMagick::new($class); + $self->{calling_package} = (caller)[0]; + + return $self; +} + +=head1 HTML GENERATION ROUTINES + +Routines for generating chunks of HTML needed by the panel. + +=head1 ROUTINES FOR FILLING IN FIELDS + +=head2 print_ibay_table + +Prints out the ibay table on the front page. + +=for testing +my $self = esmith::FormMagick::Panel::ibays->new(); +$self->{cgi} = CGI->new(""); +can_ok('main', 'print_ibay_table'); +$self->print_ibay_table(); +like($_STDOUT_, qr/NAME/, "Found NAME header in table output"); +#like($_STDOUT_, qr/testibay/, "Found test ibay in user table output"); +#like($_STDOUT_, qr/ff0000/, "Found red 'reset password' output"); + +=cut + +sub print_ibay_table { + my $self = shift; + my $q = $self->{cgi}; + my $name = $self->localise('NAME'); + my $description = $self->localise('DESCRIPTION'); + my $modify = $self->localise('MODIFY'); + my $remove = $self->localise('REMOVE'); + my $resetpw = $self->localise('PASSWORD_RESET'); + my $action_h = $self->localise('ACTION'); + my @ibays = $accountdb->ibays(); + + unless ( scalar @ibays ) + { + print $q->Tr($q->td($self->localise('NO_IBAYS'))); + return ""; + } + + print $q->start_table({-CLASS => "sme-border"}),"\n"; + print $q->Tr ( + esmith::cgi::genSmallCell($q, $name,"header"), + esmith::cgi::genSmallCell($q, $description,"header"), + esmith::cgi::genSmallCell($q, $action_h,"header", 3)),"\n"; + my $scriptname = basename($0); + + foreach my $i (@ibays) + { + my $ibayname = $i->key(); + my $ibaydesc = $i->prop('Name'); + + my $modifiable = $i->prop('Modifiable') || 'yes'; + my $passwordable = $i->prop('Passwordable') || 'yes'; + my $removable = $i->prop('Removable') || 'yes'; + my $needPassword = grep { $_ eq $i->prop('PublicAccess') } + qw(local-pw global-pw global-pw-remote); + + my $params = $self->build_ibay_cgi_params($ibayname, $i->props()); + + + my $href = "$scriptname?$params&action=modify&wherenext="; + + my $actionModify = ' '; + if ($modifiable eq 'yes') + { + $actionModify .= $q->a({href => "${href}CreateModify"},$modify) + . ' '; + } + + my $actionResetPw = ' '; + if ($passwordable eq 'yes') + { + if ($i->prop('PasswordSet') ne 'yes' && $needPassword) + { + $actionResetPw .= $q->a({href => "${href}Password", + class => "error"}, $resetpw) + } + else + { + $actionResetPw .= $q->a({href => "${href}Password"}, $resetpw) + } + $actionResetPw .= ' '; + } + + my $actionRemove = ' '; + if ($removable eq 'yes') + { + $actionRemove .= $q->a({href => "${href}Remove"}, $remove) + . ' '; + } + + print $q->Tr ( + esmith::cgi::genSmallCell($q, $ibayname,"normal"), + esmith::cgi::genSmallCell($q, $ibaydesc,"normal"), + esmith::cgi::genSmallCell($q, $actionModify,"normal"), + esmith::cgi::genSmallCell($q, $actionResetPw,"normal"), + esmith::cgi::genSmallCell($q, $actionRemove,"normal")); + } + + print $q->end_table,"\n"; + + return ""; +} + +sub build_ibay_cgi_params { + my ($self, $ibayname, %oldprops) = @_; + + #$oldprops{'description'} = $oldprops{Name}; + #delete $oldprops{Name}; + + my %props = ( + page => 0, + page_stack => "", + #".id" => $self->{cgi}->param('.id') || "", + name => $ibayname, + #%oldprops + ); + + return $self->props_to_query_string(\%props); +} + +*wherenext = \&CGI::FormMagick::wherenext; +sub print_ibay_name_field { + my $self = shift; + my $in = $self->{cgi}->param('name') || ''; + my $action = $self->{cgi}->param('action') || ''; + my $maxLength = $configdb->get('maxIbayNameLength')->value; + print qq(