Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 38229e6bb5
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (11 sloc) 0.392 kb
#!/usr/bin/perl
use CGI qw/:standard/;
use Net::Address::IP::Local;
print header;
print "<HTML><BODY>";
print "DC.PM Podcaster Software<BR><BR>";
print "My IP address is: " . Net::Address::IP::Local->public_ipv4 . "<BR><BR>";
# Check to see if presentation is ready
# If so
print "To add yourself as a presentor, click <A HREF=\"present.pl\">here</A>.<BR>";
print "</BODY></HTML>";
Jump to Line
Something went wrong with that request. Please try again.