Warning: strpos(): needle is not a string or an integer in /home/allisona/public_html/kcocco/index.php on line 31

Warning: strpos(): needle is not a string or an integer in /home/allisona/public_html/kcocco/index.php on line 37
KCOCCO ~ photo
Utah fiber to the house 15Mbps for $44! 
http://www.xmission.com/utopia/index.html

Bandwidth is a resource. 10 years ago you would pay over $3,000 for a 1 .5 Mbps (T1) connection to the internet. This latest release by Utopia in Utah will pull a fiber optic 15 Mbps connection to your house (currently free setup) for $44 per month. There is also a 30 Mbps "business" connection for $109. Wow! This is a 682 fold change in bandwidth per dollar. I sure wish the cost of gas would follow this trend. Well at least portable energy per dollar rather than me being able to by buy(and burn) 600 gallons of gas for a buck. Bandwidth was the resource that was preventing high quality on-demand communication....not any more. We should see some amazing changes in media, TV, phone, mail, music, work place, community, globalization...


  |  [ 0 trackbacks ]   |  permalink  |  related link
Coppermine Open Source Image Gallery 
Had some fun at the keyboard this morning. Installed Coppermine (coppermine.sourceforge.net ) system on server at home. Prototype research tor image management solution. The system runs on Apache, PHP, MySQL, ImageMagick. Give it a test, pls register if you like and add photo(s)....
The following is a link that forwards to my home server: http://wasatch.servebeer.com/cpg133/index.php
Thank you to my early alpha testers!
  |  [ 0 trackbacks ]   |  permalink  |  related link
Google Satellite Map 

Belize Google Satellite Map

Google has integrated satellite mapping from the acquired KeyHole into their mapping systems maps.google.com. The upper right hand of the map screen allows you to toggle between satellite pictures and road maps. It seems areas outside of the USA do not have road mapping or detailed satellite..yet. You should be able to zoom from view of entire North America down to a picture showing your home. Try the click and drag...amazing performance!

Here is a link showing Bhutan
  |  [ 0 trackbacks ]   |  permalink  |  related link
Sourceforge Open Source 
From their site: "sourceforge.net is the world's largest Open Source software development website, with the largest repository of Open Source code and applications available on the Internet. SourceForge.net provides free services to Open Source developers. "
This community is and will increasing revolutionize software development. As of today there are 98,293 registered projects and 1,046,283 users. This Blog is running with several open source programs including SPHPBLOG, Debian Linux, PHP, Apache HTTP sever...
I donated to the SPHPBLOG Sourceforge project today. The project admin has a classic approach to donations:"...This software is free, as in beer. However, beer is not free! So, for every donation of 5 USD (or more) I will purchase one beer..." Cheers! Happy to see that 10% also goes to supporting the fine work being done by Apache Foundation.
Not surprising my Sourceforge userid is kcocco. Sourgeforge provides an e-mail forwarding for developers...mine is: kcocco@users.sourceforge.net
  |  [ 0 trackbacks ]   |  permalink  |  related link
Perl Stripping 
Over the holiday Dad and I hacked a perl script that parses HTML pages from FoodNetwork.com. The goal was to get the episode numbers & names for Molto Mario recipes. Our first step was to save the index page of Mario recipes from FoodNetwork.com . We then used the Unix command wget to search the page for URL links and save the associated HTML pages into one directory. We then created a Perl script that opens each of the HTML files found in the directory and pulls out the data we needed.
Here is an example of the output(episode number, name, recipe name) now ready to load into a database:
MB2G15~Trastevere On a Sunday~Gnudi con Fiori di Zucca
MB2G15~Trastevere On a Sunday~Chicken with Sweet Peppers: Pollo con Peperoni
MB2G17~Antica Bessetta~Bigoli - Basic Recipe
MB2G17~Antica Bessetta~Bigoli Bianchi with Duck Ragu
MB2G17~Antica Bessetta~Bigoli Scuri

Here is the general script that can easily be altered to parse other shows:
#!/usr/bin/perl
####################################################################
# recipestrip.pl
# Text stripping script. Used on Foodnetwork html pages.
# 3.28.2005 K & L Cocco
#
# Program used to capture episode number & title and recipe tiles
# from html files.
# The raw html files were gathered from foodnetwork.com with wget command
# using flags -i and -F.
# example: wget -F -i capturedhtmlfile.html
#
####################################################################
use Getopt::Long;
use File::Basename;

sub trimwhitespace($)
{
my $string = shift;
$string =~ s/^s+//;
$string =~ s/s+$//;
return $string;
}

$path="/video1/mario/shows/";

opendir(SHOWS, "$path");
@Allnames = readdir(SHOWS);

open (koutputfile, ">episoderecipelist.txt") :: die ("Could not open file. $!");
foreach $Name (@Allnames) {
if (-d $Name) {next};
($show, $path, $suffix) = fileparse($Name, ".html");
if ($suffix ne ".html") {next};
#print $Name,"n";

open (inputfile, $Name) :: die ("Could not open file. <br> $!");

foreach $text (<inputfile>){
# chomp $text;
#print $text;
if ($text =~ /articleshowname/){
$stopsl = index($text,"Episode ")+8;
$lensl = index($text,"</SPAN><P") - $stopsl;
$episodenum = substr($text,$stopsl,$lensl);
#print substr($text,$stopsl,$lensl),"n";
print $episodenum,"n";
# print $text,"n";
#print "stopsl: ",$stopsl, " lensl: ",$lensl,"n";
#print "*****************************************n";
}
if ($text =~ /episodename/){
$stopsl = index($text,"name'>")+6;
$lensl = index($text,"</SPAN") - $stopsl;
$episodename = substr($text,$stopsl,$lensl);
#print substr($text,$stopsl,$lensl),"n";
#print $episodename,"n";
# print $text,"n";
#print "stopsl: ",$stopsl, " lensl: ",$lensl,"n";
#print "******************************************n";
}
if ($text =~ /recipes/recipe/){
$startsl = index($text,"html'>")+6;
$stopsl = index($text, "</a></TD>");
# captures lines with no ending tag
if ($stopsl == -1) {
$stopsl = length($text);
}
$lensl = $stopsl - $startsl;
print koutputfile trimwhitespace($episodenum)."~".trimwhitespace($episodename)."~".trimwhitespace(substr($text,$startsl,$lensl)),"n";
#print $Name,"n";
#print "stopsl: ",$stopsl, " lensl: ",$lensl,"n";
#print "******************************************";
}
}
close (inputfile);
}
print "*** Run completion ***n";
close (koutputfile);
  |  [ 0 trackbacks ]   |  permalink  |  related link

Back Next

// Google Analytics