Queries & Responses for 29 July 2005

giving him fellatio
When it comes to gifts, some say it’s the thought that counts but I think it’s really the lingual friction against the frenulum.
[close] Permanent link · http://querylog.com/q/giving+him+fellatio

Suggested HTML for linking:
Link preview: giving him fellatio
29 July 2005 · sex counselor
All terms relating to sex
You need to read some Freud and start saving for all 20 volumes of The Oxford English Dictionary.
[close] Permanent link · http://querylog.com/q/All+terms+relating+to+sex

Suggested HTML for linking:
Link preview: All terms relating to sex
29 July 2005 · sex counselor
my mother likes to fuck me
No she doesn’t. It’s just that her primary income is from making special needs welfare babies.
[close] Permanent link · http://querylog.com/q/my+mother+likes+to+fuck+me

Suggested HTML for linking:
Link preview: my mother likes to fuck me
29 July 2005 · your mother
social darwinism and social security
Dog food for seniors. Do I want seniors to eat dog food 3 meals a day? No, of course not. I don’t wish misfortune on anyone.
What about the seniors who had 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, and 2005 to save enough money and keep enough insurance to be able to enjoy their golden years but didn’t? Do I want them to eat dog food?
Hell yes. That’s not misfortune or chance. That’s fair play.
“You monster! Why should they be punished for not saving!?” you cry.
“Why should I be punished for their not having saved,” I reply. The money that Social Security pays them isn’t the money they put in—that money is long gone—it’s the money being put in today. It’s my money. The system was born bankrupt because it started paying a generation of benefits before it had a generation of tax income behind it. It would’ve gone bankrupt even if it started in the black because all government programs do.
I don’t subscribe to some, “Leave the old folks out for the wolves,” social Darwinist mentality. I subscribe to justice. The system is wrong, always was, and is exacting a price and a punishment. It is unjust to punish one for another’s mistake. It is unjust to force one to take responsibility for something another failed to do. Not providing for your own retirement is your problem, not anyone else’s.
I want to remind you. $2,000 put in a compound interest account of an 18 year-‌old without another single dollar ever being deposited would be worth $1,000,000 at retirement. A case of diced beef or chicken Alpo® with sauce is just $15 right now, though, so no real need to plan that far ahead.
[close] Permanent link · http://querylog.com/q/social+darwinism+and+social+security

Suggested HTML for linking:
Link preview: social darwinism and social security
29 July 2005 · Darwin & design
perl css cgi
Here’s a partial rundown of ways to include stylesheets in Perl CGI.
Using CGI.pm’s start_html() to embed a style <link> in the page <head>. 
print start_html(-title=>'Zen and the Art of CSS',
                 -style => { -src => '/mycss/yes.css',
                             -type => 'text/css',
                             -media => 'screen' },
                 );
Using CGI.pm’s head attribute of start_html() with many sheets in <link> tags, including an RSS link. Note the Link() function which is titlecased to avoid clashing with the perl built-‌in link. 
my @three_sheets = qw( one.css 2.css three.css );
my @head_items = map { Link({-rel => 'stylesheet',
                             -type => 'text/css',
                             -media => 'screen',
                             -src => "/css/$_"})
                      } @three_sheets;

push @head_items,
    Link({-rel => 'alternate',
          -type => 'application/rss+xml',
          -title => 'RSS',
          -href => 'http://querylog.com/feed/rss',
         });

print start_html({-head => \@head_items});
CGI.pm again, manually putting a <link> string into the head. 
my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="/css/sedly.css" />';

print start_html({-head => $css});
CGI.pm doing raw style text from DATA section inline. It could also be brought in from a file, of course. 
print
    start_html
        (-title => $title,
         -head  => style({-type => 'text/css'},
                         join('', <DATA>), # slurp __DATA__
                         )
         );

# Rest of script...

__DATA__
.element { color:#a00; padding:1ex }
.etc { ... }
CGI.pm styled element inline. 
print div({-style => 'border:1px dotted gray;'},
          'Boxed in');
CGI.pm element inline with scalar. 
my $css = 'font-size:%105;font-variant:small-caps';
print b({-style => $css},
        'The Case of the Title Case');
CGI.pm element inline with reusable hash—a hash reference is the cleanest way—of style. 
my $style = { -style => 'font-family:optima,sans-serif' };
print p($style,
        'Asdf',
        'query ' x 80);
Plain old XHTML used with Template. 
<div style="float:right">[% my_box %]</div>
Roll your own. 
print style(fontColor => '#039',
            font_family => 'helvetica,sans-serif',
            'font-weight' => 'bold');

sub style {
    my @attr = @_;
    return '' unless @attr;
    my @pairs;
    # to preserve order, matters for CSS
    while ( my ( $key, $value ) = splice(@attr,0,2) ) {
        $key =~ s/(?!\A)_/-/;                 # Hungarian
        $key =~ s/(?!\A)(\p{IsUpper})/-\l$1/; # or camel
        push @pairs, "$key:$value";
    }
    return join("; ", @pairs, "\n");
}
Printing style straight out of a here doc. 
print <<'HTMLextravaganza';
<?xml version="1.0" encoding="iso-8859-1" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"
 lang="en-US" xml:lang="en-US">
<head>
<style type="text/css" medium="screen">
/* blah, blah, blah */
</style>
</head>
HTMLextravaganza
Managing your CSS with modules. 
use CSS;
my $css = CSS->new();
my @css_files = qw( ./css/ddx.css ./css/rez.css );
$css->read_file( @css_files );
print $css->output();

use CSS::Tiny;
my $css = CSS::Tiny->read('./css/ddx.css');
$css->{'.newstyle'} = { color => '#abc' };
print $css->html();
And a somewhat expanded example of Perl CGI with CSS in the __DATA__ and as a single link in the head.
[close] Permanent link · http://querylog.com/q/perl+css+cgi

Suggested HTML for linking:
Link preview: perl css cgi
29 July 2005 · Internet & computing
The page found by the original query:
CGI with stylesheet
« previous | more »