perl -I/opt/rt4/lib -MRT -e’
RT::LoadConfig( ); RT::Init( );
my $u = RT::User->new($RT::SystemUser);
$u->Load(“root”);
print $u->PrincipalObj->GrantRight(
Object => $RT::System,
Right => “SuperUser”
);
‘
This will turn any RT user into a superuser. Replace root user with any other valid user.
perl -I/opt/rt4/lib -MRT -e’
RT::LoadConfig( ); RT::Init( );
my $u = RT::User->new($RT::SystemUser);
$u->Load(“root”);
print $u->SetPassword(“secret”);
‘
Email addresses
egrep -o ‘[A-Za-z0-9._]+@[A-Za-z0-9.]+\.[a-zA-Z]{2,4}’ filename.txt
URLS
egrep -o “http://[a-zA-Z0-9.]+\.[a-zA-Z]{2,3}” filename.txt
