Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
die Usage: ldap-group [-p] trans \n" unless @ARGV;
...
    die "Invalid $arg\n" unless $arg =~ m/^[A-Za-z]+$/;
}
exec("/opt/bin/techweb-changes.pl",@ARGV);

Select or download this

#include <regex.h>

...
    }
    return(1);
}