Redoma - REmote DOwnload MAnager

[Argenlos]

Bonjour,

Il y a quelques temps (en 2004 , je vieillis) j'avais entrepris de modifier le programme REDOMA de Fesch, avec son aimable autorisation, pour le faire fonctionner sous SME.

Pour rappel REDOMA est un outil de programmation de téléchargement piloté via une interface web.
Les principales fonctions:
- Téléchargement différé
- Limitation du taux de transferts des téléchargements
- Visualisation de l'état des téléchargements
- Reprise des téléchargements
- Envoie d'un mail d'alerte pour indiquer la fin des téléchargements
- Mise en pause des téléchargements
- Traduit en anglais, français, portugais, allemand


Je viens de le recompiler aujourd'hui car une partie de son fonctionnement était hors service (la programmation des téléchargements étant limité à l'année 2010 maximum).

Captures écrans Fesch
Captures écrans
Téléchargement

Tout le mérite est pour Fesch, moi je ne suis pas développeur

Cordialement,

[fesch]

Hélas, cela fait bien plaisir de voir que Redoma est toujours utilisé

[jibe]

Salut Argenlos,

Quelle bonne idée que de nous parler de REDOMA ! Non seulement cela ajoute du contenu intéressant à ces forums, mais en plus c'est une petite appli web super pratique que j'ai sur ma SME et dont je me sers régulièrement !

Peut-être pourrais-tu faire un petit descriptif/mode d'emploi dans le wiki ?

Bon, quant à moi, il va falloir que je me mette à jour ! Je n'en suis qu'à la version 0.9.2

[HP77]

Bonsoir,

J'ai decouvert ce "petit joujou" bien sympa (version 0.9.4) dans l'apres-midi et, bien sur, je me suis empresse de l'essayer...

Je voudrais donc faire un petit "REX":

