|
 Today
| ||||
| ||||
 Sponsored Links |
|
10-06-2005, 04:47:37
| |||
| |||
 Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction  utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein  |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
|
10-06-2005, 04:47:37
| |||
| |||
| Re: Invocar HTML desde CGI master.soccer***gmail.com writes: > Alguien sabe como es posible llamar desde un CGI una página Web y > luego analizar el resultado para desplegar un mensaje de OK o FALLO, > según el resultado obtenido como salida del HTML. Un CGI es un programa como cualquier otro. Puedes hacer todo lo que quieras en un programa. Por ejemplo el siguiente cgi me da, con: http://localhost/cgi/demo.cgi?q=http...ch%3Fq%3Dparis <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=paris</p> <p>El resultado es : OK</p> </body></html> y con: http://localhost/cgi/demo.cgi?q=http...h%3Fq%3Dmadrid <html><head><title>Resultado</title></head><body> <form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form> <p>http://www.google.com/search?q=madrid</p> <p>El resultado es : FALLO</p> </body></html> -----(demo.cgi)--------------------------------------------------------- #!/usr/bin/clisp -q -ansi -norc -K full -E iso-8859-1 ;; -*- mode:lisp -*- (format t "Content-type: text/html~3%") (finish-output) (format t "<html><head><title>Resultado</title></head><body>~%") (DEFUN QUERY-UNESCAPE (QPART) " RETURN: A string where the + are replaced by spaces and the %HL are replaced by the caracter whose code is HL in hexadecimal. " (DO ((RESULT (MAKE-STRING (LENGTH QPART))) (I 0) (J 0)) ((<= (LENGTH QPART) I) (SUBSEQ RESULT 0 J)) (COND ((CHAR= (CHARACTER "+") (CHAR QPART I)) (SETF (CHAR RESULT J) (CHARACTER " ")) (INCF J) (INCF I)) ((AND (CHAR= (CHARACTER "%") (CHAR QPART I)) (< (+ I 2) (LENGTH QPART))) (LET ((CODE (PARSE-INTEGER QPART :START (+ I 1) :END (+ I 3) :RADIX 16))) (COND ((NULL CODE) (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I)) ((= 13 CODE) (INCF I 3)) (T (SETF (CHAR RESULT J) (CODE-CHAR CODE)) (INCF J) (INCF I 3))) )) (T (SETF (CHAR RESULT J) (CHAR QPART I)) (INCF J) (INCF I))))) (format t "<form method=GET action=demo.cgi> <p>URL: </p><input type=text name=q size=100></input> </form>~%") (let* ((q (ext:getenv "QUERY_STRING")) (p (when q (position (character "=") q)))) (when p (let ((result)) (format t "<p>~A</p>~%" (query-unescape (subseq q (1+ p)))) (with-open-file (out "/tmp/test.html" :direction utput:if-does-not-exist :create :if-exists :supersede) (with-open-stream (html (ext:run-program "lynx" :arguments (list "-source" (query-unescape (subseq q (1+ p)))) utput :stream))(loop for line = (read-line html nil nil) while line do (format out "~A~%" line) (when (regexp:match "Paris" line) (return (setf result t)))))) (format t "<p>El resultado es : ~:[FALLO~;OK~]</p>~%" result)))) (format t "</body></html>~%") (finish-output) (sleep 1) (ext:exit 0) ------------------------------------------------------------------------ -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein |
| |
| |
 |
| Herramientas | |
| Desplegado | |
| |
Temas Similares | ||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Invocar reporte desde un WebServices o ASPX | Carlos Hidalgo | Newsgroup microsoft.public.es.dotnet.aspnet | 5 | 11-01-2008 13:21:22 |
| Es posible invocar un ASP desde un tag IMG??? | Manuel Vera | Newsgroup microsoft.public.es.asp | 0 | 18-05-2007 19:09:48 |
| Invocar una página desde la IP del equipo | FGF | Newsgroup microsoft.public.es.vc | 0 | 12-12-2006 11:48:14 |
| Invocar Submit desde Java Script | Oswaldo | Newsgroup microsoft.public.es.java | 0 | 03-03-2006 19:07:28 |
| Invocar página web desde CGI | master.soccer@gmail.com | Newsgroup es.comp.lenguajes.c | 6 | 10-06-2005 07:23:50 |
Mode Lineal
