From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: From: =?koi8-r?Q?=E2=D5=D2=C4=C9=CE_=E1=CE=C4=D2=C5=CA_=EE=C9=CB=CF=CC=C1?= =?koi8-r?Q?=C5=D7=C9=DE?= To: "Denis G. Samsonenko" Date: Thu, 31 Mar 2005 15:10:36 +0400 X-Mailer: The Bat! (v3.0.1.33) Professional Organization: יקד X-Priority: 3 (Normal) Message-ID: <1605766537.20050331151036@sakhrw.snc.ru> Subject: Re[2]: [Comm] Re: web, cgi, shell, login & password In-Reply-To: <424BE05D.4060906@ngs.ru> References: <424A6C07.5080807@ngs.ru> <20050330095936.GS30108@osdn.org.ua> <424BB632.6060509@ngs.ru> <20050331080508.GS30108@osdn.org.ua> <424BE05D.4060906@ngs.ru> MIME-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Transfer-Encoding: quoted-printable X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: community@altlinux.ru List-Id: Mailing list for ALT Linux users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 31 Mar 2005 11:10:40 -0000 Archived-At: List-Archive: List-Post: =FA=C4=D2=C1=D7=D3=D4=D7=D5=CA=D4=C5, Denis G. Samsonenko. =F7=D9 =D0=C9=D3=C1=CC=C9 31 =CD=C1=D2=D4=C1 2005 =C7., 15:34:53: > =F0=CF=D3=CB=CF=CC=D8=CB=D5 =CE=CF=D7=CF=D3=D4=C9 =C2=D5=C4=D5 = =C4=CF=C2=C1=D7=CC=D1=D4=D8 =D4=CF=CC=D8=CB=CF =D1, =C1 =CE=C5 = =CB=D4=CF =D5=C7=CF=C4=CE=CF, =D4=CF =D5 =CD=C5=CE=D1 =C9 > =D7=D3=D4=C1=CC =D2=C1=CE=C5=C5 =CF=DA=D7=D5=DE=C5=CE=CE=D9=CA = =D7=CF=D0=D2=CF=D3 =D0=CF =C1=D7=D4=CF=D2=C9=DA=C1=C3=C9=C9. = =F0=D2=CF=D3=D4=CF =CD=CE=C5 =C8=CF=D4=C5=CC=CF=D3=D8=20 > =D3=C4=C5=CC=C1=D4=D8 =D7=D3=A3 =DC=D4=CF =CB=C1=CB =CD=CF=D6=CE=CF = =D0=D2=CF=DD=C5, =C2=C5=DA =D0=D2=C9=D7=CC=C5=DE=C5=CE=C9=D1 = =C2=CF=CC=D8=DB=CF=C7=CF =CB=CF=CC=C9=DE=C5=D3=D4=D7=C1 > =D3=CB=D2=C9=D0=D4=CF=D7 =C9 =D7=D3=D1=CB=C9=C8 =C2=C1=DA = =C4=C1=CE=CE=D9=C8. =CE=C1=D0=C9=DB=C9 =CE=C1 Perl =C2=D9=D3=D4=D2=CF =C9 = =D0=CF=CE=D1=D4=CE=CF: news.pl #!/usr/bin/perl print "Content-type: text/html\n\n"; print "\nnews.pl\n\n"; open (TXTFILE, "; close(TXTFILE); @lines =3Dreverse @lines; foreach my $line (@lines) { my ($time,$text) =3D split(/\|\|/, $line); print "
  ".$time."
\n
  ".$text."
\n
"; } print "\n"; =D7=CF=D4 =C9 =D7=D3=C5 =D3=CF=C4=C5=D2=D6=C1=CE=C9=C5 =C6=C1=CA=CC=C1 news.txt 22 =ED=C1=D1 2004|| - =E9=CE=C6=CF=D2=CD=C1=C3=C9=CF=CE=CE=CF=C5 = =CE=C1=D0=CF=CC=CE=C5=CE=C9=C5 =D3=C1=CA=D4=C1|| 22 =ED=C1=D1 2004|| - =E9=CE=C6=CF=D2=CD=C1=C3=C9=CF=CE=CE=CF=C5 = =CE=C1=D0=CF=CC=CE=C5=CE=C9=C5 =D3=C1=CA=D4=C1|| 22 =ED=C1=D1 2004|| - =E9=CE=C6=CF=D2=CD=C1=C3=C9=CF=CE=CE=CF=C5 = =CE=C1=D0=CF=CC=CE=C5=CE=C9=C5 =D3=C1=CA=D4=C1|| =C4=C1=CC=D8=DB=C5 =D0=D2=CF=C4=CF=CC=D6=C1=D4=D8? =C9 =D0=D2=CF = =C1=C4=CD=C9=CE=D3=CB=D5=C0 =DE=C1=D3=D4=D8 =CD=CF=C7=D5 = =CE=C1=D0=C9=D3=C1=D4=D8 --=20 =F3 =D5=D7=C1=D6=C5=CE=C9=C5=CD, =E2=D5=D2=C4=C9=CE =E1.=EE.