Och vad menas med detta?

HallgrenMedlem sedan dec. 19991 606 inlägg

7 jan. 2001 18:43#1

Kan någon förklara vad som är fel?

Can't modify numeric gt in scalar assignment at D:\clients\truedesign.nu\wwwroot\kunder\kallarenkronan\update.cgi line 9, near ""http://www.truedesign.nu/kunder/kallarenkronan/lunch.htm";"
Execution of D:\clients\truedesign.nu\wwwroot\kunder\kallarenkronan\update.cgi aborted due to compilation errors.

------------------
Forumledare, webForum

Kilobäver! Ordet som räddar liv!

FlashXMedlem sedan nov. 19991 033 inlägg

7 jan. 2001 19:31#2

Det blir att nog kolla rad nio i skriptet :)
Operatorn gt (greater than) anger att det är någon form av jämförelse mellan olika strängvärden som ska göras.
Den matematiska mostvarigheten är >

HallgrenMedlem sedan dec. 19991 606 inlägg

7 jan. 2001 20:08#3

Då jag känner mig rätt hjärndöd idag, så lägger jag upp hela scriptet. Känner du igen det FlashX? ;)

<html><body background="bg2.jpg">#!/usr/bin/perl
########################################
# webUpdate v 0.4 från [url="http://www.webforum.nu"]www.webforum.nu[/url]  #
########################################

# Parametrar att ändra:
# Konfigurera sökvägarna till nyhetssidan

$NewsURL = "http://www.truedesign.nu/kunder/kallarenkronan/lunch.htm";
$NewsHomeDir = "/clients/truedesign.nu/wwwroot/kunder/kallarenkronan/lunch.htm";

# Tillåta HTML-kod att exekveras?
# Sätt 1 om du vill tillåta HTML, annars skriver du 0 (default är 0)

$HTML = 0;

# Ange det lösenord som ska användas för uppdatering av sidan.

$LosenOrd = "test";

# Slut parametrar
# Se "EGEN LAYOUT" längre ned i skriptet för skapa en egen sida.

$password = $LosenOrd;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($HTML != 1) {
	$value =~ s/</\&lt\;/g;
	$value =~ s/>/\&gt\;/g;
	}
	$value =~ s/å/\&aring\;/g;
	$value =~ s/ä/\&auml\;/g;
	$value =~ s/ö/\&ouml\;/g;
	$value =~ s/Å/\&Aring\;/g;
	$value =~ s/Ä/\&Auml\;/g;
	$value =~ s/Ö/\&Ouml\;/g;
	$value =~ s/é/\&eacute\;/g;
	$value =~ s/É/\&Eacute\;/g;
	$value =~ s/\n/<br>/g;
$FORM{$name} = $value;
}
&errorMsg unless ($FORM{'password'} eq $password);

# Hämtar datum och klockslag för uppdateringen
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$mon++;
$mon = substr("0" . $mon,length($mon)-1,length($mon)+1);
$mday = substr("0" . $mday,length($mday)-1,length($mday)+1);
$year += 1900;
$date = $year . "-" . $mon . "-" . $mday;
$min = substr("0" . $min,length($min)-1,length($min)+1);
$sec = substr("0" . $sec,length($sec)-1,length($sec)+1);
$clock = $hour . ":" . $min . ":" . $sec;
}

open (FILE,"$NewsHomeDir") &#0124;&#0124; die "Kan inte öppna $NewsHomeDir: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

open (NEWS,">$NewsHomeDir") &#0124;&#0124; die "Kan inte öppna $NewsHomeDir: $!\n";

##############
# EGEN LAYOUT
##############
# Du kan skapa din egen HTML-sida och använda den.
# Kopiera all HTML-kod från din sida och placera den mellan
# raderna "print NEWS <<Page;" och "Page" som finns här nedanför.
# Alltså, ersätt allt från <html> till </html> med din egen kod.
# Därefter infogar du dom parametrar som du vill använda och du
# väljer själv var du vill lägga dom på din sida.

