---
title: "Nyhets script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/18983-nyhets-script"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "kontroll"
published: "2000-03-17T18:35:00.000Z"
updated: "2000-03-20T14:34:00.000Z"
replies: 13
views: 506
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/18983-nyhets-script"
---

# Nyhets script

## #1 — kontroll, 2000-03-17T18:35Z

Kan någon fixa ett nyhetesscript till mig och sen instellerad det.

Permalänk: https://www.webforum.nu/p/18983

## #2 — Csson, 2000-03-17T22:03Z

På <http://amphibian.gagames.com/newspro/>  finns ett utmärkt nyhetsscript. Det är nog det enklaste script jag har installerat, och om jag minns rätt behöver du i stort sett bara ladda upp filerna som dom är (förutom att modifiera layouten som görs i separata filer).

/Csson

Permalänk: https://www.webforum.nu/p/340447

## #3 — FlashX, 2000-03-17T23:15Z

Det har varit ganska många som frågat efter ett enkelt skript för att uppdatera en sida. 

Jag tog den tidigare koden från <http://cgi.webforum.nu/wf/Forum14/HTML/000056.html>  och ändrade lite småsaker. 

En test kan köras på [denna sidan](http://www.lammhult.com/cgi/update/) 

Många gånger nöjer man sig kanske med det allra enklaste för att uppdatera endast en sida men tänkte att vi kanske kunde bygga vidare på en "egen" variant och utöka den med lite fler variabler och inställningsmöjligheter. 

Här är version 0.1 (hinner inte mer ikväll)

```
#!/usr/bin/perl
########################################
# webUpdate v 0.1 från [url="http://www.webforum.nu"]www.webforum.nu[/url]  #
########################################

$NewsURL = "http://www.din_doman.se/news.html";
$NewsHomeDir = "/home/din_mapp/public_html/news.html";

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;
	$value =~ s/</\&lt\;/g;
	$value =~ s/>/\&lt\;/g;

   $FORM{$name} = $value;
}

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";

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

<body bgcolor="#FFFFFF">
<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>
<p>
Page

close (NEWS);

print "Location: $NewsURL\n\n";

exit;
```

Tanken är att utöka med funktioner som layoutinställning, lösenord, tidangivelse, HTML av/på, automatisk radbrytning och vad som nu kan behövas. 

Dom som är intresserade (och har tid) får gärna hjälpa till och då kan vi väl starta en egen tråd för utvecklingen. 

En idé bara, men det finns kanske någon som nappar :)

Permalänk: https://www.webforum.nu/p/340448

## #4 — Hazze, 2000-03-18T11:21Z

Detta uppdateringsscript var ju helt suveränt!!! Jag har haft stora problem med det jag skrivit själv men detta fungerade ju totalt perfekt :)

Permalänk: https://www.webforum.nu/p/340449

## #5 — Rödalacket, 2000-03-18T21:20Z

Här kommer en liten uppdatering på Flash X:s script:#!/usr/bin/perl
\########################################
\# webUpdate v 0.2 från [www.webforum.nu](http://www.webforum.nu)  \#
\########################################
$NewsURL = "http://192.168.0.2/\~perl/news.html";    #OBS Din adress
$NewsHomeDir = "/home/perl/public_html/news.html";  	

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;
$value =\~ s/\</\\\<\\;/g;
$value =\~ s/\>/\\\<\\;/g;

$FORM{$name} = $value;
}

{
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;
	$dateclock = $date . " / " . $clock;
	if ($use_time eq "1" && $use_date eq "1"){
		$dateclock = $date . " / " . $clock;
	} elsif($use_time eq "1"){
		$dateclock = $clock;
	} elsif($use_date eq "1"){
		$dateclock = $date;
	}
}
open (FILE,"$NewsHomeDir") &#0124; &#0124; die "Kan inte öppna $NewsHomeDir: $!\\n";    #Här blir det problem med
@LINES=\<FILE\>;                                                            #mellan slag på forumet
close(FILE);           							  #Det blir ett extra mellan
$SIZE=@LINES;								  #&#0124; &#0124;, så se till att ta bort det.

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

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\> \</td\>\</tr\>
\</table\>
\</body\>
\</html\>
\<p\>
Page

close (NEWS);

print "Location: $NewsURL\\n\\n";

exit;

Permalänk: https://www.webforum.nu/p/340450

## #6 — Rödalacket, 2000-03-18T21:25Z

Oppsss.....blev inte bra det där..prövar igen...:)

Permalänk: https://www.webforum.nu/p/340451

## #7 — Rödalacket, 2000-03-18T21:27Z

\<BLOCKQUOTE\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Perl-kod:\<pre\>#!/usr/bin/perl
\########################################
\# webUpdate v 0.1 från [www.webforum.nu](http://www.webforum.nu)  \#
\########################################
$NewsURL = "http://192.168.0.2/\~perl/news.html";
$NewsHomeDir = "/home/perl/public_html/news.html";

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;
$value =\~ s/\</\\\<\\;/g;
$value =\~ s/\>/\\\<\\;/g;

$FORM{$name} = $value;
}

{
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;
	$dateclock = $date . " / " . $clock;
	if ($use_time eq "1" && $use_date eq "1"){
		$dateclock = $date . " / " . $clock;
	} elsif($use_time eq "1"){
		$dateclock = $clock;
	} elsif($use_date eq "1"){
		$dateclock = $date;
	}
}
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";

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

\<body bgcolor="#FFFFFF"\>
\<h1\>$clock\</h1\>\<h1\> $date\</h1\>
\<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\> \</td\>\</tr\>
\</table\>
\</body\>
\</html\>
\<p\>
Page

close (NEWS);

print "Location: $NewsURL\\n\\n";

exit;

Permalänk: https://www.webforum.nu/p/340452

## #8 — Rödalacket, 2000-03-18T21:33Z

Fan....får be om ursäkt...klistrade in fel kod snutt....jag försöker igen...börjar nog bli dags att gå och lägga sig...

```
#!/usr/bin/perl
########################################
# webUpdate v 0.2 från [url="http://www.webforum.nu"]www.webforum.nu[/url]  #
########################################
$NewsURL = "http://192.168.0.2/~perl/news.html";    #OBS Din adress
$NewsHomeDir = "/home/perl/public_html/news.html";  	

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;
$value =~ s/</\<\;/g;
$value =~ s/>/\<\;/g;

$FORM{$name} = $value;
}

{
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;
	$dateclock = $date . " / " . $clock;
	if ($use_time eq "1" && $use_date eq "1"){
		$dateclock = $date . " / " . $clock;
	} elsif($use_time eq "1"){
		$dateclock = $clock;
	} elsif($use_date eq "1"){
		$dateclock = $date;
	}
}
open (FILE,"$NewsHomeDir") &#0124; &#0124; die "Kan inte öppna $NewsHomeDir: $!\n";    #Här blir det problem med
@LINES=<FILE>;                                                            #mellan slag på forumet
close(FILE);           							  #Det blir ett extra mellan
$SIZE=@LINES;								  #&#0124; &#0124;, så se till att ta bort det.

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

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> </td></tr>
</table>
</body>
</html>
<p>
Page

close (NEWS);

print "Location: $NewsURL\n\n";

exit;
```

Permalänk: https://www.webforum.nu/p/340453

## #9 — FlashX, 2000-03-19T00:17Z

Va´bra :D
Först funderade jag på att använda en mall eftersom det kanske hade underlätta, fast då kan man ju inte länka till nyhetssidan som en vanlig HTML-fil.
Meningen är ju att det ska vara så enkelt som möjligt. 

Nu blir det ju lite som en mall i alla fall eftersom man kan klistra in sin egen kod mellan raderna print NEWS \<\<Page; och Page 

Har gjort några uppdateringar och nu blir det automatiskt en \<br\> vid varje radbrytning och även en funktion för HTML av/på.
Dessutom så finns det hjälptext i skriptet som underlättar :) 

webUpdate v0.3 finns på [samma sida](http://www.lammhult.com/cgi/update/) och det går också att ladda hem filerna i en zipfil.

Här finns också en [direktlänk](http://www.lammhult.com/cgi/update/update.txt) till koden (som textfil)

Permalänk: https://www.webforum.nu/p/340454

## #10 — Hazze, 2000-03-19T16:05Z

Skulle det gå att göra så att man kan skriva in flera nyheter på samma sida ut de man skrivit innan försvinner?

Permalänk: https://www.webforum.nu/p/340455

## #11 — Rödalacket, 2000-03-19T18:49Z

Då skulle det se ut mer som en gästbok, är det så du menar?

Permalänk: https://www.webforum.nu/p/340456

## #12 — Hazze, 2000-03-19T21:20Z

Ja, något i den stilen tror jag...

Permalänk: https://www.webforum.nu/p/340457

## #13 — Rödalacket, 2000-03-19T22:38Z

Du kan ladda hem ett gästboksscript på: [http://w1.184.telia.com/\~u18404634/cgi/zip.htm](http://w1.184.telia.com/~u18404634/cgi/zip.htm)  ,där finns även webForums nyhetsscript V0.3

Permalänk: https://www.webforum.nu/p/340458

## #14 — FlashX, 2000-03-20T14:34Z

Gjorde en liten uppdatering av [webUpdate](http://www.lammhult.com/cgi/update/)

- Lösenordsskydd för uppdatering av sidan
- HTML-kovertering av Svenska tecken
- "Städade" lite i koden

 

Koden som [text-fil](http://www.lammhult.com/cgi/update/update.txt)

Permalänk: https://www.webforum.nu/p/340459

---

Tråden på webben: https://www.webforum.nu/amne/programmering/18983-nyhets-script