CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

andersravn Nybegynder

10. juli 2000 - 18:01 Der er 15 kommentarer og
1 løsning

Hjælp til perl-script

Jeg her et perl-script, der ligger hos Scannnet.dk

Scriptet bruges til at bestille nogle enkelte ting med få valgmuligheder (Kig under http://www.merko-spodsbjerg.dk kig under bestilling og derefter blomster )

Jeg kan ikke få scriptet til at virke.

Hvis der er nogen der vil hjælpe med scriptet, får i fuld adgang til serveren, så det kan blive lavet! Jeg har kun 389 points, men giver dem alle væk, hvis problemet kan løses af personen.

Synes godt om

andersravn Nybegynder

10. juli 2000 - 18:02 #1

Jeg vil meget gerne have hjælp hurtigt

Skriv til ravn@ceweb.dk

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:02 #2

bestillingen foregår som en email ???

Synes godt om

andersravn Nybegynder

10. juli 2000 - 19:08 #3

Ja, bestillingen foregår således:

Man skriver i felterne. Derefter sender man en forespørgsel, hvorefter der kommer en "tak" side frem.

Så bliver der sendt en mail til kunden og indehaveren af siden.

Håber det blev forståeligt :)

/andersravn

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:17 #4

har sendt en mail til dig...

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:30 #5

Jeg fandt den her i gemmeren !

#!/usr/local/bin/perl -w

$|=1;

# Created by: Lars Jensen (webmaster@ljweb.com)
# (C)opyright 1998, LJ Webnologics

use getformdata;

%hashRef = getData;

$subject = $hashRef{"SUBMITFORM"};

print ("Content-type: text/html\n\n");

$sendmail = "/usr/lib/sendmail";
if (open (MAIL, "| $sendmail -t -f \'ravn\@ceweb.dk\'")) {
print MAIL "From: ravn\@ceweb.dk\r\n";
print MAIL "To: ravn\@ceweb.dk\r\n";
print MAIL "Subject: $subject\r\n";

foreach $item (keys (%hashRef)) {
$content = $hashRef{$item};
print MAIL "$item -> $content\r\n";
}
close (MAIL);

print '<BODY BGCOLOR="#FFFFFF">';
print '<TABLE BORDER=0 HEIGHT=95% ALIGN="center">';
print '<TR><TD ALIGN=CENTER VALIGN=MIDDLE>';
print 'Email sendt';
print '</TD></TR>';
print '</TABLE>';
print '</BODY>';
}
else {
print '<BODY BGCOLOR="#FFFFFF">';
print '<TABLE BORDER=0 HEIGHT=95% ALIGN="center">';
print '<TR><TD ALIGN=CENTER VALIGN=MIDDLE>';
print 'Der opstod en fejl !';
print '</TD></TR>';
print '</TABLE>';
print '</BODY>';
}

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:32 #6

getformdata.pm

---

package getformdata;

require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(getData);

sub getData
{
$hashRef = shift;
my($buffer) = "";

if ($ENV{'REQUEST_METHOD'} EQ "GET")
{
$buffer = $ENV{'QUERY_STRING'};
}
else
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

foreach (split(/&/, $buffer))
{
my($key, $value) = split(/=/, $_);
$key = decodeURL($key);
$value = decodeURL($value);
$hashRef{"$key"} = $value;
}

return %hashRef;
}

sub decodeURL
{
$_ = shift;
tr/+/ /;
s/%(..)/pack('c', hex($1))/eg;
return($_);
}
1;

Synes godt om

andersravn Nybegynder

10. juli 2000 - 19:39 #7

Har ikke brug for flere i øjeblikket til at løse ploblemet...

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:40 #8

Scriptet tager simpelt alle data forwardet til PL scriptet og sender dem. Er udviklet til en Unix server.

Har lige modtaget din mail med at du har en NT server... Arbejder på sagen

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:44 #9

Der er en support side om at sende emails på din server her... Laver lige en test.

http://scannet.dk/support/Netsmtp.htm

Synes godt om

limemedia Nybegynder

10. juli 2000 - 19:53 #10

Mindre problem !

STATUS:> Connect: Monday 19:57:26 07-10-2000
STATUS:> Connecting to www.merko-spodsbjerg.dk
STATUS:> Connecting to www.merko-spodsbjerg.dk (ip = 194.255.126.38)
STATUS:> Socket connected. Waiting for welcome message...
220 scannet18 FTP Server (vftpd 1.23) ready.
STATUS:> Connected. Authenticating...
COMMAND:> USER merko-spodsbjerg.dk
331 Password required for merko-spodsbjerg.dk.
COMMAND:> PASS ********
530 Login incorrect.
ERROR:> Password not accepted
ERROR:> Can't login. Disconnecting...
STATUS:> Disconnect: Monday 19:57:26 07-10-2000

Synes godt om

limemedia Nybegynder

10. juli 2000 - 20:04 #11

Hurtigt omskrevet uden test... Prøv det

---
$|=1;

# Created by: Lars Jensen (webmaster@ljweb.com)
# (C)opyright 1998, LJ Webnologics
# Modified 10. July 2000 by: Lars Jensen (webmaster@ljweb.com)

use getformdata;

%hashRef = getData;

$subject = $hashRef{"SUBMITFORM"};

print ("Content-type: text/html\n\n");

$smtp = Net::SMTP->new("mail.domain.dk",
Hello => "www.domain.dk",
Timeout => 30);
$smtp->mail( "mail\@domain.dk" ); # use the sender's address here
$smtp->to("modtager\@andet-domain.dk");# recipient's address
$smtp->data(); # Start the mail
$smtp->datasend("From: \"Mit navn\" <mail\@domain.dk>\n");
$smtp->datasend("To: \"modtager navn\" <modtager\@andet-domain.dk>\n");
$smtp->datasend("Subject: vi takker for deres bestilling...\n");
$smtp->datasend("\n");

#her kommer kode der skriver body delen af mailen
$smtp->datasend("Vi takker for deres henvendelse...");

foreach $item (keys (%hashRef)) {
$smtp->datasend("$item -> $content\r\n");
}

$smtp->dataend(); # slut på mailen
$smtp->quit; # mailen sendes

print '<BODY BGCOLOR="#FFFFFF">';
print '<TABLE BORDER=0 HEIGHT=95% ALIGN="center">';
print '<TR><TD ALIGN=CENTER VALIGN=MIDDLE>';
print 'Email sendt';
print '</TD></TR>';
print '</TABLE>';
print '</BODY>';
---

/ Lars
LJWeb.com

Synes godt om

y2k Nybegynder

10. juli 2000 - 21:54 #12

eh...er du sikker på at getformdata.pm er installeret på serveren?
[root@ns]# perl test.pl
Can't locate getformdata.pm in @INC (@INC contains: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 .) at test.pl line 7.
BEGIN failed--compilation aborted at test.pl line 7.

Synes godt om

y2k Nybegynder

10. juli 2000 - 21:55 #13

whoops*GG* havde lige overset din kommentar foroven..sorry ;)

Synes godt om

limemedia Nybegynder

10. juli 2000 - 22:44 #14

det er jo en pakke jeg selv har udviklet - i tidernes morgen som ses på datoen ;D

Synes godt om

andersravn Nybegynder

11. juli 2000 - 10:41 #15

Kan den sidste kodestump virkelig gøre alt det mit af.pl script kunne?

Synes godt om

andersravn Nybegynder

21. juli 2000 - 15:19 #16

Fik det ikke til at virke...

lukker spm

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS