File : dynamic_css.sp
$ spar dynamic_css.sp
Content-type: text/css
body {
margin: 0;
padding: 0;
background-color: #FFFFFF;
font: 12px arial;
}
|
#!/usr/local/bin/spar
procedure dynamic_css is
pragma annotate( summary, "dynamic_css" )
@( description, "A simple example of dynamically generating CSS." )
@( description, "One way to run this script is to include it in" )
@( description, "a link tag." )
@( author, "Ken O. Burtch" );
pragma license( public_domain );
-- Example usage:
--
-- <html>
-- <head>
-- <link rel="stylesheet" href="cgi-bin/dynamic_css.sp">
-- </head>
-- <body>
-- <p>This is a test</p>
-- </body>
-- </html>
pragma restriction( no_external_commands );
-- CSS Substitution Variables
color : constant string := "#FFFFFF";
normal_font : constant string := "12px arial";
begin
-- HTTP Header
put( "Content-type: text/css" & ASCII.CR & ASCII.LF )
@( ASCII.CR & ASCII.LF );
-- CSS Content
? "body {";
@ " margin: 0;"
@ " padding: 0;"
@ " background-color: " & color & ";"
@ " font: " & normal_font & ";"
@ "}";
end dynamic_css;
-- VIM editor formatting instructions
-- vim: ft=spar