diff --git a/plugins/asterisk/asterisk b/plugins/asterisk/asterisk
index 8d278b94..5b6d72ce 100755
--- a/plugins/asterisk/asterisk
+++ b/plugins/asterisk/asterisk
@@ -30,13 +30,15 @@ This plugin will produce multiple graphs showing:
 The following configuration parameters are used by this plugin
 
  [asterisk]
-  env.host     - hostname to connect to
-  env.port     - port number to connect to
-  env.username - username used for authentication
-  env.secret   - secret used for authentication
-  env.channels - The channel types to look for
-  env.codecsx  - List of codec IDs (hexadecimal values)
-  env.codecs   - List of codecs names, matching codecsx order
+  env.host       - hostname to connect to
+  env.port       - port number to connect to
+  env.username   - username used for authentication
+  env.secret     - secret used for authentication
+  env.channels   - The channel types to look for
+  env.codecsx    - List of codec IDs (hexadecimal values)
+  env.codecs     - List of codecs names, matching codecsx order
+  env.meetme     - Set to 1 to enable graphs for the MeetMe application
+  env.confbridge - Set to 1 to enable graphs for the ConfBridge application
 
 The "username" and "secret" parameters are mandatory, and have no
 defaults.
@@ -49,6 +51,8 @@ defaults.
   env.channels Zap IAX2 SIP
   env.codecsx 0x2 0x4 0x8
   env.codecs gsm ulaw alaw
+  env.meetme 0
+  env.confbridge 1
 
 =head2 WILDCARD CONFIGURATION
 
@@ -122,6 +126,9 @@ my @CHANNELS = exists $ENV{'channels'} ? split ' ',$ENV{'channels'} : qw(Zap IAX
 my @CODECS = exists $ENV{'codecs'} ? split ' ',$ENV{'codecs'} : qw(gsm ulaw alaw);
 my @CODECSX = exists $ENV{'codecsx'} ? split ' ',$ENV{'codecsx'} : qw(0x2 0x4 0x8);
 
+my $meetme_enabled = $ENV{'meetme'} || '0';
+my $confbridge_enabled = $ENV{'confbridge'} || '1';
+
 my $line, my $error;
 my $socket = new IO::Socket::INET(PeerAddr => $peeraddr,
 				  PeerPort => $peerport,
@@ -182,7 +189,8 @@ graph_category voip
 total.label Total messages
 END
 
-print <<END;
+if ($meetme_enabled == '1') {
+  print <<END;
 
 multigraph asterisk_meetme
 graph_title Asterisk meetme statistics
@@ -191,8 +199,10 @@ graph_category voip
 users.label Connected users
 conferences.label Active conferences
 END
+}
 
-print <<END;
+if ($confbridge_enabled == '1') {
+  print <<END;
 
 multigraph asterisk_confbridge
 graph_title Asterisk ConfBridge statistics
@@ -201,6 +211,7 @@ graph_category asterisk
 users.label Connected users
 conferences.label Active conferences
 END
+}
 
 print <<END;
 
@@ -246,15 +257,21 @@ my $voicemail_response = asterisk_command($socket, "voicemail show users");
 #other      1234  Company2 User                             0
 #2 voicemail users configured.
 
-my $meetme_response = asterisk_command($socket, "meetme list");
-#Conf Num       Parties        Marked     Activity  Creation
-#5500           0001           N/A        00:00:03  Static
-#* Total number of MeetMe users: 1
+my $meetme_response;
+if ($meetme_enabled == '1') {
+  $meetme_response = asterisk_command($socket, "meetme list");
+  #Conf Num       Parties        Marked     Activity  Creation
+  #5500           0001           N/A        00:00:03  Static
+  #* Total number of MeetMe users: 1
+}
 
-my $confbridge_response = asterisk_command($socket, "confbridge list");
-#Conference Bridge Name           Users  Marked Locked Muted
-#================================ ====== ====== ====== =====
-#3                                     1      0 No     No
+my $confbridge_response;
+if ($confbridge_enabled == '1') {
+  $confbridge_response = asterisk_command($socket, "confbridge list");
+  #Conference Bridge Name           Users  Marked Locked Muted
+  #================================ ====== ====== ====== =====
+  #3                                     1      0 No     No
+}
 
 my $sipchannels_response = asterisk_command($socket, "sip show channels");
 #Peer             User/ANR         Call ID          Format           Hold     Last Message    Expiry     Peer
@@ -299,54 +316,58 @@ if ( !$voicemail_response or $voicemail_response =~ /no voicemail users/ ) {
   print "total.value $messages\n";
 }
 
-print "\nmultigraph asterisk_meetme\n";
-if ( !$meetme_response ) {
-  print <<END;
+if ($meetme_enabled == '1') {
+  print "\nmultigraph asterisk_meetme\n";
+  if ( !$meetme_response ) {
+    print <<END;
 users.value U
 conferences.value U
 END
-} else {
-  if ( $meetme_response =~ /No active/ ) {
-    print <<END;
+  } else {
+    if ( $meetme_response =~ /No active/ ) {
+      print <<END;
 users.value 0
 conferences.value 0
 END
-  } else {
-    my @meetme_list = split(/\r?\n/, $meetme_response);
+    } else {
+      my @meetme_list = split(/\r?\n/, $meetme_response);
 
-    my $users = pop(@meetme_list);
-    $users =~ s/^Total number of MeetMe users: ([0-9]+)$/$1/;
+      my $users = pop(@meetme_list);
+      $users =~ s/^Total number of MeetMe users: ([0-9]+)$/$1/;
 
-    print "users.value $users\n";
-    print "conferences.value " . (scalar(@meetme_list)-1) . "\n";
+      print "users.value $users\n";
+      print "conferences.value " . (scalar(@meetme_list)-1) . "\n";
+    }
   }
 }
 
-print "\nmultigraph asterisk_confbridge\n";
-if ( !$confbridge_response ) {
-  print <<END;
+if ($confbridge_enabled == '1') {
+  print "\nmultigraph asterisk_confbridge\n";
+  if ( !$confbridge_response ) {
+    print <<END;
 users.value U
 conferences.value U
 END
-} else {
-  my @confbridge_list = split(/\r?\n/, $confbridge_response);
-  # Remove column headers, then line of =
-  shift(@confbridge_list);
-  shift(@confbridge_list);
+  } else {
+    my @confbridge_list = split(/\r?\n/, $confbridge_response);
+    # Remove column headers, then line of =
+    shift(@confbridge_list);
+    shift(@confbridge_list);
 
-  my $users = 0;
-  foreach my $bridge (@confbridge_list) {
-    my @fields = split ' ', $bridge;
-    # yes we ARE parsing a command's output. if we end up getting some
-    # unexpected things, just break out to and avoid computing nonsense.
-    if (scalar(@fields) < 5 or $fields[1] !~ /^[0-9]+$/) {
-      last;
+    my $users = 0;
+    foreach my $bridge (@confbridge_list) {
+      my @fields = split ' ', $bridge;
+      # yes we ARE parsing a command's output. if we end up getting some
+      # unexpected things, just break out to and avoid computing nonsense.
+      if (scalar(@fields) < 5 or $fields[1] !~ /^[0-9]+$/) {
+        last;
+      }
+      $users += $fields[1];
     }
-    $users += $fields[1];
-  }
 
-  print "users.value $users\n";
-  print "conferences.value " . (scalar(@confbridge_list)) . "\n";
+    print "users.value $users\n";
+    print "conferences.value " . (scalar(@confbridge_list)) . "\n";
+  }
 }
 
 print "\nmultigraph asterisk_codecs\n";