#!/usr/bin/perl use CGI; require 'globalvars.pl'; $query = new CGI; if ($query->param('what') eq "head") { $loc = $query->param('loc'); $bottom = $loc . '_bottom.gif'; $top = $loc . '_top.gif'; $header2 =~ s/topHeader/$top/; $header2 =~ s/bottomHeader/$bottom/; $header =~ s/replaceTitle/$loc/; $nav = '$nav' . $loc; $navPrint = $nav; print "Content-type: text/html\n\n"; print $header; eval "print $navPrint;"; print $header2; } if ($query->param('what') eq "foot") { print "Content-type: text/html\n\n"; print $footer; }

Michael West is Vice President and Program Manager, Cloud Research Board, Saugatuck Technology. A former Practice Manager at the Corporate Executive Board (CEB) and a leading industry analyst with Gartner, Mr. West has researched a wide range of information technologies, advising thousands of client companies and consulting to hundreds of leading vendors and IT groups in over two dozen countries worldwide.

Mr. West is a frequent speaker at conferences and other industry events on a wide range of topics concerning technology and business strategy. His current focus is Cloud Computing, Cloud Infrastructure, Infrastructure as a Service (IaaS), IT as a Service (ITaaS), Platform as a Service (PaaS) and Software as a Service (SaaS). He has written and presented research on information management, data administration, applications development, object technology, client/server architectures, user interface and usability strategies, web site development and Internet applications, network computing, electronic commerce, portals, hubs, communities and marketplaces, and competitive eBusiness strategies, utility computing, and while at CEB, information security and regulatory compliance.

Mr. West has an AB from Williams College, an MA from Johns Hopkins University and an MBA from the Boston College. He has taught in the MBA program at at Boston College and in the MBA Program at the University of California at Berkeley.

Mr. West can be reached via e-mail at info@mwest.com.

back

#!/usr/bin/perl use CGI; require 'globalvars.pl'; $query = new CGI; if ($query->param('what') eq "head") { $loc = $query->param('loc'); $bottom = $loc . '_bottom.gif'; $top = $loc . '_top.gif'; $header2 =~ s/topHeader/$top/; $header2 =~ s/bottomHeader/$bottom/; $header =~ s/replaceTitle/$loc/; $nav = '$nav' . $loc; $navPrint = $nav; print "Content-type: text/html\n\n"; print $header; eval "print $navPrint;"; print $header2; } if ($query->param('what') eq "foot") { print "Content-type: text/html\n\n"; print $footer; }