jbodoni's Journal http://use.perl.org/~jbodoni/journal/ jbodoni's use Perl Journal en-us use Perl; is Copyright 1998-2006, Chris Nandor. Stories, comments, journals, and other submissions posted on use Perl; are Copyright their respective owners. 2012-01-25T02:31:15+00:00 pudge pudge@perl.org Technology hourly 1 1970-01-01T00:00+00:00 jbodoni's Journal http://use.perl.org/images/topics/useperl.gif http://use.perl.org/~jbodoni/journal/ Flying the colors http://use.perl.org/~jbodoni/journal/28587?from=rss <p>People are often surprised to discover that I'm a computer guy... I'm not sure why that is.</p><p>So every now and then, I try to <a href="http://viewmorepics.myspace.com/index.cfm?fuseaction=viewImage&amp;friendID=43919700&amp;imageID=379354060">give a little advance warning</a>.</p> jbodoni 2006-02-06T00:33:34+00:00 journal Lesson of the day http://use.perl.org/~jbodoni/journal/26680?from=rss <p>When preparing a bit of pasta for lunch, <b>always</b> ensure that the lid of the Parmigiano cheese container is on tightly <b>before</b> shaking said container vigorously to break up the clumps.</p><p>Ah well, I needed to clean that corner of the kitchen anyway.</p> jbodoni 2005-09-11T19:33:29+00:00 journal Nervous http://use.perl.org/~jbodoni/journal/25488?from=rss My <a href="http://www.chromasoul.com/">band</a> has our first gig tomorrow night.<p> We're nervous. The good kind of nervous, the "we can't wait to get out there and show them what we've got" sort of nervous.</p><p> A couple of beers should help relax me...</p><p> John</p> jbodoni 2005-07-03T04:16:58+00:00 journal howto: spend money http://use.perl.org/~jbodoni/journal/24583?from=rss If you seem to have extra money lying around, I have found that joining a band seems to slurp up surplus cash handily. TOO handily. jbodoni 2005-05-08T22:47:10+00:00 journal RIP HST http://use.perl.org/~jbodoni/journal/23279?from=rss Hunter S. Thompson took his own life tonight. When I saw the headline in my RSS reader, it shook me to my core.<p> My first exposure to his work was in high school. Fear And Loathing In Las Vegas rocked my world.</p><p> Evidently he was not, as many thought, too weird to die.</p><p> Farewell, Dr. Gonzo. Watch out for the bats.</p><p> John</p> jbodoni 2005-02-21T06:10:03+00:00 journal Roast Turkey in 80 Minutes http://use.perl.org/~jbodoni/journal/22011?from=rss <a href="http://www.turkeyhelp.com/high_roast_turk_cornbread.htm">http://www.turkeyhelp.com/high_roast_turk_cornbread.htm</a> <p> Sorry for not posting this prior to Thanksgiving. Think of this as being early for next year.<nobr> <wbr></nobr>:)</p><p> In my experience, this is the best combination of most easily-prepared and best-tasting turkey - especially if you can get your paws on a free-range bird.</p><p> Like so many things in life, proper preparation is the key to success. Brining is mandatory, as is the air-dry in the icebox!</p><p> Side note: We use a 1-pound rubber mallet instead of a rolling pin to whack and break the breastbone. We also use the mallet to drive a small cleaver down the sides of the backbone.</p><p> Enjoy!</p><p> John</p> jbodoni 2004-11-26T05:02:36+00:00 journal cisco softphone: one-way audio via vpn http://use.perl.org/~jbodoni/journal/20900?from=rss <p>I couldn't find this documented anywhere else, so it goes here! By golly, you can find ALL KINDS of solutions here at use.perl.org - some that might even have to do with Perl!!</p><p>keywords: cisco softphone audio firewall vpn nat</p><p>If you have one-way audio (specifically, they can hear you on your softphone but you can't hear them), check the following:</p><p>Settings -&gt; Audio -&gt; Network Audio Settings</p><p>The top group of radio buttons has three settings:</p><ul> <li>Automatic Selection (with an update button that didn't work for me)</li><li>Select Address (a dropdown menu with two IP addresses)</li><li>Specify Address</li></ul><p>On my laptop, the second button was selected (which was correct), but my wireless router's NAT IP address was chosen. Once I selected the address provided by the VPN concentrator, all was well.</p><p>I found information on Cisco's site that referenced having to open UDP ports 16384 through 32767 inclusive (HELLO!), other stuff elsewhere saying that I should change my router's config to put my laptop in the DMZ, blah blah blah. All unnecessary.</p><p>Perl Content:</p><p>I'm working with a gent from Colorado on a script that helps Novell BorderManager admins have an easier time of dealing with access control lists. He's got the code working, I'm doing a little polishing and PODding.</p> jbodoni 2004-09-16T02:15:17+00:00 journal Rich! Rich beyond the wildest dreams of avarice! http://use.perl.org/~jbodoni/journal/17450?from=rss Well... for suitably tame definitions of "wildest".<p>My evening routine includes dumping my pocket change into the change bucket. While watching some TV tonight I rolled most of that change, 'cause it's been close to a year since the last rolling.</p><p>When I got tired of rolling after almost three hours, I stopped and counted it up: a little less than $250. <em>This doesn't include the big honkin' pile of quarters I set aside because I ran out of wrappers.</em> The temptation to wallow in my new wealth was strong, but I resisted. Plus, it would have been lumpy wallowing.</p><p>My wife would like to go out to eat at our favorite place tomorrow night, which would consume somewhere between one third and one half of that amount. That sound you hear is me rolling my eyes.</p><p>With any luck, once I get back from a small moonlighting gig, and then start in on fixing the leak in her bathtub, it will be too late to go out.</p><p>Don't get me wrong - I love my wife, and love to do things that make her happy, but I'd like to see this scavenged sum get set aside for a rainy day.</p><p>Wish me luck...</p> jbodoni 2004-02-17T03:52:43+00:00 journal OS X, Siemens S56, Bluetooth, and Cingular http://use.perl.org/~jbodoni/journal/14743?from=rss Aaaarrrgh!<p> After lusting for the technology for months, I finally got a bluetooth-enable phone yesterday evening. Most of last night and today were spent trying get an education (for myself AND the unclueful folk at 1-866-CINGULAR) on how it's all supposed to work.</p><p> The connection 'twixt the laptop and phone is working; when someone calls the phone, my iBook happily asks if I'd like to answer the call or chuck it to voice mail.</p><p> The phone itself can do webful things, such as snag the weather forecast.</p><p> Nobody at Cingular seems to know what to do next... after all, everything's fine on their end!</p><p> <b>GRRRRRR!!</b> </p><p> John</p> jbodoni 2003-09-16T22:16:12+00:00 journal iBook woes? None here! http://use.perl.org/~jbodoni/journal/13453?from=rss If only to provide a data point, I feel compelled to write this.<p> My new-to-me iBook (500 mhz, 20gb, 384mb) has been a freaking blast. No hardware errors, and no software errors that I didn't generate and thereby deserved.</p><p> There's no software on the hard drive that isn't free (with the exception of the OS). Well, okay, there's a shareware game that I'll probably get tired of within a week and trash.</p><p> Hell, I even dropped it onto the sidewalk with only a small crack and a bit of abrasion to show for it.</p><p> Two weeks after purchase, I threw an Airport card in and found an inexpensive wireless router. Like Pudge, I can now write journal entries from a seated position in the "reading room".<nobr> <wbr></nobr>:)</p><p> Now that I think about it, I've never had any hardware problems with any Apple equipment I've owned. For the curious, this includes a<nobr> <wbr></nobr>//c, Imagewriter II, LC, Stylewriter I, and this laptop.</p><p> Maybe my good fortune averages out the problems that other people experience. For them, I have the following message:</p><p> THANK YOU, AND KEEP UP THE GOOD WORK!!<nobr> <wbr></nobr>:)</p> jbodoni 2003-07-15T04:21:56+00:00 journal Powerbook G3 on the way... http://use.perl.org/~jbodoni/journal/11075?from=rss So I'll be picking up G3 this week.<p>What are the first five things I should install or do? I don't have any reason to run OS9, and I've already heard about fink...</p><p>John</p> jbodoni 2003-03-17T20:34:36+00:00 journal Attn: Brian Foy re: your journal entry #9143 http://use.perl.org/~jbodoni/journal/9183?from=rss Using Google's "link" feature (link:http://use.perl.org/~brian_d_foy/journal/9114), it looks like Google hasn't found anyone that links to your journal entry.<p>And please consider enabling comments. 8)</p><p> John</p> jbodoni 2002-11-27T21:24:15+00:00 journal Doughnuts! http://use.perl.org/~jbodoni/journal/8286?from=rss The good news:<br> Krispy Kreme opened a store in my town.<p> The bad news:<br> It's within walking distance to my house!</p><p> Signed,<br> The Fat Boy</p> jbodoni 2002-10-09T23:40:30+00:00 journal Some actual Perl content: finding the previous week http://use.perl.org/~jbodoni/journal/8104?from=rss I needed to find the start and end dates for the previous calendar week, and couldn't find anything pre-rolled, so here's what I came up with, which populates $startdate and $enddate. It'll be posted on perlmonks, but I wanted to show it here too. Does anyone have anything better, or any suggestions on how I can improve this?<p> Please be gentle, this is the first of my code I've posted for public consumption. 8)</p><blockquote><div><p> <tt>{<br>&nbsp; &nbsp; #&nbsp; &nbsp; 0&nbsp; &nbsp; 1&nbsp; &nbsp; 2&nbsp; &nbsp; &nbsp;3&nbsp; &nbsp; &nbsp;4&nbsp; &nbsp; 5&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp; &nbsp;7&nbsp; &nbsp; &nbsp;8<br>&nbsp; &nbsp; # ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);<br>&nbsp; &nbsp; my $wday = (localtime(time()))[6] + 1;<br>&nbsp; &nbsp; # how many days into the current week are we?<br> <br>&nbsp; &nbsp; my $endseconds&nbsp; &nbsp;= time()&nbsp; &nbsp; &nbsp; - ($wday * 24 * 60 * 60);<br>&nbsp; &nbsp; # subtract that many days from today.&nbsp; this tells us when Saturday (of the previous calendar week) was<br> <br>&nbsp; &nbsp; my $startseconds = $endseconds - (6&nbsp; &nbsp; &nbsp;* 24 * 60 * 60);<br>&nbsp; &nbsp; # six days before that was the Sunday we're interested in<br> <br>&nbsp; &nbsp; my $year&nbsp; = (localtime($startseconds))[5] + 1900;<br>&nbsp; &nbsp; my $month = (localtime($startseconds))[4] + 1;<br>&nbsp; &nbsp; my $day&nbsp; &nbsp;= (localtime($startseconds))[3];<br>&nbsp; &nbsp; if (length($month) &lt; 2) {$month = "0$month"}<br>&nbsp; &nbsp; if (length($day)&nbsp; &nbsp;&lt; 2) {$day&nbsp; &nbsp;= "0$day"}<br>&nbsp; &nbsp; $startdate = "$year$month$day";<br> <br>&nbsp; &nbsp; $year&nbsp; = (localtime($endseconds))[5] + 1900;<br>&nbsp; &nbsp; $month = (localtime($endseconds))[4] + 1;<br>&nbsp; &nbsp; $day&nbsp; &nbsp;= (localtime($endseconds))[3];<br>&nbsp; &nbsp; if (length($month) &lt; 2) {$month = "0$month"}<br>&nbsp; &nbsp; if (length($day)&nbsp; &nbsp;&lt; 2) {$day&nbsp; &nbsp;= "0$day"}<br>&nbsp; &nbsp; $enddate = "$year$month$day";<br>}</tt></p></div> </blockquote> jbodoni 2002-09-30T18:48:14+00:00 journal The passing of a friend http://use.perl.org/~jbodoni/journal/8085?from=rss No Perl content on this one. 8(<p> My buddy Tim died last night, succeeding at the task of drinking himself to death.</p><p> It's ironic, considering that when I met him, I bought him a beer. "You'll see," he said. "I never forget anyone that buys me a beer." That was true enough, but the corollary was even more true.</p><p> You see, anyone that bought Tim a beer will never forget him. A true friend, a wonderful musician, a joy to be around. It's heartbreaking that so many bad things happened to him in the last year that he was unable to rally and climb up out of the bottle. Thank goodness we've got his music to remember him by.</p><p> RIP Tim "Mad Dog" Layman 1966-2002</p> jbodoni 2002-09-30T01:22:07+00:00 journal The best intentions are sometimes thwarted... http://use.perl.org/~jbodoni/journal/7989?from=rss ...by new hardware.<p> The reports for High Priority and After Hours calls are done, then the new flat panel display showed up. It's one of the smaller ones (only 15"), but it took me about an hour to clean off my desk, relocate my two machines to a shelf above my desk, throw away a bunch of old literature, and generally clean stuff up.</p><p> By the time I left, all that was on my desk was my phone, monitor, keyboard, mouse, and a small pile of papers. Then (of course!) it was time to drive home.</p><p> Gotta break up the "current report" page into sections, just gotta. It turns out the CIO detests scrolling.</p><p> The next ORA book to be added to my collection will be the new Friedl effort, Mastering Regular Expressions. I've just about worn out the library's copy. 8)</p><p> G'night.</p> jbodoni 2002-09-25T04:26:11+00:00 journal Introduction http://use.perl.org/~jbodoni/journal/7960?from=rss Hiya.<p> What's important to know about me, in this context? Let's see...</p><p> <i>(Playing right now: Linkin Park "In The End". What a great song. I normally don't care much for 'spoken word' art, but these guys strike a great balance between the spoken and the sung lyrics. Driving rythm, sweeping guitar chords, and a simple keyboard floating above it all.)</i> </p><p> First should be that Perl makes me code with a grin on my face. That hasn't happened since... well, since I opened the shrinkwrap on the first HyperCard that hit the shelf in my town.</p><p> Second, I'm new - painfully so - to all things Perl. Granted, TMTOWTDI, but my way usually seems to be the WRONG way! I write code the wrong wrong way, make stupid mistakes, re-invent the wheel rather than use modules from CPAN, etc. Fortunately, as I learn more I'm able to go back to the programs I've written and re-work them.</p><p> Third,<nobr> <wbr></nobr>... I dunno. I guess it's also important to know that I need my sleep. It's starting to get late. 8) What would you like to know?</p><p> Goals for tomorrow, while I'm still coherent: </p><ul> <li>Try to figure out why, oh why, does the web server not want to run my ODBC query? There will be much wailing and gnashing of teeth before this is over, I'm sure.</li><li>Make the weekly report generator dump out a page for my use that contains EndUser, RequestDate, ShortDescription, Body, and ResolutionText for all high priority calls.</li><li>Ditto for the after hours calls.</li><li>Consider breaking up the "Current Queue Report" into different sections, with hyperlinks to each section</li><li>Figure out how to use one of the "Date" modules to provide me with the start date and end date of the previous calendar week.</li><li>Start using CGI.pm, dammit!</li></ul><p> <i>(Playing right now: Joe Satriani "Circles". Satch just plain rocks. Note to self: beat the hell out of the CD player in my car until it works again, so I can listen to "Surfing With The Alien" with the top down before winter!)</i> </p><p> G'night all.</p><p> John</p> jbodoni 2002-09-24T04:17:08+00:00 journal