Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP.
Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Voici mon code-source de mon programme, peut être vous comprenderez.
N'oubliez pas que le "working directory" est "data/".
CODE: (OS: Linux 2.6.2 Slackware 10.1)
#!/usr/bin/perl
# This program is free software. You can modify it, copy it
# and resell it with only one condition. You must keep the
# code availiable to everyone who need it. For more info,
# read the GNU General Public License at: www.gnu.org
#
# netsched.pl - A simple TCP/IP Scheduler
# Written by Penguin_X
# penguin_x@phreaker.net
#
# Modules used
use Net::FTP;
use Net::SMTP;
use Switch; # It isn't gay ?
# Main Screen sub function
sub MainScreen
{
print "\n+----------------+";
print "\n+ NET Schedule ";
print "\n+----------------+";
print "\n+ 1. New File";
print "\n+ 2. Load A File";
print "\n+ 3. Quit";
print "\n+----------------+";
print "\n";
}
# Infinite loop
while(1)
{
&MainScreen; # Call the sub procedure
print "\nPlease enter a choice: ";
$choice = <STDIN>;
chomp($choice);
# Case statement - Most important of the code
# Writing a good code here
# is very important
switch($choice)
{
case "1"
{
# Opening a new file
chdir('data/'); # Changing directory
print "\nPlease enter the current Month, Day and Year(MMDDYYYY): ";
$time = <STDIN>;
chomp($time);
$filename = $time . ".html"; # Contatenation of two strings
open(NEWFILE,">$filename") or die "Error\a\n";
# Asking questions for HTML page
print "\nPlease enter your last name: "; # Asking last name
$LastName = <STDIN>;
chomp($LastName);
print "\nPlease enter your first name: "; #Asking for the first name
$FirstName = <STDIN>;
chomp($FirstName);
# -- HTML CODE BEGIN HERE --
print NEWFILE "\n<html>";
print NEWFILE "\n<title>Schedule for : $time</title>";
print NEWFILE "\n</head>";
print NEWFILE "\n<body>";
print NEWFILE "\n<table border=\"1\" width=\"100%\">";
print NEWFILE "\n<tr>";
print NEWFILE "\n<td width\"100%\">";
print NEWFILE "\n<p align=\"center\"> Schedule for : $time </td>";
print NEWFILE "\n</tr>";
print NEWFILE "\n</table>";
print NEWFILE "\n<table border=\"1\" width=\"100%\">";
print NEWFILE "\n<tr>";
print NEWFILE "\n<td width=\"50%\">";
print NEWFILE "\n<p align=\"left\">Name</td>";
print NEWFILE "\n<td width=\"50%\">";
print NEWFILE "\n<p align=\"left\">$LastName, $FirstName</td>";
print NEWFILE "\n</tr>";
print NEWFILE "\n</table>";
print NEWFILE "\n<table border=\"1\" width=\"100%\">";
print NEWFILE "\n<tr>";
print NEWFILE "\n<td width=\"50%\">";
print NEWFILE "\n<p align=\"center\">Hour</td>";
print NEWFILE "\n<td width=\"50%\">";
print NEWFILE "\n<p align=\"center\">Event</td>";
print NEWFILE "\n</tr>";
# Events editor
print "\nNow, we will set the events for this day.";
$event = 1;
# --Beginning of the loop--
while($event == 1)
{
print "\nDo you want to add a new event ? [Y=1/N=2]: ";
$event = <STDIN>;
chomp($event);
if($event == 2)
{
last; #end of loop
}
print "\nEnter an hour [HH:MM:AM/PM]: ";
$hour_event = <STDIN>;
chomp($hour_event);
print "\nEnter an event: ";
$the_event = <STDIN>;
chomp($the_event);
print NEWFILE "\n<tr>";
print NEWFILE "\n<td width=\"50%\">$hour_event</td>";
print NEWFILE "\n<td width=\"50%\">$the_event</td>";
print NEWFILE "\n</tr>";
}
# --End of the loop--
print NEWFILE "\n</body>";
print NEWFILE "\n</html>";
# --END OF THE HTML CODE--
close(NEWFILE); # closing the file
# -- FTP Sending --
print "\nDo you want send your schdedule via FTP ?";
print "\n[Y=1/N=2]: ";
$Ftp_Answer = <STDIN>;
chomp($Ftp_Answer);
if($Ftp_Answer == 1)
{
# Send the schedule on a remote FTP Server
print "\nServer: ";
$Host = <STDIN>; # The server is in memory now
chomp($Host);
print "\nUsername: ";
$User = <STDIN>; # Username is now in memory
chomp($User);
print "\nPassword: ";
$Pass = <STDIN>; # The password is now in memory
chomp($Pass);
print "\nRemote directory: ";
$Cwd = <STDIN>; # remote FTP Direcroty is now in memory
chomp($Cwd);
# Try to connect to the remote ftp server
$ftp = Net::FTP->new($Host) or warn "\nCannot reach the server!";
# Try to login in
$ftp->login($User, $Pass) or warn "\nCannot login!";
On Sat, 11 Jun 2005 23:01:05 -0400, Penguin_X wrote:
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP. Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Et si tu nous disais ce que tu entends par "illisible"? Pas les bons droits? Pas entier? Modifié?
Jacques.
Ca marche niquel chez moi
Denis -esp2008-
Bonjour,
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP. Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le fichier n'est pas passé en mode texte alors que ce sont 2 environnements différents, il faut appeler la méthode "ascii" du module pour résoudre ce problème.
-- Denis
Bonjour,
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP.
Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de
l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le
fichier n'est pas passé en mode texte alors que ce sont 2 environnements
différents, il faut appeler la méthode "ascii" du module pour résoudre
ce problème.
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP. Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le fichier n'est pas passé en mode texte alors que ce sont 2 environnements différents, il faut appeler la méthode "ascii" du module pour résoudre ce problème.
-- Denis
Penguin_X
Denis -esp2008- wrote:
Bonjour,
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP. Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le fichier n'est pas passé en mode texte alors que ce sont 2 environnements différents, il faut appeler la méthode "ascii" du module pour résoudre ce problème.
Ok merci. Finallement j'ai reglé le problème. Je travaille présentement
sur un programme qui fait des "shedules" directement en ligne. Le programme est bien partit. Le seul problème reste que si je veux visualiser mes schedules via le web, il faut que mon répertoire où mes fichiers sont envoillés soient complètement sécurisé.
J'ai aussi crée un fichier de configuration, ce qui permet de prendre des paramètres automatiquement.
Vous avez une idée pour protéger mon répertoire pour qu'ils soient protéger via un mot de passe ? J'ai présentement un FTP qui m'offre cette option, mais ce n'est pas tout les services web qui offrent des dossiers avec mot de passes...
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP.
Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de
l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le
fichier n'est pas passé en mode texte alors que ce sont 2 environnements
différents, il faut appeler la méthode "ascii" du module pour résoudre
ce problème.
Ok merci. Finallement j'ai reglé le problème. Je travaille présentement
sur un programme qui fait des "shedules" directement en ligne. Le
programme est bien partit. Le seul problème reste que si je veux
visualiser mes schedules via le web, il faut que mon répertoire où mes
fichiers sont envoillés soient complètement sécurisé.
J'ai aussi crée un fichier de configuration, ce qui permet de prendre
des paramètres automatiquement.
Vous avez une idée pour protéger mon répertoire pour qu'ils soient
protéger via un mot de passe ? J'ai présentement un FTP qui m'offre
cette option, mais ce n'est pas tout les services web qui offrent des
dossiers avec mot de passes...
Salut ! J'essaie d'envoiller un fichier .html avec le module Net::FTP. Le fichier est bien envoillé sur mon serveur, mais il est illisible !
Il est toujours bon de connaître ce qui est derrière un module avant de l'utiliser, comme dans ce cas-ci le protocole ftp. Le problème est que le fichier n'est pas passé en mode texte alors que ce sont 2 environnements différents, il faut appeler la méthode "ascii" du module pour résoudre ce problème.
Ok merci. Finallement j'ai reglé le problème. Je travaille présentement
sur un programme qui fait des "shedules" directement en ligne. Le programme est bien partit. Le seul problème reste que si je veux visualiser mes schedules via le web, il faut que mon répertoire où mes fichiers sont envoillés soient complètement sécurisé.
J'ai aussi crée un fichier de configuration, ce qui permet de prendre des paramètres automatiquement.
Vous avez une idée pour protéger mon répertoire pour qu'ils soient protéger via un mot de passe ? J'ai présentement un FTP qui m'offre cette option, mais ce n'est pas tout les services web qui offrent des dossiers avec mot de passes...