# Föjande parametrar finns: 
# $cloc (är = klockslaget för uppdateringen
# $date (är = datumet för uppdateringen
# $FORM{'titel'} (är titeln på sidan)
# $FORM{'rubrik'} (är namnet på rubriken för texten)
# $FORM{'text'} (är själva texten på sidan)

print NEWS <<Page;
<html>
<head>
<title>Nyheter</title>
</head>

<body bgcolor="#FFFFFF">
<font size="2" face="Verdana, Arial, Helvetica, san-serif">Uppdaterad $clock $date</font>
<table width="400" border="0" cellspacing="0" cellpadding="2" align="center">
<tr align="center"><td><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="4">$FORM{'titel'}</font></b></font></td></tr>
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif"><b></b></font></td></tr>
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#3333FF" size="2">$FORM{'rubrik'}</font></b></font></td></tr><tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">$FORM{'text'}</font></td></tr>
<tr><td>&nbsp;</td></tr>
</table>
</body>
</html>
Page

close (NEWS);
print "Location: $NewsURL\n\n";
exit;

# Felmeddelande om lösenordet inte är rätt.
sub errorMsg {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Felmeddelande</title>\n";
print "</head>\n\n";
print "<body bgcolor=\"#FFFFFF\">\n";
print "<table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\" align=\"center\">\n";
print "<tr align=\"center\" valign=\"middle\">\n";
print "<td><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Fel l&ouml;senord</b></font></td></tr>\n";
print "<tr><td><hr></td></tr>\n";
print "<tr> <td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Ditt l&ouml;senord verkar inte vara giltigt. Klicka p&aring; <a href=\"javascript:history.go(-1)\">h&auml;r</a> f&ouml;r att komma tillbaka till sidan.</font></td></tr>\n";
print "<tr><td><hr></td></tr>\n";
print "</table>\n";
print "</body>\n";
print "</html>\n";

exit;
}

------------------
Forumledare, webForum

Kilobäver! Ordet som räddar liv!

FlashXMedlem sedan nov. 19991 033 inlägg

7 jan. 2001 21:50#4

Arghh... Vet inte om du redan hämtat hem filen men upptäckte nu några småfel med den som jag länkade till tidigare idag.

Har uppdaterat den i.a.f.
Spara ner den direkt hellre än att kopiera från webbläsaren.

[Redigerat av FlashX den 08 jan 2001]

HallgrenMedlem sedan dec. 19991 606 inlägg

8 jan. 2001 14:35#5

Can't modify numeric gt in scalar assignment at D:\clients\truedesign.nu\wwwroot\kunder\kallarenkronan\update.cgi line 10, near ""http://www.truedesign.nu/kunder/kallarenkronan/lunch.htm";"
BEGIN not safe after errors--compilation aborted at D:\clients\truedesign.nu\wwwroot\kunder\kallarenkronan\update.cgi line 76.

------------------
Forumledare, webForum

Kilobäver! Ordet som räddar liv!

FlashXMedlem sedan nov. 19991 033 inlägg

8 jan. 2001 14:50#6

Märkligt...

Inget av de ändringar jag gjorde hade något med ditt fel att göra egentligen. Det var mest en putsning av koden.

Antar att det är en NT-server och jag testade själv på en precis innan jag skickade upp filen.

Är sökvägen helt rätt?

Har skriptet fungerat tidigare eller är det första gången du kör det?

Något verkar i.a.f. galet med just sökvägen till filen som ska öppnas...

HallgrenMedlem sedan dec. 19991 606 inlägg

8 jan. 2001 17:47#7

Jo, det är väldigt mäkligt.

Sökvägen ska vara rätt och det har fungerat en gång tidigare. Fick hjälp av Per den gången. Mm... :l

------------------
Forumledare, webForum

Kilobäver! Ordet som räddar liv!