<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 10 (filtered)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Verdana;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p
{margin-right:0in;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'>Hooray! I now have a PAUSE ID and will soon be a
CPAN author (if all testing goes well).</span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'><a href="http://search.cpan.org/~jfluhmann/">http://search.cpan.org/~jfluhmann/</a></span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'>The first module I’m putting up is a Win32 IIS admin
module. When I worked in Student Activities at </span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'>Texas</span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'> </span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'>A&M</span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'> </span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'>University</span></font><font
size=2 face=Verdana><span style='font-size:10.0pt;font-family:Verdana'>, I
maintained the servers that supported the student organization web
accounts. The servers were Windows 2000 & 2003 (IIS 5 & IIS 6,
respectively). The ‘old’ way of creating new organization
accounts was manual and involved a lot of clicking and typing. I
developed a script that would do most of the work for me. I had a little
bit of trouble finding information about how to create ‘sites’ and ‘virtual
sites’ in IIS with Perl. I was finally able to use Win32::OLE to do
what I needed.</span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'>Someone already uploaded a Win32::IIS::Admin module to the
CPAN, but it uses cscript (I have no experience with it). I’m
trying to think of a different namespace for mine, and I thought about Win32::IIS::Server.
Would that make enough sense for someone? Here’s a sample of how to
use it:</span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>use Win32::IIS::Server;</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>...</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>my $server = Win32::IIS::Server->new( name => 'www.myserver.com'
);</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'># create new site</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>my $siteIndex = $server->createSite( </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> site => $site,
# test1.myserver.com</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> name => $name,
# Test</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> folder => $folder,
# e:\test1\www</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>);</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'># create new ftp account</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>$server->createFTP(</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> name => $name,
# Test</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> folder => $folder,
# e:\test1\www</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>);</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>#create new virtual site</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>$server->createVirtual(</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> name => $name,
# test</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> folder => $folder,
# e:\test_virtual\www</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>);</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'>Feel free to offer any thoughts about a different
namespace. I’m sure I’ll have some kinks to work out to
actually getting the module on the CPAN. I’ve only written modules
for myself or work (which had no testing, not much portability, and was a crap
shoot on documentation), so getting the module ready for the CPAN will be a new
(and thorough) experience. As I mentioned before, I’ve started
incorporating testing into most of my new code, so hopefully I’ll get
this right.</span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'>Jeremy</span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><font size=2 face=Verdana><span style='font-size:10.0pt;
font-family:Verdana'> </span></font></p>
<p class=MsoNormal><strong><b><font size=3 face="Times New Roman"><span
style='font-size:12.0pt'>Jeremy Fluhmann</span></font></b></strong><b><span
style='font-weight:bold'><br>
</span></b><em><i><font size=2 color=maroon face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:maroon'>Programmer/Analyst</span></font></i></em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon;font-style:italic'><br>
</span></font></i><em><i><font size=2 color=maroon face=Arial><span
style='font-size:10.0pt;font-family:Arial;color:maroon'>Memorial</span></font></i></em><em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon'> </span></font></i></em><em><i><font size=2 color=maroon
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:maroon'>Student</span></font></i></em><em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon'> </span></font></i></em><em><i><font size=2 color=maroon
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:maroon'>Center</span></font></i></em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon;font-style:italic'><br>
</span></font></i><em><i><font size=2 color=maroon face=Arial><span
style='font-size:10.0pt;font-family:Arial;color:maroon'><st1:place u1:st="on"><st1:PlaceName u1:st="on">Texas</span></font></i></em><em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon'></st1:PlaceName> </span></font></i></em><em><st1:PlaceName u1:st="on"><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:maroon'>A&M</span></font></i></st1:PlaceName></em><em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon'> <st1:PlaceType u1:st="on"></span></font></i></em><em><i><font
size=2 color=maroon face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:maroon'>University</span></font></i></em><i><font size=2
color=maroon face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:maroon;font-style:italic'><br>
<em><i><font face=Arial><span style='font-family:Arial'></st1:PlaceType></st1:place>979-845-8893</span></font></i></em><br>
</span></font></i><em><i><font size=2 color=maroon face=Arial><span
style='font-size:10.0pt;font-family:Arial;color:maroon'>jeremy@msc.tamu.edu</span></font></i></em></p>
<p><font size=1 color="#666699" face="Times New Roman"><span style='font-size:
7.5pt;color:#666699'>This e-mail and any files transmitted with it are
confidential. If you are not the intended recipient, you are hereby notified
that any disclosure, copying, distribution, or use of the contents of this
information is prohibited. If you have received this e-mail transmission in
error, please notify me by telephone or via return e-mail and delete this
e-mail from your system.</span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> </span></font></p>
</div>
</body>
</html>