$1$2
/g ; print &KOI($PEREKODER, $_ ); }; } sub KOI # , แ ฌจ ???????? { if ( @_[0] eq '-K' ) { @_[1] =~ tr/ \377 กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้๊๋์ํ๎๏ณ/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/; } elsif ( @_[0] eq '-k' ) { @_[1] =~ tr/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/ \377 กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้๊๋์ํ๎๏ณ/; } elsif ( @_[0] eq '-w' ) { @_[1] =~ tr/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/๎ กๆคฅไฃๅจฉชซฌญฎฏ๏เแโใฆข์๋ง่ํ้็๊ \377ณ/; } elsif ( @_[0] eq '-i' ) { @_[1] =~ tr/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/ฐฑฒณดตถทธนบปผฝพฟ๎ กๆคฅไฃๅจฉชซฌญฎฏ๏เแโใฆข์๋ง่ํ้็๊ ณ/; } elsif ( @_[0] eq '-I' ) { @_[1] =~ tr/ฐฑฒณดตถทธนบปผฝพฟ๎ กๆคฅไฃๅจฉชซฌญฎฏ๏เแโใฆข์๋ง่ํ้็๊ ณ/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/; } elsif ( @_[0] eq '-W' ) { @_[1] =~ tr/๎ กๆคฅไฃๅจฉชซฌญฎฏ๏เแโใฆข์๋ง่ํ้็๊ \377ณ/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/; } elsif ( @_[0] eq '-a' ) { @_[1] =~ tr/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357ณ/;@_[1] =~ s/\015*\n/\015\n/g; } elsif ( @_[0] eq '-A' ) { @_[1] =~ tr/\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357ณ/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/; @_[1] =~ s/\015*\n/\n/g; } elsif ( @_[0] eq '-l' ) {@_[1] =~ tr/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/ABWGDEVZIJKLMNOPRSTUFHC+{}ฌYX|~Qabwgdevzijklmnoprstufhc=\133\135ฎyxe`qณ/; } elsif ( @_[0] eq '-L' ) {@_[1] =~ tr/ABWGDEVZIJKLMNOPRSTUFHC+{}ฌYX|~Qabwgdevzijklmnoprstufhc=\133\135ฎyxe`qณ/ กขฃคฅฆงจฉชซฌญฎฏเแโใไๅๆ็่้ฌ๋์ํ๎๏ ฎณ/; } @_[1]; } sub rkdir2html { # ? $_=
"; # @kodirowki=("volapuk","windows","iso_8859_5","alt","KOI"); form for $i (@kodirowki) {$encoding.="[$i]";} $_.=" $1
$what_s_new$search_form
\n"; while () { s/^----*$/
/ ; s/(.*[^ ]) *ณ *([^ \n]*)/* <\/A>$1<\/i><\/b><\/A>/ ; print &KOI($PEREKODER, $_ ); } } sub Last_Modified { # 1 - , # 2 "Full | Brief" - ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime((stat(@_[0]))[9]); if (@_[1]=~'Brief'){sprintf("%2d-%s-%d", # 29-Dec-95 $mday,@mesq[$mon],$year);} elsif(@_[1]=~'Full'){sprintf("%s, %2d-%s-%d %02d:%02d:%02d GMT", # Fri, 29-Dec-95 22:50:47 GMT @nedelq[$wday], $mday,@mesq[$mon],$year,$hour,$min,$sec);} else {sprintf("%s, %2d-%s-%d %02d:%02d:%02d GMT", @nedelq[$wday], $mday,@mesq[$mon],$year,$hour,$min,$sec);} } sub Contents { $filename =~ s/\/Contents// ; $ENV{PATH_INFO} =~ s/\/Contents// ; $name_link = $ENV{PATH_INFO} ; $name_link =~ s/.*\/// ; # ํ if ( -d $filename ) # ฅ Contents , { print "Location: http:$ENV{SCRIPT_NAME}$ENV{PATH_INFO}\n\n" ; exit 0 } if ($ENV{REMOTE_HOST} =~ /localhost/) { } else { $Additional_header="Last-modified: ". &Last_Modified($filename,'Full')."\n";} # ก 80 # $piece_size=81920; # . $filesize=(stat($filename) )[7]; if ( $filesize > $piece_size ) { $pieces="
Size $filesize bytes. If you permanently fail getting whole file, download it in 80Kb pieces:\n"; for ($i=1; $i-1 <= ($filesize / $piece_size) ; $i++ ) {$pieces.=sprintf ("[%d]\n",$i,$i);}; $pieces.="
"; } print "Content-type: text/html\n$Additional_header\n". "
$ENV{PATH_INFO}/Contents
\n". "\n";
$zagolowok=0;
open(DOCUMENT, $filename) || &file_not_found("Can't open $filename");
while (){
/^ \024(.*)\025(.*)/ && do {
if ($1 =~ /[*]/){
$_="\n$1$2
\n";
}else{
$_="
$1$2\n" ;
}
$zagolowok++;print &KOI($PEREKODER,$_);
};
}
print " ";
print $pieces;
exit(0);
}
sub With_big_pictures
{
$filename =~ s/\/with-big-pictures\.html// ;
if ($ENV{REMOTE_HOST} =~ /localhost/) { } else {
$Additional_header="Last-modified: ". &Last_Modified($filename,'Full')."\n";}
print "Content-type: text/html\n$Additional_header\n";
open(DOCUMENT, $filename) || &file_not_found("Can't open $filename");
while (){
s/\024//g;
s/\025/<\/b>/g;
s/\036D//g;
s/\036E/<\/b><\/i>/g;
s/^----*$/
/g ;
/^( *)(.*[^ ]) *ณ *([^ \n]*)\.jpg portret/ && do { $url=$3.".jpg" ;
$_="
$1$2\n" ;};
/^( *)(.*[^ ]) *ณ *([^ \n]*)\.jpg/ && do { $url=$3.".jpg" ;
$_="
$1$2\n" ;};
/^( *)(.*[^ ]) *ณ *([^ \n]*)/ && do { $url=$3 ;
if ($url=~ /^mailto:|^http:|^ftp:|^\//) {$_="$1$2\n" ;}
else {$_="$1$2\n" ;}
};
print &KOI($PEREKODER, $_ );
}
exit(0);
}
sub With_icons
{
$filename =~ s/\/with-icons\.html// ;
if ($ENV{REMOTE_HOST} =~ /localhost/) { } else {
$Additional_header="Last-modified: ". &Last_Modified($filename,'Full')."\n";}
print "Content-type: text/html\n$Additional_header\n";
$zagolowok=0;
open(DOCUMENT, $filename) || &file_not_found("Can't open $filename");
while (){
/^ \024(.*)\025(.*)/ && do { $_="$1$2
" ; $zagolowok++;};
s/\024//g;
s/\025/<\/b>/g;
s/\036D//g;
s/\036E/<\/b><\/i>/g;
s/^----*$/
/g ;
/^( *)(.*[^ ]) *ณ *([^ \n]*)\.jpg portret/ && do { $url=$3.".jpg" ;
$_="
$1$2\n";};
/^( *)(.*[^ ]) *ณ *([^ \n]*)\.jpg/ && do { $url=$3.".jpg" ;
$_="
$1$2\n";};
/^( *)(.*[^ ]) *ณ *([^ \n]*)/ && do { $url=$3 ;
if ($url=~ /^mailto:|^http:|^ftp:|^\//) {$_="$1$2\n" ;}
else {$_="$1$2\n" ;}
};
print &KOI($PEREKODER, $_ );
}
exit(0);
}
sub Directory
{ #
if (@_[0] eq 'What-s-new'){$Ne_Tolxko_new=0;}else{$Ne_Tolxko_new=1;}
# 'What-s-new' -
< 31
$filename =~ s/\/What-s-new/\// ;
if ($ENV{REMOTE_HOST} =~ /localhost/) { } else {
$Additional_header="Last-modified: ". &Last_Modified($filename,'Full')."\n";}
print "Content-type: text/html\n$Additional_header\n".
"$ENV{PATH_INFO} \n$ENV{PATH_INFO}
\n".
"".
" Name Size Last modified\n
";
opendir(dirhandle, $filename)|| &file_not_found("Can't open dir $filename");
while ($fname=readdir(dirhandle)){@dir = ( @dir, $fname );}
foreach $fname (sort @dir) { #
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename.$fname);
if (-d _ ) {$fname.="/";$image="menu";}else{$image="unknown";}
if (!($fname =~ /^\./ ) && ( $Ne_Tolxko_new || (time()-$mtime < 2678400)) ) {
printf (" 
%-28.28s %9d \t %s \n",$fname,$image,substr($fname,0,24)."", $size, &Last_Modified($filename.$fname,'Brief') );
}
}
exit(0);
}
sub Piece
{ # ฎ
/Piece80.02
$ENV{PATH_INFO} =~ s/\/Piece.*// ;
$filename =~ s/\/Piece([0-9]*).([0-9]*)// ;
$piece_size=80*1024;
$piece_number=$2;
$poziciq=$piece_size*($piece_number-1);
$filesize=(stat($filename) )[7];
if ($ENV{REMOTE_HOST} =~ /localhost/) { } else {
$Additional_header="Last-modified: ". &Last_Modified($filename,'Full')."\n";}
#"$ENV{PATH_INFO}/Piece $piece_size beginning at $poziciq \n";
print "Content-type: text/plain\n$Additional_header\n";
if ($filesize < $poziciq ) {
print "You miss - file is shoter, than you request";
exit 1;
}
open(DOCUMENT, $filename) || &file_not_found("Can't open $filename");
seek(DOCUMENT,$poziciq,0) || &file_not_found("Can't seek $pozition $filename");
read(DOCUMENT,$bufer,$piece_size) ;
if ($filename =~ /\.html?$|\.txt$|\.doc$|\.lbl$|\.hlp$|\.[0-9]*$/ )
{ print &KOI ($PEREKODER, $bufer) }
else { print $bufer; }
close (DOCUMENT);
exit (0);
}