# # This is a module with functions for HTML output. # # I separate it from the main STUMP stuff because these functions are # bulky and not very interesting. # # sub begin_html { my $title = pop( @_ ); print "Content-Type: text/html\n\n $title

$title

\n\n"; if( &is_demo_mode ) { print " You are operating in demonstration mode. User actions will have no effect.

\n"; } } sub end_html { print "\n

Thank you for using STUMP Robomoderator.
Click here to return to WebSTUMP. "; } # prints a link to help # accepts topic id and topic name. # sub link_to_help { my $topic_name = pop( @_ ); my $topic = pop( @_ ); #&print_image( "help.gif", "" ); print "Click here for help on $topic_name\n"; } # # prints image and an alt text # sub print_image { # image_file, alt_text my $alt = pop( @_ ); my $file = pop( @_ ); print " $\"$alt\"$ \n"; } # prints the welcome page and login screen. sub html_welcome_page { &begin_html( "Welcome to WebSTUMP" ); print "Welcome to WebSTUMP, the moderators' front end for STUMP users -- USENET newsgroup moderators. Only authorized users are allowed to log into this program.

"; my $motd_file = "$webstump_home/config/motd"; if( -f $motd_file && -r $motd_file ){ open( MOTD, $motd_file ); print "Message of the Day:

\n";
    print while(  );
    close( MOTD );
    print "

\n"; } print " Newsgroups Status:
\n"; for( sort @newsgroups_array ) { print ""; print ""; print "\n"; } print "

"; my $count = &get_article_count( $_ ); print " $_"; &print_image( "smiley.gif", "" ) if $count; print "

$count messages in queue

Request creation

\n"; print "

Note: click on the newsgroup to login in as moderator. Click on 'Request Creation' to ask a sysadmin at a specific domain to carry your newsgroup.\n

Click here to administer this WebSTUMP installation "; &end_html; } # prints the login screen for newsgroup. sub html_login_screen { my $newsgroup = $request{'newsgroup'} || &error( "newsgroup not defined" ); my $count = &get_article_count( $newsgroup ); if( $count ) { &begin_html( "$count articles in queue for $newsgroup" ); } else { &begin_html( "Empty Queue for $newsgroup" ); } print " Welcome to the Moderation Center for $newsgroup. Please bookmark this page.

"; my $color = "", $end_color = ""; if( $count ) { $color = ""; $end_color = ""; } print "

Please log into $newsgroup. You can only log in if you know your login id and know the secret password. You should not give your password to any unauthorized user. Your login id and password are NOT case sentitive, which means that, for example, \"xyzzy\" and \"XyZZY\" are equally valid.

"; print " Log in as \"admin\" if you want to

edit filtering lists."; &link_to_help( "filter-lists", "Filter Lists" ); print "
add/delete users or change their passwords.
First Time Users: You have to log in as admin and add a moderator user who will be able to moderate the newsgroup. Then log in again as that user. If you are a new user, you have to have your admin password assigned to you by the administrator.

"; &end_html; } # prints the login screen for newsgroup. sub admin_login_screen { &begin_html( "Administrative login" ); print " Attention: this page is only for the maintainer of the whole WebSTUMP installation. Please return to the main page if you are not the maintainer of this installation.

"; print " "; &end_html; } # main moderation page -- old version sub html_moderate_article { my $newsgroup = &required_parameter( 'newsgroup' ); my $moderator = $request{'moderator'}; my $password = $request{'password'}; my $file = shift @_ || &required_parameter('file'); &begin_html( "Main Moderation Screen: $newsgroup" ); print "

\n"; &read_rejection_reasons; my $dir = "$queues_dir/$newsgroup"; if( -d "$dir/$file" && open( TEXT_FILES, "$dir/$file/text.files.lst" ) ) { print "

\n" if &print_article_warning( $file ); print "

\n";
      my $filename;
      while( $filename =  ) {
        open( ARTICLE, "$dir/$file/$filename" );
        while(  ) {
          s//>/g;
          print;
        }
        close( ARTICLE );
      }

      print "\n

