Hey à tous,
Je suis toujours sur la modification de mon interface web. J'ai fait l'interface graphique, j'ai créé une nouvelle base de données, mais je n'arrive pas à enregistrer les valeurs saisies dans mon interface vers la base de données. J'utilise une base de données textes que j'ai créé avec la commande "db"
J'ai également configuré le fichier /usr/lib/perl5/site_perl/esmith/FormMagick/Panel/XXX.pm
#!/usr/bin/perl -w
package esmith::FormMagick::Panel::htbwshaper;
use strict;
use esmith::htbwshaperDB;
use esmith::FormMagick;
use esmith::cgi;
our @ISA = qw(esmith::FormMagick Exporter);
our @EXPORT = qw();
our $VERSION = sprintf '%d.%03d', q$Revision: 1.42 $ =~ /: (\d+).(\d+)/;
our $db = esmith::htbwshaperDB->open or die "Couldn't open htbwshaperDB\n";
sub get_RTPportStart
{
return $db->get_prop("htbwshaper", "RTPportStart");
}
sub change_settings {
my ($self) = @_;
my $q = $self->{'cgi'};
return unless($q->param('Next') eq $self->localise('SAVE'));
my $RTPportStart = ($q->param ('RTPportStart'));
my $rec = $db->get('htbwshaper') || $db->new_record('htbwshaper', {type =>'service'});
$rec->set_prop('RTPportStart', $RTPportStart);
unless ( system ("/sbin/e-smith/expand-template", "/etc/htbwshaper") == 0 )
{
$self->error('ERROR_UPDATING');
return undef;
}
$self->success('SUCCESS');
}
1;
Je me suis inspiré du SSH pour avancé, l'opération, que je souhaite faire, est la même que pour la configuration du port utilisé par le service ssh.
Le problème est que je n'arrive pas à écrire dans ma base de données.
De plus, pour la configuration du port utilisé par ssh, il n'y a pas d'action ou events alors là je bloque un peu
Si quelqu'un pouvait me dire comment écrire dans cette base de donnée ca m'aiderait beaucoup