From 85a16d2e0d0eb9da1e6118dc06bc079caef8e561 Mon Sep 17 00:00:00 2001 From: Emin Arslan Date: Sat, 29 Mar 2025 21:59:47 +0300 Subject: [PATCH] Initial commit with work so far. --- bin/6625c400-0ccf-11f0-8230-eb390952483c | 1 + main.fasl | Bin 0 -> 10039 bytes main.lisp | 88 +++++++++++++++++++++++ main.lisp~ | 71 ++++++++++++++++++ paste.html | 47 ++++++++++++ paste.html~ | 47 ++++++++++++ root.html | 52 ++++++++++++++ root.html~ | 44 ++++++++++++ 8 files changed, 350 insertions(+) create mode 100644 bin/6625c400-0ccf-11f0-8230-eb390952483c create mode 100644 main.fasl create mode 100644 main.lisp create mode 100644 main.lisp~ create mode 100644 paste.html create mode 100644 paste.html~ create mode 100644 root.html create mode 100644 root.html~ diff --git a/bin/6625c400-0ccf-11f0-8230-eb390952483c b/bin/6625c400-0ccf-11f0-8230-eb390952483c new file mode 100644 index 0000000..2699a20 --- /dev/null +++ b/bin/6625c400-0ccf-11f0-8230-eb390952483c @@ -0,0 +1 @@ +hello world!!!! \ No newline at end of file diff --git a/main.fasl b/main.fasl new file mode 100644 index 0000000000000000000000000000000000000000..a56ea7dd865b5b9cb27d56b68d274ebbd77da8ff GIT binary patch literal 10039 zcmeHNdvqJsnV&nlcdVB!DY2ad$FZ!~dDzHGAciy$nz3eViAW<^8YQ8dmWo)|CbktU zDZqiWb`%3p2PtA|qHgf)cl3Q0KN{q7yf zmK}$1cIj^aU=q*$bl>-W_xs)NF|(^ZnN+Xmiq0NS>WVd8PPaR?rnhrl+C1CYEJg!n zr*loRdtGN&qRn|_Z?fCz@^mD-6P}Lvweha_!d{P*NUcpL*LlLd$@boOcXww`yC=|@ zTIX38Po)#ktvlTTdDnTmlrd<2 zsf2k%;5cs8;tSjtEK-1?PYL{uuT=>-^IBxZ+v0`J+^R1kixQ<`ir*WOIv^xiRE@{NPU)tQ) zXRmF)7!6bidxQZy*&}Q+8~?yL`DrN*BE)Snj=_H3Gqw)r0s&< zL>w3g>~nT?$CC}tcvmXvY)d**z(nVoj>MX^sRrjY3CQZ1n|59k?@2oY&3+PeG{+RL z>JKS~eiAg)Wl4SI4igr$+HSJIOo;2} zXffS#j(6?i2%;380_0IjaY08o6!p{DxwddGu`FzW())F?0&;&omYdYcGN^DFBcmob zApv;1k==3d~&H)TIb828u8hr z6{zo&DeXA}du>gBdw3e+!t6X0?C;?j({p1{R?cOcdoJDFYEq{o$LMO*^GO}R$_m(C zd6f!BSq!*ENs7qPXdOlg+#A2fLlj3IX_Tn}zp~uz3k7Ax!N?}RlA|KxN_9q_S8N!{ zEVTfaKH|*`mv$L)xU?6TR7Y`Xp#gAdCWcoBfYX4t2wq`+o5{d!Gw^7ef$-Z5MF#U2 zIMw4v`4@M-@y6S`-Y2*bn}M(OH+hnlI)a?xE^iP-Bkj=%slY=C7j z0G{W|o*01vmZ6KG|NnwX0)m z4?vyCSF>@fqg`Lp5$)you%=_|RQt5X4Xm;ZSSTO!X=FY9IS4;BlG4dP)1l#Km;UpK zz@Yrd{!$oioHRHO&&d6U682EgnaAW}Dab{_(vj(bJFF+2Or}Y~l8C3SbN41Q=|qYo zNZVDJt~gv|VNvxdVo(lVSSQKNVhk`ppXJVFfXsL>=R$oHiaBmAS-_J-c}F_EZi&a! zm0T0=>PV*2OBOF!yud?LM_%;mXdBMJ+F*&cG4;Ys8amS5T>wt3$HG!GQ;BlL4XiP} z5#Va0jp3YEgGf|iH@>8;1XL<#S7Lpl3$%;gZbC&e@lf}?-+4ZFcE84R&mAh8zH_hP z7aLyXPR;p`zr6I>&pzk2K7Rjix;x)08LpK-_{+b%`@7FxuY8r<^ZK7241DXn`g`wx ze(zJQzqz~H{r-1mU7LOT&d{#gp2&9oaZ&l}7CpmqPC7Chon`7Tac02}AOTRuT^dX}%gRB73vmD-=Ge#<+R{g{K(BNXWaO-s zUOj82g-_rXYk=lV^wfyh)%?x{nkiE5ckss`Uf4k zISo*`)t27KlE$0p-~|9PeuP|;tMn#oAvwq{zq2*)(_ZOmnRMPh?NqMg`K;r{I$Hf~ zeHMSkKHvMCuCMVZBwx~}wv^S=+4K~xTcF@g*aU6qleAC0?w+&N-91)!`FE$0_=!By4l&XjfaubmyH%PQEBu%JrzEUR1-cUrO z)0t4VXo%n|@S32dH5O83)kLWBxRKxl?n!W@p8(m8dw57XagQQ^2m`qmr*9#ES%8tn zJFHa4tdeUjoN=0x!!jHO6>=1{K>ORtUCOpgop!mbL}L-K$zU>$l2y1+m_@3F6+F5S z!;MzKrS+gL!ngz+)gdzsc!c=E_ z)u)KK-Z=_0f`{Tbjua}rZ?YKy67S+3WTaXd2PILFy=v}EI2>E}aXPTR29BG=@HrjQ z$o(+vDAbIEKW9LueF$pCkDx@>e4m6g>wJIq!Y_aIPA1`3fPXIoJS)t0)UQLgA4{4UBsOh_Ww9&zV!VW$K$sEr_#MTmmX4X*r(|US|WfVBi`}!uHRuCt$N6 zYOYkT<|inzOV|*&+F=ThJ9+sTOm2TnE8O>mPZsD*`F3M4FvR9OfbgxTvvVox!B4X%Nz5uGCOx(W>--;S;)GK3OT@V--d$Xa@n01{!x1m?%gVVF`JRY>>GE2 zCRv3~d+PwL&e%3VTv#{sMdhZR?fe~V726R=4*ovAg2!uG+i;@wO5EPsfje8T!fRW* zbmYK2s)aBs27rO0h5@`Z1pgRq%wY%Kj2MhuV;8oc1{$ytW1w-}nBe5`0^jiW$B19C zwf>r|wGZLD5Z;Tv27Ivo&+q|nLf;^Qlb*)0XABYUVZ6EvQAnWf4e;cV_H$8FrIi}Y zGkshVW2DR!+Al-{7T&7c!Bsjq+=WyFQTjo(x8a)+ZafVfBsL;$beO*XRlxx~Q5h#i z2T+gT2GX5S+KYK9o79oRbOs&Z_Oa#MgYbR|7XJ!h0n#!NEQ-$t7Wj7b_eFz;*fbA* zH8dz9;NZw(0k}m7epttX-N=q_KMet3b^q@O@HAWBGkF9!gz&Rp2Lcp-g8;fV@^$J2 zFECymIvoLuCqsbZaR>m6y$>2P@fXe{{=)yA_`k~5@&dxIQStvzD*k7^Y>S8@>*AFH z%{sa}4K-T0H!1gzvAK)~K*3wld&ODX*dyAB3ZP z;FAG!P@VcQs-q?*7_fE0*>zD>R3tGXxxticl&hNs{Ve3JdKd!iuzDL90*-#Zk3Vj;T8j+*R-(@S z7}3ZD7=qxG%z40q#Z94@B868Q#;gTbdlnI@575X3V%{eF1-)k9*Oi3NC{3Ni;7mM) zpw4rQ4$fE^@k8JGf+1V?f(0#Mh{$>2_ZGd$CLWr%>-2F1j;ZGZ;mK=C*-rge~QU~Wm;GBEh?JU=+GCF;Z$`%ai_1Jt!7GNUV~<=jjsM*=p< zT1$rl=WxzVUiLj|y+M>K03or{O}799sihF1%4N|==I8B z@Hp^_DIAKZ;G1a(FK8Gb_+}n!yxpMdTsG>=5Q?ej5iJ9*e3 zT)dUqoqF(c2}IBzMdvlgudXX?>h7%#wM`jBH=~rre%zX!a^Li~r*Cu(PVYZQnr4_$ zRP5m^Zz-LM`mKE~zONj%E?B`#Z@)qT&nv5zj}hC);Ed)_#4G3EPmiMOaZcAk5$>|fnR+Wr@Pwm0Ie`bugt(Ahd~T1 zKBj$ezCO90vop+S=Vdj))jaUu+B~At)X|JR`>;LrSONZL-fH=`hzU;8D{v2f} zaED!9_((`AMap0)_Gce4LJ6Na3X!zevnTNlVBu`|bK2}1%sexUDgOAhlfI$V51t4N zUH*mt(^vLEs5yMV`EBqtQ19HbjZB<}h>2F25_@|1N{;AQQeGCUKYMcqO zogseh#bJlP{|h>2`s?XogI_xo9C+miPhV`x2sDy6T;l6LNqfzFaM;BiuFgYWP}@OU z`LmxX{=!D3P>Pp9ImcKYP(grrf6;^F4ah-2XORgm?%q;sQgfkbiJ0IK-V$d9p}%$pj0N z2C}J@tb09w#c-nqz6gk_p>ToN*XUlf*-huerxwPF7c>j5|yS^$UhR0mMQzQ8@^WyDnLPzm+b4!@uPnmX2`-^d$Z$i0WTJ?dCiW zVXbG1>gykD6gb^R!}jzFn8U7s``C)N^DtrjYaahQuLJtb9oBaE=D}l=XW5#~HrZuw zHtWl@S8Yal2V8-}b|?2keGxQt7R`|k`_A!SDX@Haoy|k5Ej<96n7iu!8OXx>5LR9o zd(xI}AFF%)m)6bSq4{Yr&d+E2u#fG-ejY3dZuB#%ddF^#tK^n&tz4F?MHitKel!1? z!HWmT6T~P4gtvr;iwNIC7GQ$#Lwv~taMwU`ub%u;Pj1zdteyaz(<;My@`|23uP1-f olLz(W0X_Mxp4_b`+w|l|dXm+X>sgm7dtc1n_3V8PT6U2CZyyF%u>b%7 literal 0 HcmV?d00001 diff --git a/main.lisp b/main.lisp new file mode 100644 index 0000000..3180043 --- /dev/null +++ b/main.lisp @@ -0,0 +1,88 @@ + +(ql:quickload "hunchentoot") +(ql:quickload "easy-routes") +(ql:quickload "djula") +(ql:quickload "frugal-uuid") + +(setf *default-pathname-defaults* (uiop:getcwd)) + +;;;; if you're gonna run a public instance, change to the url other people +;;;; will use to connect! +(defvar *server-external-address* "http://localhost:8080/") +(defvar *server* nil) + +;; we probably don't actually need a template for the root, +;; it's more or less static anyhow. +;; i guess retrieving a paste is the only place that actually needs +;; the dynamic templating thingy + +(defparameter *root-template* + (uiop:read-file-string "root.html")) + +(defparameter *paste-template* + (uiop:read-file-string "paste.html")) + +;; google code +;; holy hell, actual business logic + +(defun get-paste-contents (id) + "read file lmao. also do some checks. we don't want LFI" + (let ((path (probe-file (concatenate 'string "bin/" id)))) + (if (and path + (not (search "." id)) + (not (search "/" id))) + (uiop:read-file-string path) + nil))) + + + +(defun render-root () + (djula:render-template* + (djula:compile-string *root-template*) + nil)) +(defun render-paste (id) + (djula:render-template* + (djula:compile-string *paste-template*) + nil + :contents (or (get-paste-contents id) "err: paste not found") + :link-home *server-external-address* + :link-bin (concatenate 'string *server-external-address* "bin/" id) + :link-raw (concatenate 'string *server-external-address* "raw/" id))) + +(defun new-paste-file () + (let ((id (fuuid:to-string (fuuid:make-v1)))) + (if (get-paste-contents id) + (new-paste-file) + id))) + +(defun create-new-paste (contents) + "Returns the url to the new paste" + (let ((path (new-paste-file))) + (with-open-file (s (concatenate 'string "bin/" path) :direction :output) + (princ contents s)) + path)) + + +(easy-routes:defroute root ("/" :method :get) () + (render-root)) + +(easy-routes:defroute paste ("/bin/:n") () + (render-paste n)) + +(easy-routes:defroute raw ("/raw/:n") () + (get-paste-contents n)) + +;; todo: handle new pastes TODO: doesn't work, fix. +(easy-routes:defroute new ("/new" :method :post) (content) + (let ((path (create-new-paste content))) + (format t "created new bin ~a~%" path) + (hunchentoot:redirect (concatenate 'string "/bin/" path)))) + + +(defun start-server (&key (port 8080)) + (format t "Starting server on port ~a~%" port) + (force-output) + (setf *server* (make-instance 'easy-routes:easy-routes-acceptor :port port)) + (hunchentoot:start *server*)) +(defun stop-server () + (hunchentoot:stop *server*)) diff --git a/main.lisp~ b/main.lisp~ new file mode 100644 index 0000000..e8bfe1b --- /dev/null +++ b/main.lisp~ @@ -0,0 +1,71 @@ + +(ql:quickload "hunchentoot") +(ql:quickload "easy-routes") +(ql:quickload "djula") + +(setf *default-pathname-defaults* (uiop:getcwd)) + +;;;; if you're gonna run a public instance, change to the url other people +;;;; will use to connect! +(defvar *server-external-address* "http://localhost:8080/") +(defvar *server* nil) + +;; we probably don't actually need a template for the root, +;; it's more or less static anyhow. +;; i guess retrieving a paste is the only place that actually needs +;; the dynamic templating thingy + +(defparameter *root-template* + (uiop:read-file-string "root.html")) + +(defparameter *paste-template* + (uiop:read-file-string "paste.html")) + +;; google code +;; holy hell, actual business logic + +(defun get-paste-contents (id) + "read file lmao. also do some checks. we don't want LFI" + (let ((path (probe-file (concatenate 'string "bin/" id)))) + (if (and path + (not (search "." id)) + (not (search "/" id))) + (uiop:read-file-string path) + "err: bin not found"))) + + + +(defun render-root () + (djula:render-template* + (djula:compile-string *root-template*) + nil)) +(defun render-paste (id) + (djula:render-template* + (djula:compile-string *paste-template*) + nil + :contents (get-paste-contents id) + :link-home *server-external-address* + :link-bin (concatenate 'string *server-external-address* "bin/" id) + :link-raw (concatenate 'string *server-external-address* "raw/" id))) + +(easy-routes:defroute root ("/" :method :get) () + (render-root)) + +(easy-routes:defroute paste ("/bin/:n") () + (render-paste n)) + +(easy-routes:defroute raw ("/raw/:n") () + (get-paste-contents n)) + +;; todo: handle new pastes TODO: doesn't work, fix. +(easy-routes:defroute new ("/" :method :post) (content) + (format t "got somethin: ~a ~%" content)) + + +(defun start-server (&key (port 8080)) + (format t "Starting server on port ~a~%" port) + (force-output) + (setf *server* (make-instance 'easy-routes:easy-routes-acceptor :port port)) + (hunchentoot:start *server*)) +(defun stop-server () + (hunchentoot:stop *server*)) diff --git a/paste.html b/paste.html new file mode 100644 index 0000000..7554f65 --- /dev/null +++ b/paste.html @@ -0,0 +1,47 @@ + + + bin + + + + +
+ home + bin + raw +
+
+
+ 
{{ contents }}
+
+ + + diff --git a/paste.html~ b/paste.html~ new file mode 100644 index 0000000..7554f65 --- /dev/null +++ b/paste.html~ @@ -0,0 +1,47 @@ + + + bin + + + + +
+ home + bin + raw +
+
+
+ 
{{ contents }}
+
+ + + diff --git a/root.html b/root.html new file mode 100644 index 0000000..a14cee8 --- /dev/null +++ b/root.html @@ -0,0 +1,52 @@ + + + lispy pasty thingy + + + + + +
+

Lispy paste

+ +
+

New Paste:


+
+ +
+
+ + diff --git a/root.html~ b/root.html~ new file mode 100644 index 0000000..1e90460 --- /dev/null +++ b/root.html~ @@ -0,0 +1,44 @@ + + + lispy pasty thingy + + + + + +
+

Lispy paste

+ +
+ + +