\n\n"; &print_images( $newsgroup, "$dir/$file", $file); } else { print "This message ($dir/$file) no longer exists -- maybe it was " . "approved or rejected by another moderator."; } print "

"; print " "; &html_print_credentials; print "
Comment:
"; print "
Don't change poster's status Preapprove poster Ban All Posts by this Person (Careful!)

Don't change thread's status Preapprove thread, by Subject:
Ban Entire Thread By Subject (Careful!) Put Entire thread on a Watch, by Subject:

NOTE: Decisions to ban and preapprove posters and threads can be reversed by logging in as \"admin\" and editing respective lists of preapproved and banned threads and posters. "; &link_to_help( "filter-lists", "automatic filtering and filter lists, blacklisting and preapproved threads." ); print "Be really careful about blacklisting of everyone except spammers.

Review ONE article in next screen Review multiple articles in next screen

"; print "

\n\n"; print "
Change Password"; closedir( QUEUE ); &end_html; } # WebSTUMP administrative screen sub webstump_admin_screen { &verify_admin_password; my $password = $request{'password'}; &begin_html( "WebSTUMP Administration" ); print " \n\n

\n";

  &end_html;
}

# WebSTUMP "add newsgroup" function
sub admin_add_newsgroup {

  &verify_admin_password;

  my $newsgroup = &required_parameter( 'newsgroup_name' );

  $newsgroup =~ s/\///g;
  $newsgroup = &untaint( $newsgroup );

  my $address = &required_parameter( 'newsgroup_approved_address' );
  my $password = &required_parameter( 'newsgroup_password' );

  &user_error( "Newsgroup $newsgroup already exists" )
    if defined $newsgroups_index{$newsgroup};

  &user_error( "Password may only contain letters and digits" )
    if( ! ($password =~ /^[a-zA-Z0-9]+$/ ) );

  &begin_html( "WebSTUMP Administration: Newsgroup created" );

  print "\n\n";

  print "Adding $newsgroup to $webstump_home/config/newsgroups.lst...";
  mkdir "$webstump_home/queues/$newsgroup", 0755;
  print " done.\n";
  
  $dir = "$webstump_home/config/newsgroups/$newsgroup";
  
  print "Creating $dir...";
  mkdir $dir, 0755;
  print " done.\n";
  
  print "Creating files in $dir...";
  
  &append_to_file( "$dir/blacklist", "" );
  &append_to_file( "$dir/address.txt", "$address\n" );
  &append_to_file( "$dir/moderators", "ADMIN \U$password\n" );
  &append_to_file( "$dir/rejection-reasons",
"offtopic::a blatantly offtopic article, spam
harassing::message of harassing content
charter::message poorly formatted
" );
  &append_to_file( "$dir/whitelist", "" );
  print " done.\n";


  print "\n";

  &end_html;
}

#
#
sub print_images {
  $web_subdir = pop( @_ );
  $subdir = pop( @_ );
  $newsgroup = pop( @_ );

  opendir( SUBDIR, $subdir );

  my $count = 0;

  while( $_ = readdir( SUBDIR ) ) {
    my $file = "$subdir/$_";
    next if( ! -f $file || ! -r $file );
    my $extension = $file;
    $extension =~ s/^.*\.//;
    $extension = "\L$extension";
    
    if( $extension eq "gif" || $extension eq "jpg" || $extension eq "jpeg" ) {
      print " \n";
      $count++;
    } else {
      my $filename = $_;
      $filename =~ s/^.*\///;
      next if $filename eq "skeleton.skeleton" 
	      || $filename eq "headers.txt"
              || $filename eq "full_message.txt"
	      || $filename eq "text.files.lst"
	      || $filename eq "stump-prolog.txt"
	      || $filename eq "stump-warning.txt"
	      || $filename =~ /msg-.*\.doc/;
      
      &print_image( "no_image.gif", "security warning" );
      print "Non-image attachment:$filename NOT SHOWN for security reasons.
\n";
    }
  }
  return $count;
}

# prints warning if there is warning stored about the article
sub print_article_warning { # short-subdir
  my $file = pop( @_ );

  my $warning_file = &article_file_name( $file ) . "/stump-warning.txt";

  if( -r $warning_file ) {
    open( WARNING, $warning_file );
    $warning = ;
    $warning =~ s//>/g;
    close( WARNING );
    &print_image( "star.gif", "warning" );
    print "$warning\n";
    return 1;
  }

  return 0;
}

# main moderation page
sub html_moderation_screen {
  my $newsgroup = &required_parameter( 'newsgroup' );
  my $moderator = $request{'moderator'};
  my $password = $request{'password'};


  if( $request{'next_screen'} eq 'single' ) {
    # we show a single article if the user so requested.
    # just get the first article from the queue if any, otherwise show 
    # an empty main screen.
   
    my $dir = "$queues_dir/$newsgroup";
    opendir( QUEUE, $dir ) || &error( "could not open directory $dir" );
  
    my $file;
    while( $subdir = readdir( QUEUE ) ) {
      if( -d "$dir/$subdir" && !($subdir =~ /^\.+/) 
          && open( PROLOG, "$dir/$subdir/stump-prolog.txt" ) ) {
	      &html_moderate_article( $subdir );
	      return;
      }
    }
  } else {
	# otherwise just show the moderator an empty main screen.
  }
    
  &begin_html( "Main Moderation Screen: $newsgroup" );
  print "Welcome to the main moderation screen. Its main purpose is to 
help you process most messages extremely quickly. For every message, it 
presents you who sent it, as well as the first three non-blank lines.
For those messages where the decision is obvious, simply select your
decision (approve/reject etc) and click submit. For those messages which
you would like to review in more details, do not select anything and
use Review/Comment function from this screen or from a subsequent screen.
Remember that if you do not make any decision, the article would stay in the
queue.\n";

  &read_rejection_reasons;

  my $dir = "$queues_dir/$newsgroup";
  opendir( QUEUE, $dir ) || &error( "could not open directory $dir" );

  print "
  
  ";
    &html_print_credentials;
  
  my $file, $subject = "No Subject", $from = "From nobody";
  my $form_not_empty = "";
  my $article_count = 0;
  my $warning = "";
  while( (($subdir = readdir( QUEUE )) && $article_count++ < 7 )) {
    $file=$subdir;
    if( -d "$dir/$subdir" && !($subdir =~ /^\.+/) 
        && open( PROLOG, "$dir/$subdir/stump-prolog.txt" ) ) {
        while(  ) {
          chop;
          if( /^Real-Subject: /i ) {
            s//>/g;
            s/^Real-Subject: //g;
            $subject = substr( $_, 0, 50 );
          } elsif( /^From: /i ){
            s//>/g;
            $from = substr( $_, 0, 50 );
          } elsif( /^$/ ) {
            last;
          }
        }

        print "
$from: $subject(";
        print "Review/Comment/Preapprove)
\n";
        print "Approve\n";
#        print "PreApprove\n";
        foreach (@short_rejection_reasons) {
          print "Reject \u$_\n";
        }

	print "
\n";

        &print_article_warning( $file );

        print "
\n";

        my $i = 0;

        while( ($_ = ) && $i < 5 ) {
            chop;
            s//>/g;
            if( $_ ne "" ) {
              print ">>>>>>  " . substr( $_, 0, 75 ) . "\n";
              $i++;
            }
        }

        print "";
        $form_not_empty = "yes";
        close( PROLOG );
        $article_count += &print_images( $newsgroup, "$dir/$subdir", $subdir );
    }
  }

  if( $form_not_empty ) {
    print "
 

";
  } else {
    print "No articles present in the queue\n\n";
  }

  print "Change Password";


  print "\n\n";
  closedir( QUEUE );
  &end_html;
}

# prints hidden fields -- credentials
sub html_print_credentials {
  my $newsgroup = $request{'newsgroup'};
  my $moderator = $request{'moderator'};
  my $password = $request{'password'};

  print "
 
 
 \n";
}

# newsgroup admin page
sub html_newsgroup_management {
  &begin_html( "Administer $request{'newsgroup'}" );

  print "All usernames and passwords are not case sensitive.\n";
  print "
Use this form to add new moderators or change passwords:

 
 ";
  &html_print_credentials;
  print "
 Username: 
 

 Password: 
 

 
 
 
";

  print "
Use this form to delete moderators:

 
 ";
  &html_print_credentials;
  print "
 Username: 
 

 
 
 


 
 ";
  &html_print_credentials;
  print "
  Configuration List: 
  
  ";

  &link_to_help( "filter-lists", "filtering lists" );

  print "
  


  List of current moderators:

  
\n";

  foreach (keys %moderators) {
      print " $_\n";
  }

  print "\n";

  &end_html;
}


# edit config list
sub edit_configuration_list {

  my $list_to_edit = &required_parameter( 'list_to_edit' );

  $list_to_edit = &check_config_list( $list_to_edit );

  my $list_file = &full_config_file_name( $list_to_edit );

  my $list_content = "";

  if( open( LIST, $list_file ) ) {
    $list_content .= $_ while(  );
    close( LIST );
  }

  $list_content =~ s//>/g;

  &begin_html( "Edit $list_to_edit" );

  print
" 
 
 ";
  &html_print_credentials;
  &link_to_help( $list_to_edit, "$list_to_edit" );
  print "
 Edit this list: 
$list_content

 

 
 
";

  &end_html;
}

# password change page
sub html_change_password{
  &begin_html( "Change Password" );

  print "All usernames and passwords are not case sensitive.\n";
  print "
Use this form to change your password:

 
 ";
  &html_print_credentials;
  print "
 

 New Password: 
 

 
 
 
";

  &end_html;
}


# newsgroup creation form
sub init_request_newsgroup_creation{
  my $newsgroup = &required_parameter( 'newsgroup' );

  &begin_html( "Request Creation of $newsgroup" );

  print "This page helps you ask the system administrator of your domain
to create $newsgroup on your server. Type in your domain name and
click SUBMIT. An email will be sent to news\@domain and usenet\@domain
and postmaster\@domain
asking them to create your newsgroup. Please do NOT abuse this system.
NOTE: You can give the URL of this page to your group readers so that 
they could request creation of their newsgroups by themselves.\n";

  print "
 
 \n";
  &html_print_credentials;
  print "
 

 Domain Name ONLY: 
 

 
 
 
";

  &end_html;
}


# newsgroup creation completion
sub complete_newsgroup_creation_request{
  my $newsgroup = &required_parameter( 'newsgroup' );
  my $domain_name = &required_parameter( 'domain_name' );

  if( !($domain_name =~ /(^[a-zA-Z0-9\.-_]+$)/) ) {
    &user_error( "invalid domain name" );
  }

  $domain_name = $1;


  my $request = "To: news\@$domain_name, usenet\@$domain_name, postmaster\@$domain_name
Subject: Please create $newsgroup (Moderated)
From: devnull\@algebra.com ($newsgroup Moderator)
Organization: stump.algebra.com

Dear News Administrator:

A user of $domain_name has requested that you create a newsgroup

	$newsgroup (Moderated) 

on your server. $newsgroup
is a legitimately created moderated newsgroup that is available worldwide.

Thank you very much for your help and cooperation.

Sincerely,

	- Moderator of $newsgroup.

";

  &email_message( $request, "news\@$domain_name" );
  &email_message( $request, "usenet\@$domain_name" );
  &email_message( $request, "postmaster\@$domain_name" );

  &begin_html( "Request to create $newsgroup sent" );

  print "The following request has been sent:
\n";

  print "$request\n";

  &end_html;
}

# displays help
sub display_help {
  my $topic_name = &required_parameter( "topic" );

  $topic_name =~ s/\///g;
  $topic_name =~ s/\.\.//g;
  $topic_name = &untaint( $topic_name );

  my $file = "$webstump_home/doc/help/$topic_name.html";

  &error( "Topic $topic_name not found in $file." ) 
	if ! -r $file;

  open( FILE, "$file" );
  my $help = "";
  $help .= $_ while(  );
  close( FILE );

  $help =~ s/##/$base_address?action=help&topic=/g;

  &begin_html( "$topic_name" );

  print $help;

  print "";
}







1;