Policy on the IRC bot now requires that you address her directly to set
a factoid.
git-svn-id: https://svn.apache.org/repos/asf/httpd/docs-build/trunk@1736571 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/irc_factoids.pl b/irc_factoids.pl
index 5f4e4d3..28ba427 100755
--- a/irc_factoids.pl
+++ b/irc_factoids.pl
@@ -39,8 +39,8 @@
$desc =~ s/[\r\n]/ /gs;
my $name = $directive . ( $opt_v ? " $opt_v" : '' );
- print "forget $name\n" if $opt_f;
- print "$name is ";
+ print "fajita: forget $name\n" if $opt_f;
+ print "fajita: $name is ";
print 'http://httpd.apache.org/docs/' . ( $opt_v ? $opt_v : 'current' ) . '/mod/' . $opt_m . '.html#' . lc( $directive );
if ( $desc ) {
print " - " . $desc;
@@ -48,22 +48,22 @@
print "\n";
- print "forget $name default\n" if $opt_f;
+ print "fajita: forget $name default\n" if $opt_f;
if ( $d->{default} ) {
- print "$name default is " . $d->{default} . "\n";
+ print "fajita: $name default is " . $d->{default} . "\n";
} else {
- print "$name default is <reply>$name has no default value\n";
+ print "fajita: $name default is <reply>$name has no default value\n";
}
- print "forget $name override\n" if $opt_f;
+ print "fajita: forget $name override\n" if $opt_f;
if ( $d->{override} ) {
- print "$name override is <reply>$name may be used in an .htaccess file if AllowOverride is set to ".$d->{override}."\n";
+ print "fajita: $name override is <reply>$name may be used in an .htaccess file if AllowOverride is set to ".$d->{override}."\n";
} else {
- print "$name override is <reply>$name may not be used in a .htaccess file\n";
+ print "fajita: $name override is <reply>$name may not be used in a .htaccess file\n";
}
- print "forget $name context\n" if $opt_f;
- print "$name context is <reply>$name may be used in the following contexts: ";
+ print "fajita: forget $name context\n" if $opt_f;
+ print "fajita: $name context is <reply>$name may be used in the following contexts: ";
my $contexts = ref( $d->{contextlist}->{context} ) ? $d->{contextlist}->{context} : [ $d->{contextlist}->{context} ];
print ( join ', ', @{ $contexts } ) . "\n";
print "\n\n";
