Créer un server manager pour les utilisateurs autre que admi

[DJbaptis]

Salut

Je voudrais créer un server manager 2 ou il serai possible de lancer la connexion, rebooter... mais accesible par n'importe quel utilisateur qd il rentre son mdp.

Mais je ne sait pas ou mettre les pages qui feront ca dans ma SME
Est ce que qqn sait ??

Merci

[jaysee]

Sur SME 6, j'ai vu apparaitre un nouvel onglet dans le server-manager:

il s'appel security et dedans ya:
User Panel Access

On peut donner des droit d'acces aux users afin de faire ce que tu veux... seul probleme j'ai pas trouver l'url que les utilisateurs doivent utiliser pour acceder a ce panneau.... (j'ai pas trop cherché non plus...)

Quelqu'un a deja utilisé ce truc?

PS: je crois que ce panneau est accessible apres une update... de base il y est pas me semble t'il

[DJbaptis]

Je n'ai pas ca sur ma SME 6, comment tu l'a eu ?

[Muzo]

Salut, de memoire il existe une contrib qui permet de définir quel panel est acessible par qui. Je crois que ca s'appel userpanel de chez dungog.net

http://www.dungog.net/sme/files/userpanel/

[jaysee]

Ca l'air d'etre en effet le truc de Muzo...

J'ai pas fait le test, pas le courage ce soir...

[DJbaptis]

Ca y'est j'ai trouvé l'adresse : c'est
https://"adresse du serveur SME"/user-manager/

Sinon j'ai un autre problème maintenant, je voudrais ajouter un panel personnalisé qui me permettrait de connecter et déconnecter mon modem adsl.

