#!/usr/bin/perl
#
##############################################################################################
#
# try an error for a Directroy list
#
##############################################################################################
#
# version: 	0.4
# date: 	30.12.2008 
# 
# perl dcrawl.pl <www.mytarget.org>
#
# (c) by trilobit@packetlevel.ch
#
# feel free, to add your favorits directorys...
#
##############################################################################################
#
# history
#
# v0.4		add dir 
# v0.3		updates from stoege (add. directorys)
# v0.2		some test
# v0.1		initial
#
##############################################################################################

my @LISTE = (
                "/",
                "/cgi-bin",
                "/cgibin",
                "/test",
                "/bin",
                "/tmp",
                "/temp",
                "/oldweb",
                "/etc",
                "/utils",
                "/perl",
                "/include",
                "/java",
                "/private",
                "/scripts",
                "/intern",
                "/intranet",
                "/import",
                "/info",
                "/login",
                "/mail",
                "/tools",
                "/admin",
                "/webmail",
                "/service",
                "/php",
                "/transfer",
                "/backup",
                "/root",
                "/ftp",
                "/hidden",
                "/secret",
                "/privat",
                "/index",
                "/my",
                "/",
                "/phpmyadmin",
                "/phpMyAdmin",
                "/phpmyAdmin",
                "/phpMyadmin"
                );

foreach $tmp1(sort @LISTE) {
        @RESULT = `curl -s -I $ARGV[0]$tmp1` ;
        print "+++   "."$ARGV[0]$tmp1\t\t---\t"."@RESULT[0]\n";
        }

exit<0>;