- Dans les parametres de configuration (preferences):
- Serveur SMTP par défaut = localhost (ca fonctionne tres bien ainsi pour un usage en local )
- Destinataire des avertissements par mail = adresse e-mail complete sinon, "admin@localhost" ne fonctione pas.
(la, j'ai peut-etre encore des choses a apprendre pour ma culture personnelle sur les serveurs de mail ou SME)

- Concernant les fichiers telecharges:
- Le meme fichier (meme URL source) telecharge 2 fois mais a des dates / horaires differents ne genere pas de doublon. Le fichier est purement remplace... oups !
(ca pourrait etre genant si le contenu du fichier recupere depuis un meme emplacement est sense contenir des choses differentes que l'on veut archiver periodiquement (par exemple) en conservant toutes ou une partie seulement des versions precedentes)

- Cote installation:
- J'ai procede ainsi depuis le shell:

Code : Tout sélectionner

# mkdir -p /root/_Contribs/ReDoMa/
# cd /root/_Contribs/ReDoMa/
# wget http://site.facile.free.fr/fichiers/redoma/SME7/smeserver-redoma-0-9.4.noarch.rpm
# rpm --install smeserver-redoma-0-9.4.noarch.rpm


- Comme le laissait supposer le contenu de l'archive (un petit coup d'oeil avec 7-zip ), l'ibay 'redoma' a ete creee et configuree automatiquement (pour usage en local seulement. Par defaut.)
Bien lire ce qui s'affiche a l'ecran, je n'ai rien invente.

- Utilisation:
- http://mon-serveur.mon-domaine.xyz/redoma/ (depuis le reseau local du serveur SME, par defaut. Les changements (si vraiment besoin... ) se font via 'Server-Manager')
(la, je ne crois pas necessaire d'en dire plus tellement c'est simple et efficace. Bravo ! )

- Remarque(s):
- un acces via le partage de fichier de M$-Wind'oZzz fera apparaitre deux autres fichiers en plus de celui recherche:

- fichier_telecharge.ext
- fichier_telecharge.ext.log (fichier log pour information sur le telechargement opere)
- fichier_telecharge.ext.pid (fichier contenant le numero de "pid" (Process Id) pour ??)

- Pas de souci, ces 2 fichiers en extra ne sont pas genants et sont effaces en meme temps que le fichier telecharge (de maniere "transparente" pour l'utilisateur) si l'on n'utilise que l'interface Web dediee.

- Pour changer la couleur de l'interface (les (de)gouts et les couleurs de chacun...), faire un petit tour sur le fichier 'index.css' situe dans le dossier 'html' le l'ibay. (autrement dit: '/home/e-smith/files/ibays/redoma/html/index.css')


En esperant que ceci puisse aider les debutants ne sachant que faire du fichier '.rpm' a telecharger.

Cordialement,
HP_


P.S.
Bien merci a Fesch et Argenlos (respectivement "parent" et "nounou"... )
Bon, je connais le chemin... [ ]

[HP77]

Bonjour Argenlos,

Faisant enfin(*) un peu le menage dans les e-mails stockes sur mon serveur, je viens de decouvrir une petite serie de 4 e-mails d'alerte "ReDoMa download alert!" tout a fait normaux a l'exception de la date: toujours la meme (ici "9" [09:00:00 AM SGT])

Les emails doivent dater du 7 avril 2012, lors de mes tests (voir mon "REX" ci-dessus...)

Un exemple ici:

Code : Tout sélectionner

Date:     9 [09:00:00 AM SGT]
From:     admin@MonServeur.dyndns.orgAdd admin@MonServeur.dyndns.org to my Address Book
To:     admin@MonServeur.dyndns.orgAdd admin@MonServeur.dyndns.org to my Address Book
Subject:     ReDoMa download alert!
ReDoMa has finished downloading for the following URL:

http://site.facile.free.fr/fichiers/redoma/SME7/smeserver-redoma-0-9.4.noarch.rpm

and has saved the file as:

/home/e-smith/files/ibays/redoma/cgi-bin/../files/Downloads/sme-fr_v6.homelinux.net.7z [383.91 KB]

________________________________________
This message has been send automatically
by ReDoMa. Do not respond to it. For any
other information or question about this
please visit: http://www.fesch.lu/redoma


J'ai verifie, ce sont les seuls e-mails concernes par cette curiosite.

Ce n'est pas urgent de mon point de vu de rare utilisateur mais, Si un jour vous trouvez le temps d'y "jeter un oeil"...
(Je serais, aussi, assez curieux de savoir pourquoi la date affichee n'est pas geree comme l'anciennete du message par le serveur de mail. Bon, la, ca devrait pouvoir se trouver dans la doc du logiciel concerne. )

Par la meme occasion, si le sujet de l'e-mail pouvait reprendre tout ou partie de l'URL de telechargement, ca aiderait a identifier rapidement un e-mail recherche'.

Bien merci a vous d'avoir fait revenir ReDoMa sur le devant de la scene.
(si je puis dire ainsi


Cordialement,
HP_

(*) je ne dirais pas "menage de printemps", mais plus d'un mois... ca commence a faire long...
(Bon, je recois quand meme une copie sur ma boite mail pour rester informe. )



P.S.
Pour information:
- Les messages sont apparus apres un tout premier e-mail qui a pose probleme a cause de l'adresse e-mail renseignee: "admin@localhost" au lieu de "admin@MonServeur.dyndns.org"

Code : Tout sélectionner

Date:     7 Apr 2012 11:04:05 -0000 [04/07/2012 07:04:05 PM SGT]
From:     MAILER-DAEMON@MonServeur.dyndns.orgAdd MAILER-DAEMON@MonServeur.dyndns.org to my Address Book
To:     admin@localhostAdd admin@localhost to my Address Book
Subject:     failure notice
Hi. This is the qmail-send program at MonServeur.dyndns.org.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up. Sorry it didn't work out.

<MonEMailPerso@yahoo.fr>:
Connected to 77.238.184.241 but sender was rejected.
Remote host said: 501 Syntax error in parameters or arguments

--- Below this line is a copy of the message.

Return-Path: <admin@localhost>
Received: (qmail 20321 invoked by uid 101); 7 Apr 2012 10:04:02 -0000
Delivered-To: admin@localhost
Received: (qmail 20316 invoked by uid 453); 7 Apr 2012 10:04:02 -0000
X-Virus-Checked: Checked by ClamAV on MonServeur.dyndns.org
Received: from localhost (HELO localhost.localdomain) (127.0.0.1)
    by MonServeur.dyndns.org (qpsmtpd/0.83) with ESMTP; Sat, 07 Apr 2012 18:04:02 +0800
From: admin@localhost
To: admin@localhost
Subject: ReDoMa download alert!
Date: 9

ReDoMa has finished downloading for the following URL:

http://site.facile.free.fr/fichiers/redoma/SME7/smeserver-redoma-0-9.4.noarch.rpm

and has saved the file as:

/home/e-smith/files/ibays/redoma/cgi-bin/../files/Downloads/smeserver-redoma-0-9.4.noarch.rpm [46.48 KB]

________________________________________
This message has been send automatically
by ReDoMa. Do not respond to it. For any
other information or question about this
please visit: http://www.fesch.lu/redoma


[Argenlos]

Bonjour HP77,

Merci pour ce retour!
Je n'utilise plus de SME (honteux, je sais). Mais je vais essayer de trouver le problème.
Pour info, je ne connais pas bien le Perl, je "bidouille" c'est tout

En ce qui concerne le problème de date, je viens de jeter un oeil au fichier "scheduler.pl ".
Voici le bout de code qui envoi le mail.

Code : Tout sélectionner

 # Get date
my @date=localtime(time());

....
....
use Net::SMTP;
$smtp = Net::SMTP->new($SMTP) or die "Can not connect to the mail server : $! \n";
$smtp->mail($EMAIL);
$smtp->to($EMAIL);
$smtp->data();
$smtp->datasend("From: $EMAIL\n");
$smtp->datasend("To: $EMAIL\n");
$smtp->datasend("Subject: ReDoMa download alert!\n");
$smtp->datasend("Date: ".@date."\n");
$smtp->datasend("\n");
$smtp->datasend("ReDoMa has finished downloading for the following URL:\n");
$smtp->datasend("\n");
$smtp->datasend($fields[1]."\n");
$smtp->datasend("\n");
$smtp->datasend("and has saved the file as:\n");
$smtp->datasend("\n");
$smtp->datasend($DIR.$DOWN_DIR.'/'.$fields[2]." [".niceSize(fileSize($DIR.$DOWN_DIR.'/'.$fields[2]))."]\n");
$smtp->datasend("\n");
$smtp->datasend("________________________________________\n");
$smtp->datasend("This message has been send automatically\n");
$smtp->datasend("by ReDoMa. Do not respond to it. For any\n");
$smtp->datasend("other information or question about this\n");
$smtp->datasend("please visit: http://www.fesch.lu/redoma\n");
$smtp->dataend();
$smtp->quit;


Ce qui nous intéresse c'est le retour de "my @date=localtime(time());"
Pas sûr que celui-ci soit correct, pourtant d'après la doc, la fonction est utilisée correctement.

Time() nous retourne le temps passé depuis 1970, et localtime() nous met cela en forme pour être lu pas un humain( jour mois etc..)

Il faudrait tester un petit bout de programme tout simple sous SME pour voir si cela fonctionne correctement, du style:

Code : Tout sélectionner

#!/usr/bin/perl
 my @date=localtime(time());
 print @date;

Cordialement,

[Argenlos]

Bonjour,

Le test que j'ai proposé plus haut ne marche pas.
Remplacement du @ par $ et ça marche.

Code : Tout sélectionner

#!/usr/bin/perl
my $date=localtime(time());
print $date;

argenlos@gaia:~/Bureau$ perl '/home/argenlos/Bureau/test.pl'
Sat May 12 11:25:46 2012

Test effectué sous Debian, a voir sous SME.

Sinon on passe par la commande shell date

Code : Tout sélectionner

#!/usr/bin/perl
my $date = `date`;
print $date;


argenlos@gaia:~/Bureau$ perl '/home/argenlos/Bureau/test.pl'
samedi 12 mai 2012, 11:30:23 (UTC+0200)

Pourquoi faire simple quand on peut faire compliqué.
Merci du retour.
Cordialement,

[HP77]

Bonjour Argenlos,

Merci pour les reponses.

Bonjour HP77,

Merci pour ce retour!
Je n'utilise plus de SME (honteux, je sais). Mais je vais essayer de trouver le problème.
Pour info, je ne connais pas bien le Perl, je "bidouille" c'est tout

En ce qui concerne le problème de date, je viens de jeter un oeil au fichier "scheduler.pl ".
....
....

Pas de probleme, si tu "bidouilles" le Perl, c'est deja mieux que moi qui le "re-decouvre" au hasard d'un script trouve dans mon system SME.

Bon, mon serveur etant inutilisable, j'ai du me contenter d'essayer les bouts de code fournis sur une autre machine SME mais je ne dois pas savoir comment m'y prendre pour enfiler le Perl :

1*/ J'ai cree un fichier '/root/tests/Perl/test_date.pl'

Code : Tout sélectionner

#!/usr/bin/perl
my $date=localtime(time());
print $date;


2*/ J'ai donne en pature:

Code : Tout sélectionner

[root@TEOServeur Perl]# bash test_date.pl
test_date.pl: line 2: syntax error near unexpected token `('
test_date.pl: line 2: `my $date=localtime(time());'
[root@TEOServeur Perl]#


Concernant le second exemple:
1*/ Fichier '/root/tests/Perl/test_date.pl'

Code : Tout sélectionner

#!/usr/bin/perl
#my $date=localtime(time());
  my $date=`date`;
  print $date;


2*/ J'ai donne en pature:

Code : Tout sélectionner

[root@TEOServeur Perl] bash test_date.pl
test_date.pl: line 4: my: command not found
test_date.pl: line 6: print: command not found
[root@TEOServeur Perl]#


Je regarderais ca a nouveau quand j'aurais un peu plus de temps. Ca me tente bien de pouvoir bidouiller en Perl (mais j'ai deja le Python sur ma "ToDoList"...) car j'ai des idees de "Contributions" depuis pas mal d'annees mais jamais eu assez de temps pour concretiser...

A plus tard.

Cordialement,
HP_

[Cool34000]

Hello,

Tu enfiles les Perl avec du Bash ?

bash test_date.pl

[Argenlos]

Bonjour,

Essai:

Code : Tout sélectionner

[root@TEOServeur Perl] perl test_date.pl

Cordialement,