syphon^2 fucked around with this message at 15:00 on Dec 6, 2007

syphon^2 fucked around with this message at 18:04 on Dec 7, 2007

sub FunctionFullOfStuff {
    use File::Find;

    [...]

    my @dir = ('\\REMOTESERVER\Folder\Subfolder');
    find(\&wanted, @dir);

    [...]
}

sub wanted {
    print "$File::Find::name\n" if (lc($_) eq 'uniquefilename.xml');
}

syphon^2 fucked around with this message at 15:47 on Mar 18, 2008

use File::Find;

my $file;
my @dirs = ("$server\\$path");

find( sub { $file = $File::Find::name if (lc($_) eq 'uniquefilename.xml') },  @dirs);
print "Now I have the file path ($file) stored in a variable!\n";

syphon^2 fucked around with this message at 16:48 on Mar 18, 2008

RewriteEngine on
RewriteBase /
RewriteRule ^appname/app.cgi?param=(.*)$ $1 [L]
RewriteRule ^appname/(\w+)(/.*)?$ appname/app.cgi?param=$1 [NC,L]

syphon^2 fucked around with this message at 18:40 on Apr 14, 2008

#!perl
use Win32::OLE;
use Win32::OLE::Enum;

$websvc = Win32::OLE->GetObject("IIS://localhost/W3SVC") 
	or print Win32::OLE->LastError;

$enumIIS = Win32::OLE::Enum->new($websvc); 

foreach $objSites ($enumIIS->All) { 
	print "$objSites->{ServerComment}\n" unless ($objSites->{Name} =~ /(Filters|Info|SSLKeys)/);
}

syphon^2 fucked around with this message at 17:51 on May 7, 2008

my $reg = `reg query \\$server\HKLM\SOFTWARE\KEYNAME /s`;

syphon^2 fucked around with this message at 23:27 on Jun 30, 2008

my $status = getStatus(); #returns 'Pass|Fail'
my $color = whatColor($status); #returns 'red|green'
$template->param( #Insert them into the template
    STATUS => $status,
    COLOR => $color,
);

<h3>
Status: <font color=<TMPL_VAR COLOR> > <TMPL_VAR STATUS> </font>
</h3>

syphon^2 fucked around with this message at 22:31 on Sep 30, 2008

#!perl

use strict;
use Net::LDAP;

my $adserver	= "AD-SERVER.MY.CORP.NETWORK.COM";
my $user	= "username";
my $pass	= "password";
my $name	= "User Name";
my $group	= "All Users";
my $dc		= "DC=MY,DC=CORP,DC=NETWORK,DC=COM";

my $ad = Net::LDAP->new('ldap://' . $adserver)
	or die("Could not connect to LDAP server. $!");
		  
$ad->bind($user . "\@" . $adserver, password=>$pass)
	or die "Error binding to LDAP Server: $!";
$ad->bind("CN=" . $name . ",OU=Policy 0, OU=" . $group . "," . $dc)
	or die "Error binding to LDAP Server: $!";

#------Search for all users----------	
# The search base?
my $base = 'OU=' . $group . ',' . $dc;
# What are we searching for?
my $filter = "memberof=CN=" . $group . "," . $dc;
# Which attributes should be returned?
my $attrs = "sn, givenname";
# Execute the search
my $results = $ad->search(base=>$base,filter=>$filter,attrs=>$attrs);
# How many entries returned?
my $count = $results->count;
print "Total entries returned: $count\n";
# Display entries
my $entry;
for (my $i=0; $i<$count; $i++) {
     $entry = $results->entry($i);
     print $entry->get_value('sn').", ".
           $entry->get_value('givenname')."\n";
}


#------Look up a specific user----------
use Time::Local;
# . . .
my $base = 'OU=All Users,' . $dc;
# What are we searching for?
my $filter = "CN=" . $name;
# Which attributes should be returned?
my $attrs = "sn, givenname, telephonenumber, mail, pwdLastSet";
# Execute the search
my $results = $ad->search(base=>$base,filter=>$filter,attrs=>$attrs);
# Display entries
my $entry;
$entry = $results->entry(0);
print $entry->get_value('sn').", ".$entry->get_value('givenname')."\n";
print "Tel: ".$entry->get_value('telephonenumber')."\n";
print "Email: ".$entry->get_value('mail')."\n";
print "Password last changed: ".
       localtime($entry->get_value('pwdLastSet'))."\n";

$ad->unbind;

C:\enlistment>perl ldap.pl
Total entries returned: 0
Can't call method "get_value" on an undefined value at ldap.pl line 54, <DATA> line 466.

syphon^2 fucked around with this message at 13:44 on Oct 13, 2008