Examining a Fixlet with Perl

This Perl script finds a FixletMessage with a specific site ID and Fixlet ID and prints all the accessible information about that Fixlet. This program requires you to enter your name, password, and Fixlet identification in the program itself. The text that is highlighted in blue is where the assignments are made:

# FixletMessage.pl

use strict;
use FindBin;
use lib $FindBin::Bin;
use BESAPI;

my $username = "operator";
my $password = "bigfix";
my $server   = "bes-server-hostname";

my $siteID = 1;
my $FixletID = 177;

my $Fixlet = BESAPI::FixletMessage( $siteID, $FixletID, $username, 
   $password, $server );

print "Name: "              . $Fixlet->Name() . "\n";
print "SiteName: "          . $Fixlet->SiteName() . "\n";
print "SiteDisplayName: "   . $Fixlet->SiteDisplayName() . "\n";
print "SiteURL: "           . $Fixlet->SiteURL() . "\n";
print "SiteID: "            . $Fixlet->SiteID() . "\n";
print "FixletID: "          . $Fixlet->FixletID() . "\n";
print "IsTask: "            . $Fixlet->IsTask() . "\n";
print "IsAnalysis: "        . $Fixlet->IsAnalysis() . "\n";
print "IsPlainFixlet: "     . $Fixlet->IsPlainFixlet() . "\n";
print "IsBaseline: "        . $Fixlet->IsBaseline() . "\n";
print "DownloadSize: "      . $Fixlet->DownloadSize() . "\n";
print "Source: "            . $Fixlet->Source() . "\n";
print "SourceID: "          . $Fixlet->SourceID() . "\n";
print "SourceSeverity: "    . $Fixlet->SourceSeverity() . "\n";
print "SourceReleaseDate: " . $Fixlet->SourceReleaseDate() . "\n";
print "Category: "          . $Fixlet->Category() . "\n";
print "IsDeleted: "         . $Fixlet->IsDeleted() . "\n";
print "Relevance: "         . $Fixlet->Relevance() . "\n";
print "Current FIPS Mode: " . $Fixlet->CurrentFIPSMode( $username, $password );

if ( $Fixlet->IsAnalysis() )
{
    print "PropertyIDSet: "       . $Fixlet->PropertyIDSet() . "\n";
    print "IsGloballyActivated: " . $Fixlet->IsGloballyActivated() . "\n";
    print "IsLocallyActivated: "  . $Fixlet->IsLocallyActivated() . "\n";
    print "CanActivate: "         . $Fixlet->CanActivate() . "\n";
    print "CanDeactivate: "       . $Fixlet->CanDeactivate() . "\n";
}

print "\n\n";
print "Message: " . $Fixlet->Message() . "\n";
print "HTML: \n\n" . $Fixlet->HTML() . "\n";

if ( $Fixlet->IsPlainFixlet() || $Fixlet->IsTask() )
{
    my $action = 0;
    print "ActionScript: " . $Fixlet->ActionScript( $action ) . "\n";
    print "ActionScriptMIMEType: " . $Fixlet->ActionScriptMIMEType
                                      ( $action ) . "\n";
    print "ActionScriptTypeName: " . $Fixlet->ActionScriptTypeName
                                      ( $action ) . "\n";
}