Mais je ne connait pas le language perl ((

Si qqn pouvait m'aider svp

Je voudrais une liste comme dans la page reboot du server manager ou à la place de redemarer et arreter, "Connecter" et "Déconnecter", et en bas le bouton executer

Quand la liste est positionné sur Connecter, j'aimerais que ca execute la commande "/etc/rc.d/init.d/pppoa start"
Quand la liste est positionné sur Déconnecter, j'aimerais que ca execute la commande "/etc/rc.d/init.d/pppoa stop"

Merci si qqn connait le language perl

En ce qui concerne le reste je sais faire (ajouter le panel dans server-manager et user-manager....)

[Taltos]

Ca y'est j'ai trouvé l'adresse : c'est
https://"adresse du serveur SME"/user-manager/

Sinon j'ai un autre problème maintenant, je voudrais ajouter un panel personnalisé qui me permettrait de connecter et déconnecter mon modem adsl.

Mais je ne connait pas le language perl ((

Si qqn pouvait m'aider svp

Je voudrais une liste comme dans la page reboot du server manager ou à la place de redemarer et arreter, "Connecter" et "Déconnecter", et en bas le bouton executer

Quand la liste est positionné sur Connecter, j'aimerais que ca execute la commande "/etc/rc.d/init.d/pppoa start"
Quand la liste est positionné sur Déconnecter, j'aimerais que ca execute la commande "/etc/rc.d/init.d/pppoa stop"

Merci si qqn connait le language perl

En ce qui concerne le reste je sais faire (ajouter le panel dans server-manager et user-manager....)

c'est plus simple de se mettre a putty qu'au perl !!!!!!!!!!!!!!!!!!!!!

avec putty tu passe la ligne de commande service pppoe start ou stop..

la tout dans un raccourci sur le bureau..

et si tu gaze ca se fait sans avoir a rentrer le mot de passe admin .. (ce que je n'est jamais réussi a faire - j'attend ton how to )

tu trouvera des infos dans les archives du forum fr.e-smith (news)

A+

[DJbaptis]

J'ai fait ce script mais il ne marche pas, au chargement dans server manager, cela m'indique une erreur .
Est-ce que qqn connait l'endroit ou je peux trouver le fichier ou sont décrite les erreur ?

Voila mon fichier qui contient des erreurs :

Code: Tout sélectionner

#!/usr/bin/perl -wT
#----------------------------------------------------------------------
# heading     : Connexion
# description : Gestion de la connexion
# longdesc    : Permet de gerer la connexion ADSL
# navigation  : 100 500
#
# Copyright (c) 2004 Jean-Baptiste
#
#----------------------------------------------------------------------

package esmith;
use strict;
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);

use esmith::cgi;
use esmith::config;
use esmith::util;
use esmith::db;
use esmith::lockfile;

sub showInitial ($$);
#sub connectAndShowResult ($);
#sub disconnectAndShowResult ($);

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 ();

my %conf;
tie %conf, 'esmith::config';

my %restore;
tie %restore, 'esmith::config', '/etc/e-smith/restore';

    my %accounts;
    tie %accounts, 'esmith::config', '/home/e-smith/accounts';

    my $acctName = $ENV{'REMOTE_USER'};

    if ($acctName =~ /^([a-z][\-\_\.a-z0-9]*)$/)
    {
        $acctName = $1;
    }

    my @directories = ("/home/e-smith/files/users/$acctName/");


# Unbuffer standard output so that files and directories are listed as
# they are restored
$| = 1;

# Store away current gid of 'www' group.
my $www_gid = getgrnam("www");

#------------------------------------------------------------
# examine state parameter and display the appropriate form
#------------------------------------------------------------

my $q = new CGI;

if (! grep (/^state$/, $q->param))
{
    showInitial ($q, '');
}
#elsif ($q->param ('state') eq "connect")
#{
#    connectAndShowResult ($q);
#}
#elsif ($q->param ('state') eq "disconnect")
#{
#    disconnectAndShowResult($q);
#}

exit (0);

#------------------------------------------------------------
# subroutine to display initial form
#------------------------------------------------------------

sub showInitial ($$)
{
    my ($q, $msg) = @_;

    if ($msg eq '')
    {
       esmith::cgi::genHeaderNonCacheable ($q, \%conf,
        'Connexion ou déconnexion');
    }
    else
    {
       esmith::cgi::genHeaderNonCacheable
       ($q, \%conf, 'Operation status report');

       print $q->p ($msg);
       print $q->hr;
    }


    my %labels = (
       "connect"    =>      "Connecter",
       "disconnect"   =>      "Déconnecter",
   );

    my @labels = (
       'connect',
       'disconnect',
   );

    my $default_action = 'connect';

    print $q->startform (-method => 'POST',
                     -action => $q->url (-absolute => 1));

    print $q->table ({border => 0, cellspacing => 0, cellpadding => 4});

    print $q->Tr (esmith::cgi::genWidgetRow($q,"Sélectionner une action
:",
          $q->popup_menu (-name => 'function',
                           -values => [ @labels ],
                           -default => $default_action,
                           -labels => \%labels)));

    print "</table>\n";

    print '<p>';

    print $q->Tr (
       esmith::cgi::genButtonRow(
          $q,
          $q->submit (-name => 'action', -value => 'Executer')
      )
   );

    print $q->hidden (
       -name => 'state',
       -override => 1,
       -default => 'connect'
   );

    print $q->endform;

    print $q->end_html;
}

#sub connectAndShowResult ($)
#{

#}

#sub disconnectAndShowResult ($)
#{

#}



Merci

[Muzo]

Les erreurs de compilation vont dans admin_error_log pour le serveur manager

[DJbaptis]

Ca y'est j'ai réussi à débuger mon script perl, en fait c'étais juste que mon fichier perl n'avais pas tous les droit, j'ai fait un chmod 777, et impecable

A part un truc, j'aimerais lancer le script bash que j'ai fait qui se trouve dans "/etc/rc.d/init.d/pppoa start" mais ca me met une erreur me disant : /etc/rc.d/init.d/pppoa: /etc/rc.d/init.d/pppoa: cannot execute binary file

Comment faut-il faire pour éxecuter ca dans un script perl ??
J'avais fait comme ca

Code: Tout sélectionner

system( "service pppoa", "start" ) ;

ou comme ca

Code: Tout sélectionner

system( "service pppoa start" ) ;

mais ca ne marche pas

Aidez moi svp

Merci

[Argenlos]

Bonjour,

J'ai eu ce problème ce week-end, j'en ai perdu mes cheveux

La réponse extraite de ce post:
viewtopic.php?t=14795

Faire un "chmod 4750 ton_fichier_perl", ainsi la fonction system() fonctionne, il y a bien des solutions comme énumérées dans le post en lien ci-dessus, mais c'est la solution la plus simple.

Bon courage.