No seriously folks, this is great, The
Russian people are thinking Capitalistic !
Russian *people* in general always thought that way. It's USSR goverment that *officially* didn't, but privately, they have been as capitalistic as it gets. I know it, I lived under Soviet goverment.
Also for people who read/write in Russian, can visit http://www.slashzone.ru/, for Slashdot-like site in Russian. It uses Slashcode so it's much like sd.
Russian *people* in general always thought that way. It's USSR goverment that *officially* didn't, but privately, they have been as capitalistic as it gets. I know it, I lived under Soviet goverment.
Also for people who read/write in Russian, can visit http://www.slashzone.ru/, for Slashdot-like site in Russian. It uses Slashcode so it's much like sd.
#!/usr/bin/perl -w
# Somewhat works. Takes 5 min to do it, not $5 =)
use LWP::Simple;
use CGI qw/:standard/;;
print "Content-type: text/html\n\n";
$slashdot = "http://slashdot.org/";
if(!param()) {
&remove_comments($slashdot);;
} else {
my $page = param('page');
&remove_comments($page);
}
sub remove_comments {
$url = shift;
print "url: $url\n";
my $newlink = "http://localhost/slashdot.pl";
my $content = get($url) or die print "cant get url: $!\n";
$content =~ s/<!-- begin OSDN Navbar -->.*?<!-- end OSDN Navbar -->//gs;
$content =~ s/<!-- advertisement code. -->.*?<!-- end ad code -->//gs;
$content =~ s/<A HREF=\"(.*?)\"/<A HREF=\"$new_link?page=http:$1\"/gs;
print $content;
}