HAI
MUST HAS STDIO
VISIBLE "HAI WORLD!"
VISIBLE ""
VISIBLE "
"
VISIBLE ""
I HAS COLOR1
I HAS COLOR2 IZ GREEN
COLOR1 IZ RED
VISIBLE "LOL CODE IS TEH COOL
Colors
"
BTW THIS IS A COMMENT
BTW THIS FUNC IS NAMED UPPING
SO IM LIKE UPPING WITH VAR VAR2=0
VAR UPUP!
I FOUND MAH VAR
KTHX
VISIBLE "FOUR UP? ITZA ".UPPING(4)
VISIBLE "
"
IVAR IZ 1
IVAR UPUP!
IVAR UPUP!
IZ &IVAR& == 1
BTW IF
VISIBLE "YEAH RLY"
VISIBLE "
"
ORLY &IVAR& == 2
BTW ELSEIF
VISIBLE "ORLY"
VISIBLE "
"
NOWAI
BTW ELSE
VISIBLE "NOWAI"
VISIBLE "
"
KTHX
ALWAYZ SKY IZ BLUE
VISIBLE __SKY__
NEWVAR IZ UPPING(3)
VISIBLE "
What is 2+2? &NEWVAR&
"
ARRAY IZ BUCKET
0 FISH "zero" !!
1 FISH "one" !!
two FISH "two" !!
three FISH IZ BAG
!! FISH "three" !!
BAG
BUCKET
BTW!
array (0=>'zero',1=>'one','two'=>'two','three'=>array('three'))
!BTW
VISIBLE "How many fish in bag three?
"
VISIBLE &ARRAY#three,0&
VISIBLE "
"
THEVAR IZ GOLD
VARNAME IZ THEVAR
VISIBLE &&VARNAME&&
VISIBLE "
"
CAN HAS SQL?
DBASE IZ GETDB('lolz.db')
FUNNAHS IZ DBUCKET(&DBASE&,"CAN I PLZ GET joke ALL UP IN funnahs")
IM IN UR FUNNAHS ITZA JOKE
VISIBLE "".NL2BR(&JOKE#joke&)."
"
KTHX
VISIBLE "ROFLROFL KTHXBYE"
BTW Diz iz commentz code
VISIBLE "
"
VISIBLE " Comments: (script written in LOLCODE)
"
I HAS PAGE IZ $_GET["page"]
IZ !&PAGE&
PAGE IZ 'index'
KTHX
I HAS TABLE IZ "lol_".&PAGE&
I HAS COMMENT IZ $_POST["commentz"]
I HAS USER IZ $_POST["omguser"]
I HAS SPAM IZ $_POST["maps"]
I HAS COMMENTTEXT IZ "COMMENT HURR, REMEMBR, CEILING CAT WATCHES U"
I HAS DB IZ 'comments.db'
DEEBEE IZ GETDB(&DB&)
SO IM LIKE ADDCOMMENTTODB WITH COMMENT NAME
global &DEEBEE&;
global &TABLE&;
DODIZ(&DEEBEE&, "LEMME PUT INTO ".&TABLE&." (name,comment) THESE ('&NAME&','&COMMENT&')" );
KTHX
SO IM LIKE IZVALID WITH COMMENT NAME
I HAS TRUE IZ 1
I HAS FALSE IZ 0
I HAS REGEX IZ "/<\sa\s[^>]*>.*<\s\/\sa\s>/i"
IZ preg_match(®EX&,&COMMENT&) or preg_match(®EX&,&NAME&)
VISIBLE ""
VISIBLE "AKK! your comment got lolpwned"
I FOUND MAH FALSE
KTHX
I FOUND MAH TRUE
KTHX
SO IM LIKE VALIDATE WITH TEXT
&TEXT&=strip_tags(&TEXT&);
&TEXT&=htmlspecialchars(&TEXT&);
I FOUND MAH &TEXT&
KTHX
IZ $COMMENT AND $COMMENT != $COMMENTTEXT
IZ $USER
IZ !$SPAM
IZ IZVALID(&COMMENT&,&NAME&)
BTW VISIBLE "
YER COMMENT WAS: ".$COMMENT.", AND YER NAME IS: ".$USER
ADDCOMMENTTODB(VALIDATE(&COMMENT&),VALIDATE(&USER&));
KTHX
KTHX
KTHX
KTHX
COMMENTZ IZ DBUCKET(&DEEBEE&,"CAN I PLZ GET * ALL UP IN ".$TABLE)
IM IN UR COMMENTZ ITZA COMMENT
VISIBLE "Name: ".&COMMENT#name&.":
".NL2BR(&COMMENT#comment&)."
"
KTHX
VISIBLE "
"
VISIBLE "Because of a select few lolcats, no tags at all are allowed, and if your comment contains a link, it will be thrown out. sorry... really... :-\\"
VISIBLE ''
BTW this is counter code
I HAS COUNTER IZ 0
I HAS COUNTERDB IZ "counter.db"
I HAS CEEDEEBEE IZ GETDB(&COUNTERDB&)
I HAS COUNTERZ IZ DBUCKET(&CEEDEEBEE&,"CAN I PLZ GET * ALL UP IN COUNTER WHERE page='&TABLE&'")
COUNTER IZ &COUNTERZ&[0]['count']
VISIBLE "
ZOMFG, MORE THAN $COUNTER PPLZ HAVE BEEN LOLCATTED
"
COUNTER IZ (int)&COUNTER&
COUNTER UPUP!
BTW This upups the deebee. duh.
DODIZ(&CEEDEEBEE&, "UPDATE COUNTER SET count=&COUNTER& WHERE page='&TABLE&'" );
KTHXBYE