Unfortunately for us, to most corporate interests, the idea of people being able to freely modify and redistribute their "product" tends to drive them away. Oh, well. Their loss. you can sell it, but will gain little money from doing so. You sell it to person X, who distributes the source/binaries on the Internet, which in turn compaines like RedHat take and redistribute in their linux Distro, while you, getting the short end of the stick, get very little profits. That's why if a business/programmer even wants to make enough money to "survive", support contracts will have to be made.
Companies write software to make (MONEY). The OSS/FSF movement doesn't mean the end of paying for software, it just means the end of software business for the little guy. Think about it: let's say all software was free..Beer or Speech. One of Two things will start to happen. 1) Advertising will be the only revenue left for software and the Big companies will have enough money to pay for it. 2) Programmers will be able to get jobs, but only at big companies(that can afford them).
Money will always be there..it will just come in different forms.
then Microsoft Windows is considered "Open". It has an Open API architecture.
well this is the problem: take an X-windows program for example. Some use one set of API's, and another uses a totally different set. You end up installing many files in an un-organized fashion. Maybe if a linux developer was good enough to create a kick-ass API, that everyone used in the community, things would be a lot better for developers, and the time to create a good X application might actually be less than a year.
if OSS/Free software was REALLY that much better than commericalized software, slashdot wouldn't have to say it so much. If it is, show me. Don't tell me over-and-over. And trying to convince people that OSS software is better than commercial software, strictly because it's "free" is a joke. Most of the commercial software that I have seen is better. It's not in my head either. Free software is often "hacked" together, with no structure/organization. The reason there are so many "updates" to an OSS piece of sodtware, is because it can be released with 5000 bugs, and it wouldn't matter..It's Free. Commercial/closed source software, on the other hand, usually goes through major checks before it is released.Most of this doesn't matter anyway...It's like arguing with a Brick Wall..The majority of slashdotters have an ironically closed mind anyway.
standards? you have to be kidding. In linux, there is no standard for almost anything(excluding network protocols). Linux is anarchy. Where everyone has to re-invent the wheel when writing something.(like X-interfaces). That's why there's shitty applications....maybe if there were some standards in linux,you might actually start seeing better applications. But...no..command-line/text-based apps are at it's best, with limited x-interfaces. Regular users see that as shit, that they can compare to DOS.
alright...then my PDA is better than linux because it doesn't suffer harddrive crashes.(I don't think a closed-minded person like you will ever see my point).
this is the radio/toaster/PDA system of the Virus.....they can'tbe affected either. Now if linux actually had a scripting language like VB built into it, you could make a defense like "linux is better...blah..blah.blah", but..the fact of the matter is...the same thing would happen in linux if it was. If it did, and the virus never spread, then you can say: "the linux is community is smarter/better". But, it's not, so don't compare two totally different things which have minimal things in common to make you look better.
well, if your not willing to pay for a product that is being sold, you shouldn't download it. I mean, if it's not worth the money, then why are you pirating it in the firs place?
copying is not stealing because the person copied from is deprived of nothing
under these same terms, what the hell is the purpose of the GPL,copyrights,security, or any rights at all on the internet anymore?
the rules have changed, if you haven't already noticed. Taking intellectual property, without the consent of the author, is STEALING. The thing that pisses me off the most, is when people claiming to be advocating "free speech", try and rationalize the taking of intellectual property. If they at LEAST admitted that it was stealing...but no..it's "my right" and "free speech". Pirated music,software,games,etc. will ALWAYS be on the Internet. It will never be stopped. Im not saying Metallica's actions are right, but they are justified (even if they aren't losing record sales). Selective Freedoms are Bullshit.
# The actual connect statement appears in this function. Edit it. Slash::sqlConnect();
@reasons=("Normal", # "Normal" "Offtopic", # Bad Responses "Flamebait", "Troll", "Redundant", "Insightful", # Good Responses "Interesting", "Informative", "Funny", "Overrated", # The last 2 are "Special" "Underrated");
$badreasons=4; # number of "Bad" reasons in @reasons, skip 0 (which is neutral)
################################################ ############################### # # Let's get this party Started #
# Blank variables, get $r (apache) $query (CGI) $U (User) and $F (Form) # Handles logging in, sql connection, and prints HTTP headers sub getSlash { undef $r if $r; undef $query if $query; undef $F if $F; undef $U if $U;
$r = Apache->request if $ENV{SCRIPT_NAME}; sqlConnect();
require CGI; $query = new CGI; my @names = $query->param; foreach (@names) { $$F{$_}=$query->param($_) }; $$F{ssi}||=""; # $$F{op}||=""; $ENV{SCRIPT_NAME}||="";
################################################ ######## # Quick Form Creation Functions
# Generic way to convert a table into a drop down list sub selectGeneric { my ($table,$label,$code,$name,$default,$where,$order, $limit)=@_; $default="" unless defined $default; $code="" unless defined $code;
print "\n\n";
my $sql=" SELECT $code,$name FROM $table "; $sql.=" WHERE $where" if $where; $sql.=" ORDER BY $name" unless $order; $sql.=" ORDER BY $order" if $order; $sql.=" LIMIT $limit" if $limit; my $c=$dbh->prepare_cached($sql); $c->execute(); while(my ($code,$name)=$c->fetchrow()) { my $select=$default eq $code?"SELECTED":""; print "$name\n"; } $c->finish(); print "\n"; }
################################################ ######## # This really is an obsolete function for quick form generation sub selectForm { my ($table,$label,$default,$where)=@_; selectGeneric($table,$label,"code","name",$default ,$where,"name"); }
################################################ ######## sub selectTopic { my ($name,$tid) =@_; getTopicBank;
my $o=""; foreach my $thistid (sort (keys %Slash::topicBank)) { my $T=$Slash::topicBank{$thistid}; my $selected="SELECTED" if $$T{tid} eq $tid; $o.="$$T{alttext}\n"; } $o.=""; print $o; }
################################################ ######## # Drop down list of available sections (based on admin seclev) sub selectSection { my($name,$section,$SECT)=@_; getSectionBank;
if($$SECT{isolate}) { print ""; return; } my $o=""; foreach my $s (sort (keys %Slash::sectionBank) ) { my $S=$Slash::sectionBank{$s}; next if $$S{isolate} and $$U{aseclev} $$S{title}"; } $o.=""; print $o; }
################################################ ######## sub selectSortcode { # Get a sortcode hash # my %sortcodeBank; unless($sortcodeBank) { my $c=sqlSelectMany("code,name","sortcodes"); while (my ($id,$desc)=$c->fetchrow() ) { $sortcodeBank{$id}=$desc; } $c->finish; } my $o.=""; foreach my $id (keys %sortcodeBank) { my $selected="SELECTED" if $id eq $$U{commentsort}; $o.="$sortcodeBank{$id}"; } $o.=""; return $o; }
################################################ ######## sub selectMode { # my %modeBank; unless($modeBank) { my $c=sqlSelectMany("mode,name","commentmodes"); while (my ($id,$desc)=$c->fetchrow() ) { $modeBank{$id}=$desc; } $c->finish; } my $o.=""; foreach my $id (keys %modeBank) { my $selected="SELECTED" if $id eq $$U{mode}; $o.="$modeBank{$id}"; } $o.=""; return $o; }
################################################ ############################# # Functions for dealing with Blocks (big chunks of data) sub getblock { my ($bid)=@_; getBlockBank(); return $blockBank{$bid}; # unless $blockBank{$bid} eq "-1"; }
################################################ ######## # Blank the block cache. sub nukeBlockCache { %blockBank=(); }
################################################ ######## sub getBlockBank { return if $blockBank{cached}; $blockBank{cached}=localtime();
my $c=sqlSelectMany("bid,block","blocks"); while(my ($thisbid,$thisblock)=$c->fetchrow()) { $blockBank{$thisbid}=$thisblock; } $c->finish(); }
################################################ ######## # Gets a block. Stores a block. Returns a block. Future requests read # from cache. Nice and quick. sub blockCache { my ($bid)=@_;
################################################ ######## # Prep for evaling (no \r allowed... why is that?) sub prepEvalBlock { my ($b)=@_; $b=~s/\r//g; return $b; }
################################################ ######## # Preps a block for evaling (escaping out " mostly) sub prepBlock { my ($b)=@_; $b=~s/\r//g; $b=~s/"/\\"/g; $b="\"$b\";"; return $b; }
################################################ ######## # Gets a block, and ready's it for evaling sub getEvalBlock { my($name)=@_; my $block=getSectionBlock($name); my $execme=prepEvalBlock($block); return $execme; }
################################################ ######## # Gets the appropriate block depending on your section # or else fall back to one that exists sub getSectionBlock { my $name=shift; my $thissect=$$U{light}?"light":$currentSection; my $block; if($thissect) { $block=blockCache($thissect."_$name"); } $block||=blockCache($name); return $block; }
################################################ ######## # Get a Block based on mode, section & name, and prep it for evaling sub getWidgetBlock { my $name = shift; my $block=getSectionBlock($name); my $execme=prepBlock($block); return $execme; }
################################################ ############################### # Functions for dealing with vars (system config variables)
################################################ ######## sub getvars { my @invars=@_; my @vars; for(my $x=0;$x$value},"name=".$dbh->quote($name)); }
################################################ ######## sub newvar { my ($name, $value, $desc)=@_; sqlInsert("vars",{name=>$name, value=>$value, description=>$desc}); }
################################################ ############################### # Stuff for dealing with Logging In # # It does what it says, it says what it does. ################################################ ######## sub userLogin { my($name,$passwd)=@_;
################################################ ######## # Decode the Cookie: Cookies have all the special charachters encoded # in standard URL format. This converts it back. then it is split # on '::' to get the users info. sub userCheckCookie { my ($cookie)=@_; $cookie=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; my ($uid,$passwd)=split("::",$cookie); return (-1,"") if $uid eq " "; return ($uid, $passwd); }
################################################ ######## # Replace $_[0] with $_[1] || "0" in the User Hash # users by getUser to allow form parameters to override user parameters sub overRide { my $p = shift; my $d = shift; if(defined $query->param($p)) { $$U{$p}=$query->param($p); } else { $$U{$p}||=$d || "0"; }
}
################################################ ######## # Add this hashref to $U sub addToUser { my $H=shift; @$U { keys %$H } = values %$H; }
################################################ ######## # Get users_$_ and at it to $U sub getExtraStuff { my $s = shift; my $H = sqlSelectHashref("*","users_$s","uid=$$U{uid}"); addToUser( $H ); }
################################################ ######## # IF passed a valid uid & passwd, it logs in $U # else $U becomes Anonymous Coward (eg UID -1) sub getUser { my($uid,$passwd)=@_; undef $U;
# Do we want the comments stuff? if(!$ENV{SCRIPT_NAME} or $ENV{SCRIPT_NAME} =~/index|article|comments|metamod|search|pollBooth/) { getExtraStuff("comments"); }
# Do we want the index stuff? if(!$ENV{SCRIPT_NAME} or $ENV{SCRIPT_NAME} =~/index/) { getExtraStuff("index"); } } else { unless($AC) { # Get ourselves an AC if we don't already have one. # (we have to get it/all/ remember!) $AC=sqlSelectHashref("*", "users, users_index, users_comments, users_prefs", "users.uid=-1 AND users_index.uid=-1 AND users_comments.uid=-1 AND users_prefs.uid=-1");
# timezone stuff $ACTZ = sqlSelectHashref("*", "tzcodes,dateformats", "tzcodes.tz='$$AC{tzcode}' AND dateformats.id=$$AC{dfid}");
# Set a few defaults overRide("mode","thread"); overRide("savechanges"); overRide("commentsort"); overRide("threshold"); overRide("posttype"); overRide("noboxes"); overRide("light");
$currentMode=$$U{mode};
$$U{seclev}=$$U{aseclev} if $$U{aseclev} > $$U{seclev};
$$U{breaking}=0; if($$U{commentlimit} > $breaking and $$U{mode} ne "archive") { $$U{commentlimit}=int($breaking / 2); $$U{breaking}=1; }
# All sorts of checks on user data $$U{tzcode}=uc($$U{tzcode}); $$U{clbig}||=0; $$U{clsmall}||=0; $$U{exaid}=testExStr($$U{exaid}) if $$U{exaid}; $$U{exboxes}=testExStr($$U{exboxes}) if $$U{exboxes}; $$U{extid}=testExStr($$U{extid}) if $$U{extid}; $$U{points}=0 unless $$U{willing}; # No points if you dont wan 'em
return $U; }
################################################ ######## # Handles admin logins (checks the sessions table for a cookie that # matches). Called by getSlash sub getAdminInfo { my ($session)=@_;
$dbh->do("DELETE from sessions WHERE now() > DATE_ADD(lasttime, INTERVAL 30 MINUTE)");
my ($aid, $seclev,$section,$url)=sqlSelect( "sessions.aid, authors.seclev, section, url", "sessions, authors", "sessions.aid=authors.aid AND session=".$dbh->quote($session));
unless($aid) { return ("",0,"",""); } else { $dbh->do("DELETE from sessions WHERE aid = '$aid' AND session != ".$dbh->quote($session) ); sqlUpdate("sessions",{-lasttime=>'now()'}, "session=".$dbh->quote($session)); return ($aid, $seclev,$section,$url); }
}
################################################ ######## # Initial Administrator Login. sub setAdminInfo { my ($aid, $pwd)=@_;
if(my ($aid,$seclev)=sqlSelect("aid,seclev","authors", "aid=".$dbh->quote($aid)." AND pwd=".$dbh->quote($pwd) ) ) { my $sid=generatesession($aid); my ($title)=sqlSelect("lasttitle","sessions", "aid=".$dbh->quote($aid) ); $dbh->do("DELETE FROM sessions WHERE aid=".$dbh->quote($aid) ); sqlInsert("sessions",{session=>$sid, aid=>$aid, -logintime=>'now()',-lasttime=>'now()', lasttitle=>$title}); print setCookie('session',$sid); return ($aid,$seclev); } else { return ("",0); }
}
################################################ ############### # What is it? Where does it go? The Random Leftover Shit
################################################ ######## sub setCookie {
################################################ ######## # Returns YY/MM/DD/HHMMSS all ready to be inserted sub getsid { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd st) = localtime; $year = $year % 100; my $sid=sprintf("%02d/%02d/%02d",$year,$mon+1,$mday). "/". sprintf("%02d%0d2%02d",$hour,$min,$sec); return $sid; }
################################################ ######## # Get a unique string for an admin session sub generatesession { my $newsid = crypt(rand(99999), shift); $newsid =~ s/[^A-Za-z0-9]//i; return $newsid; }
what im saying, is that if what slashdotters want to happen comes true (all software becomes free/part of the GPL), the only way to make money will be on services contracts. Be careful what you wish for, you might just get it.
man, you sure will fight to the end when it comes to your own rights(or open-sourcers), but when it comes to companies like Microsoft, technicalities will be used against them. It's fucking sick to see rights being violated and ignored, by the same group that claims to be fighting for the opposite. Free-speech should be fought for all, not for the select few (people in "the know" or OSS/FSF movement). You have no idea what free-speech is, or what it means. It's a lot different then the clouded ironically close minded world that slashdotters live in.
It's better than the current versions of OSS, *nix clients, with all the GREAT features from the 1960's. Quote: "It was built right the frist time, so it doesn't need to be updated". Yeah.... and so was the Model-T.
You do realize that in countries where free/inexpensive public health service in place you can opt for private clinics if you can afford them?
How does this make it any better? So now the average person doesn't get healthcare because of the over-populated hospital. (rich people can get healthcare as long as they have they $$$).
Denying basic health care is barbaric (as is death penalty BTW
you're right. when someone gets convicted of killing 10 people, we should 1) keep them in jail and cost the taxpayers millions of dollers. or 2) slap them on the wrist and tell them it will be alright. What do you think we should do with such criminals? let them go free (I bet you think gun control is good, too)
You must also be one of the people who think that stupid people shouldn't breed and reducing excess population by letting people starve or die of curable diseases is a good thing(tm) and very economical indeed. sorry, not me. I just don't like to pay for people living off the government (when they are perfectly capable of making their own money, but refuse to). Now let me generalize people like you: You are living off of welefare, Bitching about how bad the government is, meanwhile, not taking the time to get a job.
Uh... according to this logic free software shouldn't exist
welefare makes things like this possible...or the hope of Communism
if it were up to you, everything would be free. (you need a reality check)
good, im glad you brought this up. So If I released GPL'd code (without the GPL license) it would be Ok then. Microsoft does have a license, on their website, or within the download. Posting it on slashdot's board, without the license, is the same as someone putting gpl'd code on their site, with no gpl license attached.
You mean normal evolution in software will take its natural course? Yes, of course. Stating the obvious? I do not think Linux of today will be the same O.S. we are using 20 years from now! Newer paradigms will arrive.
no, what im saying is that many slashdotters/linux zealouts have the "sold out" attitude. They only use linux because it is different from "the norm".
it seems that many linux-zealouts only like and use the OS because they can get a power trip on the thought that they are better than others because they know how to do some command in linux that is better than the Microsoft counterpart. When linux becomes popular, and everyone uses it, developers will start creating better GUI's. Archaic commands will no longer be used, and the zealouts will move onto a new OS. It's not about free-speech, free-software, or even the fact that it's better, it's about Power. About 99% of the *nix system admins that I have talked to are usually big pricks, who can never be wrong.
Linux has it's moments. It's better and more stable than NT, but shouldn't be used for client machines.(kinda funny...slashdotters have argued in the past that linux shouldn't be compare to win95 because it isn't a client, and that it is better than win95 as a client).
In the case of BeOS, Be was taking Linux source code and trying to pass it off as their own, and not show their changes
this is correct, but with closed source anything, bringing it out into the open is the same exact thing. In an open-source society, there is no one person that owns something. Source is free, and "the community" is basically who owns it. What is happening, is that microsoft's Kerbos specs are being claimed by "the community".
they specifically said they didn't want it being distributed without the agreement (or something like it). It's their right to claim ownership. Just like if someone released GPL'd code, without the GPL license attached.
we don't provide free medical care for everyone is, actually, embarrasing....
I see you have never been or read about a country that provides free medicare. In countries like Canada or Sweden (sem-socialist), the hospitals are so over-crowded that people are coming into countries like the U.S. What does that Tell you about Socialism?? It DOESN'T WORK. Im glad we don't have it in the U.S. Welefare is ten times worse. the only people that need welfare are the mentally disabled or people that can't (not won't) work. The people that are actually getting it refuse to get jobs(I mean hey, when you get everything for free, what incentive is there to work).
Slashdot Mirror
Unfortunately for us, to most corporate interests, the idea of people being able to freely modify and redistribute their "product" tends to drive them away. Oh, well. Their loss.
you can sell it, but will gain little money from doing so. You sell it to person X, who distributes the source/binaries on the Internet, which in turn compaines like RedHat take and redistribute in their linux Distro, while you, getting the short end of the stick, get very little profits. That's why if a business/programmer even wants to make enough money to "survive", support contracts will have to be made.
Companies write software to make (MONEY). The OSS/FSF movement doesn't mean the end of paying for software, it just means the end of software business for the little guy. Think about it: let's say all software was free..Beer or Speech. One of Two things will start to happen. 1) Advertising will be the only revenue left for software and the Big companies will have enough money to pay for it. 2) Programmers will be able to get jobs, but only at big companies(that can afford them).
Money will always be there..it will just come in different forms.
then Microsoft Windows is considered "Open". It has an Open API architecture.
well this is the problem: take an X-windows program for example. Some use one set of API's, and another uses a totally different set. You end up installing many files in an un-organized fashion. Maybe if a linux developer was good enough to create a kick-ass API, that everyone used in the community, things would be a lot better for developers, and the time to create a good X application might actually be less than a year.
go away communist..see I can play this game too
if OSS/Free software was REALLY that much better than commericalized software, slashdot wouldn't have to say it so much. If it is, show me. Don't tell me over-and-over. And trying to convince people that OSS software is better than commercial software, strictly because it's "free" is a joke. Most of the commercial software that I have seen is better. It's not in my head either. Free software is often "hacked" together, with no structure/organization. The reason there are so many "updates" to an OSS piece of sodtware, is because it can be released with 5000 bugs, and it wouldn't matter..It's Free. Commercial/closed source software, on the other hand, usually goes through major checks before it is released.Most of this doesn't matter anyway...It's like arguing with a Brick Wall..The majority of slashdotters have an ironically closed mind anyway.
standards? you have to be kidding. In linux, there is no standard for almost anything(excluding network protocols). Linux is anarchy. Where everyone has to re-invent the wheel when writing something.(like X-interfaces). That's why there's shitty applications....maybe if there were some standards in linux,you might actually start seeing better applications. But...no..command-line/text-based apps are at it's best, with limited x-interfaces. Regular users see that as shit, that they can compare to DOS.
alright...then my PDA is better than linux because it doesn't suffer harddrive crashes.(I don't think a closed-minded person like you will ever see my point).
here's an analogy that someone Here can relate to:
violating the copyrights of the artist, by illegally copying mp3's, is like putting OSS code on e-bay.
Freedom isn't a one-way street
then PAY something then. If it's worth something to you, the artists derserve the money!!!!
this is the radio/toaster/PDA system of the Virus.....they can'tbe affected either. Now if linux actually had a scripting language like VB built into it, you could make a defense like "linux is better...blah..blah.blah", but..the fact of the matter is...the same thing would happen in linux if it was. If it did, and the virus never spread, then you can say: "the linux is community is smarter/better". But, it's not, so don't compare two totally different things which have minimal things in common to make you look better.
well, if your not willing to pay for a product that is being sold, you shouldn't download it. I mean, if it's not worth the money, then why are you pirating it in the firs place?
copying is not stealing because the person copied from is deprived of nothing
under these same terms, what the hell is the purpose of the GPL,copyrights,security, or any rights at all on the internet anymore?
the rules have changed, if you haven't already noticed. Taking intellectual property, without the consent of the author, is STEALING. The thing that pisses me off the most, is when people claiming to be advocating "free speech", try and rationalize the taking of intellectual property. If they at LEAST admitted that it was stealing...but no..it's "my right" and "free speech". Pirated music,software,games,etc. will ALWAYS be on the Internet. It will never be stopped. Im not saying Metallica's actions are right, but they are justified (even if they aren't losing record sales). Selective Freedoms are Bullshit.
---Freedom isn't a one-way street
the hypocritical society
# ###############################
) ; ) );
# ########
, $limit)=@_;
# ######## t ,$where,"name");
# ########
# ########
# ########
# ########
# #############################
# ########
# ########
# ########
# ########
# ########
# ########
# ########
# ########
# ###############################
# ########
# ########
# ############################### # ########
# ########
# ########
# ########
# ########
# ########
/index|article|comments|metamod|search|pollBooth/) {
/index/) { /all/ remember!)
# ########
# ########
# ###############
# ########
# ######## d st) = localtime; . "/".
# ########
BEGIN {
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.40;
@ISA=qw(Exporter);
@EXPORT=qw(
&sqlSelectMany &sqlSelect &sqlSelectHash &sqlSelectAll
&sqlSelectHashref &sqlUpdate &sqlInsert &sqlReplace &sqlConnect
&sqlTableExists &sqlSelectColumns
$r $F $U $query $dbh @fg @bg @approvedtags
@reasons $badreasons $breaking
$imagedir $basedomain $rootdir $sitename $siteadmin $siteadmin_name $slogan $basedir $titlebar_width
$siteowner $smtp_server $rdfimg
$currentSection $currentMode $userMode
$datadir &getSlash &linkStory &getSection
&selectForm &selectGeneric &selectTopic &selectSection
&getvars &getvar &setvar &newvar &getblock &getsid &getsiddir
&writelog &anonLog &pollbooth
&stripByMode &header &footer
&prepEvalBlock &prepBlock &nukeBlockCache &blockCache &formLabel
&titlebar &fancybox &portalbox &printComments &displayStory
&sendEmail &getOlderStories &selectStories
%storyBank %commentBank
&timeCalc $story_refresh $code_time $story_expire
%query
&getBlockBank
$shit
$AC, $ACTZ
$StoryCount
@sid_array
$send_mail $run_ads
$dsn $dbuser $dbpass
$adfu_dsn $adfu_dbuser $adfu_dbpass
$metamod_sum $maxtokens $tokensperpoint
$maxpoints $stir $tokenspercomment
$down_moderations
);
}
use vars @EXPORT;
# The actual connect statement appears in this function. Edit it.
Slash::sqlConnect();
@reasons=("Normal", # "Normal"
"Offtopic", # Bad Responses
"Flamebait",
"Troll",
"Redundant",
"Insightful", # Good Responses
"Interesting",
"Informative",
"Funny",
"Overrated", # The last 2 are "Special"
"Underrated");
$badreasons=4; # number of "Bad" reasons in @reasons, skip 0 (which is neutral)
###############################################
#
# Let's get this party Started
#
# Blank variables, get $r (apache) $query (CGI) $U (User) and $F (Form)
# Handles logging in, sql connection, and prints HTTP headers
sub getSlash
{
undef $r if $r; undef $query if $query;
undef $F if $F; undef $U if $U;
$r = Apache->request if $ENV{SCRIPT_NAME};
sqlConnect();
require CGI;
$query = new CGI;
my @names = $query->param;
foreach (@names) { $$F{$_}=$query->param($_) };
$$F{ssi}||="";
# $$F{op}||="";
$ENV{SCRIPT_NAME}||="";
print "HTTP/1.1 200 OK\r\n" unless $$F{ssi};
my $op=$query->param("op") || "";
if(($op eq "userlogin" or $query->param("rlogin") )
and length $$F{upasswd} > 1) {
$U=getUser(userLogin($$F{unickname},$$F{upasswd})
} elsif($op eq "userclose" ) {
print setCookie( "user"," " );
} elsif( $op eq "adminclose") {
print setCookie("session"," ");
} elsif($query->cookie("user")) {
$U=getUser(userCheckCookie($query->cookie("user")
} else {
$U||=getUser(-1);
}
unless($$F{ssi} ) {
print "Server: $ENV{SERVER_SOFTWARE}\n" if $ENV{SERVER_SOFTWARE};
print "Pragma: no-cache\n" unless $$U{aseclev} or
$ENV{SCRIPT_NAME}=~/comments/;
print "Cache-control: private\n";
print "Content-Type: text/html\n\n";
}
return 1;
}
###############################################
# Quick Form Creation Functions
# Generic way to convert a table into a drop down list
sub selectGeneric
{
my ($table,$label,$code,$name,$default,$where,$order
$default="" unless defined $default;
$code="" unless defined $code;
print "\n\n";
my $sql=" SELECT $code,$name FROM $table ";
$sql.=" WHERE $where" if $where;
$sql.=" ORDER BY $name" unless $order;
$sql.=" ORDER BY $order" if $order;
$sql.=" LIMIT $limit" if $limit;
my $c=$dbh->prepare_cached($sql);
$c->execute();
while(my ($code,$name)=$c->fetchrow()) {
my $select=$default eq $code?"SELECTED":"";
print "$name\n";
}
$c->finish();
print "\n";
}
###############################################
# This really is an obsolete function for quick form generation
sub selectForm
{
my ($table,$label,$default,$where)=@_;
selectGeneric($table,$label,"code","name",$defaul
}
###############################################
sub selectTopic
{
my ($name,$tid) =@_;
getTopicBank;
my $o="";
foreach my $thistid (sort (keys %Slash::topicBank)) {
my $T=$Slash::topicBank{$thistid};
my $selected="SELECTED" if $$T{tid} eq $tid;
$o.="$$T{alttext}\n";
}
$o.="";
print $o;
}
###############################################
# Drop down list of available sections (based on admin seclev)
sub selectSection
{
my($name,$section,$SECT)=@_;
getSectionBank;
if($$SECT{isolate}) {
print "";
return;
}
my $o="";
foreach my $s (sort (keys %Slash::sectionBank) ) {
my $S=$Slash::sectionBank{$s};
next if $$S{isolate} and $$U{aseclev} $$S{title}";
}
$o.="";
print $o;
}
###############################################
sub selectSortcode
{
# Get a sortcode hash
# my %sortcodeBank;
unless($sortcodeBank) {
my $c=sqlSelectMany("code,name","sortcodes");
while (my ($id,$desc)=$c->fetchrow() ) {
$sortcodeBank{$id}=$desc;
}
$c->finish;
}
my $o.="";
foreach my $id (keys %sortcodeBank) {
my $selected="SELECTED" if $id eq $$U{commentsort};
$o.="$sortcodeBank{$id}";
}
$o.="";
return $o;
}
###############################################
sub selectMode
{
# my %modeBank;
unless($modeBank) {
my $c=sqlSelectMany("mode,name","commentmodes");
while (my ($id,$desc)=$c->fetchrow() ) {
$modeBank{$id}=$desc;
}
$c->finish;
}
my $o.="";
foreach my $id (keys %modeBank) {
my $selected="SELECTED" if $id eq $$U{mode};
$o.="$modeBank{$id}";
}
$o.="";
return $o;
}
###############################################
# Functions for dealing with Blocks (big chunks of data)
sub getblock
{
my ($bid)=@_;
getBlockBank();
return $blockBank{$bid}; # unless $blockBank{$bid} eq "-1";
}
###############################################
# Blank the block cache.
sub nukeBlockCache
{
%blockBank=();
}
###############################################
sub getBlockBank
{
return if $blockBank{cached};
$blockBank{cached}=localtime();
my $c=sqlSelectMany("bid,block","blocks");
while(my ($thisbid,$thisblock)=$c->fetchrow()) {
$blockBank{$thisbid}=$thisblock;
}
$c->finish();
}
###############################################
# Gets a block. Stores a block. Returns a block. Future requests read
# from cache. Nice and quick.
sub blockCache
{
my ($bid)=@_;
getBlockBank();
return $blockBank{$bid}; # unless $blockBank{$bid} eq "-1");
}
###############################################
# Prep for evaling (no \r allowed... why is that?)
sub prepEvalBlock
{
my ($b)=@_;
$b=~s/\r//g;
return $b;
}
###############################################
# Preps a block for evaling (escaping out " mostly)
sub prepBlock
{
my ($b)=@_;
$b=~s/\r//g;
$b=~s/"/\\"/g;
$b="\"$b\";";
return $b;
}
###############################################
# Gets a block, and ready's it for evaling
sub getEvalBlock
{
my($name)=@_;
my $block=getSectionBlock($name);
my $execme=prepEvalBlock($block);
return $execme;
}
###############################################
# Gets the appropriate block depending on your section
# or else fall back to one that exists
sub getSectionBlock
{
my $name=shift;
my $thissect=$$U{light}?"light":$currentSection;
my $block;
if($thissect) {
$block=blockCache($thissect."_$name");
}
$block||=blockCache($name);
return $block;
}
###############################################
# Get a Block based on mode, section & name, and prep it for evaling
sub getWidgetBlock
{
my $name = shift;
my $block=getSectionBlock($name);
my $execme=prepBlock($block);
return $execme;
}
###############################################
# Functions for dealing with vars (system config variables)
###############################################
sub getvars
{
my @invars=@_;
my @vars;
for(my $x=0;$x$value},"name=".$dbh->quote($name));
}
###############################################
sub newvar
{
my ($name, $value, $desc)=@_;
sqlInsert("vars",{name=>$name, value=>$value, description=>$desc});
}
###############################################
# Stuff for dealing with Logging In
#
# It does what it says, it says what it does.
###############################################
sub userLogin
{
my($name,$passwd)=@_;
$passwd = substr $passwd, 0, 12;
my ($uid)=sqlSelect("uid","users",
"passwd=".$dbh->quote($passwd)."
AND nickname=".$dbh->quote($name));
if($uid>0) {
my $cookie=$uid."::".$passwd;
$cookie=~s/(.)/sprintf("%%%02x",ord($1))/ge;
print setCookie( "user" , $cookie );
return ($uid, $passwd);
} else {
return (-1,"");
}
}
###############################################
# Decode the Cookie: Cookies have all the special charachters encoded
# in standard URL format. This converts it back. then it is split
# on '::' to get the users info.
sub userCheckCookie
{
my ($cookie)=@_;
$cookie=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
my ($uid,$passwd)=split("::",$cookie);
return (-1,"") if $uid eq " ";
return ($uid, $passwd);
}
###############################################
# Replace $_[0] with $_[1] || "0" in the User Hash
# users by getUser to allow form parameters to override user parameters
sub overRide
{
my $p = shift;
my $d = shift;
if(defined $query->param($p)) {
$$U{$p}=$query->param($p);
} else {
$$U{$p}||=$d || "0";
}
}
###############################################
# Add this hashref to $U
sub addToUser
{
my $H=shift;
@$U { keys %$H } = values %$H;
}
###############################################
# Get users_$_ and at it to $U
sub getExtraStuff
{
my $s = shift;
my $H = sqlSelectHashref("*","users_$s","uid=$$U{uid}");
addToUser( $H );
}
###############################################
# IF passed a valid uid & passwd, it logs in $U
# else $U becomes Anonymous Coward (eg UID -1)
sub getUser
{
my($uid,$passwd)=@_;
undef $U;
if($uid > 0) { # Authenticate
$U=sqlSelectHashref("*","users",
" uid = ".$dbh->quote($uid).
" AND passwd = ".$dbh->quote($passwd) );
}
if ($uid > 0 and $$U{uid}) { # registered user
# Get User Prefs
getExtraStuff("prefs");
# Get the Timezone Stuff
unless(defined $timezones) {
my $c=sqlSelectMany("tz,offset","tzcodes");
while(my ($tzcode,$offset)=$c->fetchrow() ) {
$timezones{$tzcode}=$offset;
}
$c->finish();
}
$$U{offset}=$timezones{ $$U{tzcode} };
unless(defined $dateformats) {
my $c=sqlSelectMany("id,format","dateformats");
while(my ($dfid,$dateformat)=$c->fetchrow() ) {
$dateformats{$dfid}=$dateformat;
}
$c->finish();
}
$$U{format}=$dateformats{ $$U{dfid} };
# Do we want the comments stuff?
if(!$ENV{SCRIPT_NAME} or $ENV{SCRIPT_NAME} =~
getExtraStuff("comments");
}
# Do we want the index stuff?
if(!$ENV{SCRIPT_NAME} or $ENV{SCRIPT_NAME} =~
getExtraStuff("index");
}
} else {
unless($AC) {
# Get ourselves an AC if we don't already have one.
# (we have to get it
$AC=sqlSelectHashref("*",
"users, users_index, users_comments,
users_prefs",
"users.uid=-1 AND
users_index.uid=-1 AND
users_comments.uid=-1 AND
users_prefs.uid=-1");
# timezone stuff
$ACTZ = sqlSelectHashref("*",
"tzcodes,dateformats",
"tzcodes.tz='$$AC{tzcode}' AND
dateformats.id=$$AC{dfid}");
@$AC{ keys %$ACTZ } = values %$ACTZ;
}
addToUser($AC);
}
# Add On Admin Junk
if($$F{op} eq "adminlogin") {
($$U{aid},$$U{aseclev})
=setAdminInfo($$F{aaid},
$$F{apasswd});
} elsif(length $query->cookie('session') > 3) {
($$U{aid},$$U{aseclev},$$U{asection},$$U{url})
=getAdminInfo($query->cookie('session'))
} else {
$$U{aid}="";
$$U{aseclev}=0;
}
# Set a few defaults
overRide("mode","thread");
overRide("savechanges");
overRide("commentsort");
overRide("threshold");
overRide("posttype");
overRide("noboxes");
overRide("light");
$currentMode=$$U{mode};
$$U{seclev}=$$U{aseclev} if $$U{aseclev} > $$U{seclev};
$$U{breaking}=0;
if($$U{commentlimit} > $breaking and $$U{mode} ne "archive") {
$$U{commentlimit}=int($breaking / 2);
$$U{breaking}=1;
}
# All sorts of checks on user data
$$U{tzcode}=uc($$U{tzcode});
$$U{clbig}||=0;
$$U{clsmall}||=0;
$$U{exaid}=testExStr($$U{exaid}) if $$U{exaid};
$$U{exboxes}=testExStr($$U{exboxes}) if $$U{exboxes};
$$U{extid}=testExStr($$U{extid}) if $$U{extid};
$$U{points}=0 unless $$U{willing}; # No points if you dont wan 'em
return $U;
}
###############################################
# Handles admin logins (checks the sessions table for a cookie that
# matches). Called by getSlash
sub getAdminInfo
{
my ($session)=@_;
$dbh->do("DELETE from sessions WHERE now() > DATE_ADD(lasttime, INTERVAL 30 MINUTE)");
my ($aid, $seclev,$section,$url)=sqlSelect(
"sessions.aid, authors.seclev, section, url",
"sessions, authors",
"sessions.aid=authors.aid AND session=".$dbh->quote($session));
unless($aid) {
return ("",0,"","");
} else {
$dbh->do("DELETE from sessions WHERE aid = '$aid'
AND session != ".$dbh->quote($session) );
sqlUpdate("sessions",{-lasttime=>'now()'},
"session=".$dbh->quote($session));
return ($aid, $seclev,$section,$url);
}
}
###############################################
# Initial Administrator Login.
sub setAdminInfo
{
my ($aid, $pwd)=@_;
if(my ($aid,$seclev)=sqlSelect("aid,seclev","authors",
"aid=".$dbh->quote($aid)."
AND pwd=".$dbh->quote($pwd) ) ) {
my $sid=generatesession($aid);
my ($title)=sqlSelect("lasttitle","sessions",
"aid=".$dbh->quote($aid) );
$dbh->do("DELETE FROM sessions WHERE aid=".$dbh->quote($aid) );
sqlInsert("sessions",{session=>$sid, aid=>$aid,
-logintime=>'now()',-lasttime=>'now()',
lasttitle=>$title});
print setCookie('session',$sid);
return ($aid,$seclev);
} else {
return ("",0);
}
}
###############################################
# What is it? Where does it go? The Random Leftover Shit
###############################################
sub setCookie
{
my($name,$val)=@_;
return "Set-Cookie: ",
$query->cookie(-name=>$name, -domain=>"$basedomain",
-expires=>'+1y', -value=>$val),"\n",
"Set-Cookie: ",
$query->cookie(-name=>$name, -value=>$val, -expires=>'+1y'),"\n";
}
###############################################
# Returns YY/MM/DD/HHMMSS all ready to be inserted
sub getsid
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$is
$year = $year % 100;
my $sid=sprintf("%02d/%02d/%02d",$year,$mon+1,$mday)
sprintf("%02d%0d2%02d",$hour,$min,$sec);
return $sid;
}
###############################################
# Get a unique string for an admin session
sub generatesession
{
my $newsid = crypt(rand(99999), shift);
$newsid =~ s/[^A-Za-z0-9]//i;
return $newsid;
}
what im saying, is that if what slashdotters want to happen comes true (all software becomes free/part of the GPL), the only way to make money will be on services contracts. Be careful what you wish for, you might just get it.
true, but this is what will happen if all software is "free", like the FSF and slashdot wants!
man, you sure will fight to the end when it comes to your own rights(or open-sourcers), but when it comes to companies like Microsoft, technicalities will be used against them. It's fucking sick to see rights being violated and ignored, by the same group that claims to be fighting for the opposite. Free-speech should be fought for all, not for the select few (people in "the know" or OSS/FSF movement). You have no idea what free-speech is, or what it means. It's a lot different then the clouded ironically close minded world that slashdotters live in.
Freedom isn't a one-way street
It's better than the current versions of OSS, *nix clients, with all the GREAT features from the 1960's. Quote: "It was built right the frist time, so it doesn't need to be updated". Yeah.... and so was the Model-T.
You do realize that in countries where free/inexpensive public health service in place you can opt for private clinics if you can afford them?
How does this make it any better? So now the average person doesn't get healthcare because of the over-populated hospital. (rich people can get healthcare as long as they have they $$$).
Denying basic health care is barbaric (as is death penalty BTW
you're right. when someone gets convicted of killing 10 people, we should 1) keep them in jail and cost the taxpayers millions of dollers. or 2) slap them on the wrist and tell them it will be alright. What do you think we should do with such criminals? let them go free (I bet you think gun control is good, too)
You must also be one of the people who think that stupid people shouldn't breed and reducing excess population by letting people starve or die of curable diseases is a good thing(tm) and very economical indeed.
sorry, not me. I just don't like to pay for people living off the government (when they are perfectly capable of making their own money, but refuse to). Now let me generalize people like you: You are living off of welefare, Bitching about how bad the government is, meanwhile, not taking the time to get a job.
Uh... according to this logic free software shouldn't exist
welefare makes things like this possible...or the hope of Communism
if it were up to you, everything would be free. (you need a reality check)
good, im glad you brought this up. So If I released GPL'd code (without the GPL license) it would be Ok then. Microsoft does have a license, on their website, or within the download. Posting it on slashdot's board, without the license, is the same as someone putting gpl'd code on their site, with no gpl license attached.
it is also illegal to violate Microsoft's license
my point was that I have seen slashdot argue for and against something, at different times, depending on when it was good for the linux community.
You mean normal evolution in software will take its natural course? Yes, of course. Stating the obvious? I do not think Linux of today will be the same O.S. we are using 20 years from now! Newer paradigms will arrive.
no, what im saying is that many slashdotters/linux zealouts have the "sold out" attitude. They only use linux because it is different from "the norm".
it seems that many linux-zealouts only like and use the OS because they can get a power trip on the thought that they are better than others because they know how to do some command in linux that is better than the Microsoft counterpart. When linux becomes popular, and everyone uses it, developers will start creating better GUI's. Archaic commands will no longer be used, and the zealouts will move onto a new OS. It's not about free-speech, free-software, or even the fact that it's better, it's about Power. About 99% of the *nix system admins that I have talked to are usually big pricks, who can never be wrong.
Linux has it's moments. It's better and more stable than NT, but shouldn't be used for client machines.(kinda funny...slashdotters have argued in the past that linux shouldn't be compare to win95 because it isn't a client, and that it is better than win95 as a client).
if trolling means the advocating of Free speech: yes
In the case of BeOS, Be was taking Linux source code and trying to pass it off as their own, and not show their changes
this is correct, but with closed source anything, bringing it out into the open is the same exact thing. In an open-source society, there is no one person that owns something. Source is free, and "the community" is basically who owns it. What is happening, is that microsoft's Kerbos specs are being claimed by "the community".
they specifically said they didn't want it being distributed without the agreement (or something like it). It's their right to claim ownership. Just like if someone released GPL'd code, without the GPL license attached.
Think about it for a minute.........PLEASE
we don't provide free medical care for everyone is, actually, embarrasing....
I see you have never been or read about a country that provides free medicare. In countries like Canada or Sweden (sem-socialist), the hospitals are so over-crowded that people are coming into countries like the U.S. What does that Tell you about Socialism?? It DOESN'T WORK. Im glad we don't have it in the U.S. Welefare is ten times worse. the only people that need welfare are the mentally disabled or people that can't (not won't) work. The people that are actually getting it refuse to get jobs(I mean hey, when you get everything for free, what incentive is there to work).
Think about it....