*** scripts/html_output.pl 2007-12-07 19:50:05.000000000 -0500 --- ../../webstump/scripts/html_output.pl 1999-07-02 15:07:56.000000000 -0400 *************** *** 10,46 **** 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.

! ! ! ! ! ! ! "; } --- 10,29 ---- 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. "; } *************** *** 53,59 **** #&print_image( "help.gif", "" ); ! print " Click here for help on $topic_name\n"; } # --- 36,42 ---- #&print_image( "help.gif", "" ); ! print "Click here for help on $topic_name\n"; } # *************** *** 63,69 **** my $alt = pop( @_ ); my $file = pop( @_ ); ! print "\"$alt\"\n"; } # prints the welcome page and login screen. --- 46,52 ---- my $alt = pop( @_ ); my $file = pop( @_ ); ! print "\"$alt\"\n"; } # prints the welcome page and login screen. *************** *** 72,117 **** 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 queueRequest 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; } --- 55,100 ---- 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; } *************** *** 130,183 **** } print ! "

Welcome to the Moderation Center for $newsgroup. Please bookmark ! this page.


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

($count "; &print_image( "new_tiny2.gif", "new" ) if $count; ! print " articles available)$end_color

! !
! !
! ! ! !

!

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:

! "; &end_html; --- 113,166 ---- } print ! " Welcome to the Moderation Center for $newsgroup. Please bookmark ! this page.
"; my $color = "", $end_color = ""; if( $count ) { ! $color = ""; ! $end_color = ""; } print ! "
! ! $color ($count "; &print_image( "new_tiny2.gif", "new" ) if $count; ! print " articles available)
$end_color ! Login: !
! Password: !
! ! ! !

! 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 !

"; &end_html; *************** *** 189,207 **** 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 ! "
! ! Password: !
! ! !
"; &end_html; --- 172,190 ---- 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 ! "
! ! Password: !
! ! !
"; &end_html; *************** *** 215,221 **** my $file = shift @_ || &required_parameter('file'); &begin_html( "Main Moderation Screen: $newsgroup" ); ! print "
\n"; &read_rejection_reasons; --- 198,204 ---- my $file = shift @_ || &required_parameter('file'); &begin_html( "Main Moderation Screen: $newsgroup" ); ! print "
\n"; &read_rejection_reasons; *************** *** 223,231 **** 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" );
--- 206,214 ----
  
    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" );
***************
*** 237,243 ****
          close( ARTICLE );
        }
  
!       print "\n
\n\n"; &print_images( $newsgroup, "$dir/$file", $file); --- 220,226 ---- close( ARTICLE ); } ! print "\n
\n\n"; &print_images( $newsgroup, "$dir/$file", $file); *************** *** 246,289 **** "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. --- 229,272 ---- "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. *************** *** 291,311 **** &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; --- 274,294 ---- &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; *************** *** 320,343 **** &begin_html( "WebSTUMP Administration" ); print " !
! ! \n"; print " !
! Create a new newsgroup on the server:
! Newsgroup:

! Address to send approved/rejected messages
!
! Admin Password For this group:

! !
"; ! print "
\n\n
\n";
  
    &end_html;
  }
--- 303,326 ----
  
    &begin_html( "WebSTUMP Administration" );
    print "
! 
! ! \n"; print " !
! Create a new newsgroup on the server:
! Newsgroup:

! Address to send approved/rejected messages
!
! Admin Password For this group:

! !
"; ! print "
\n\n
\n";
  
    &end_html;
  }
***************
*** 363,369 ****
  
    &begin_html( "WebSTUMP Administration: Newsgroup created" );
  
!   print "
\n\n";
  
    print "Adding $newsgroup to $webstump_home/config/newsgroups.lst...";
    mkdir "$webstump_home/queues/$newsgroup", 0755;
--- 346,352 ----
  
    &begin_html( "WebSTUMP Administration: Newsgroup created" );
  
!   print "
\n\n";
  
    print "Adding $newsgroup to $webstump_home/config/newsgroups.lst...";
    mkdir "$webstump_home/queues/$newsgroup", 0755;
***************
*** 389,395 ****
    print " done.\n";
  
  
!   print "
\n"; &end_html; } --- 372,378 ---- print " done.\n"; ! print "
\n"; &end_html; } *************** *** 413,419 **** $extension = "\L$extension"; if( $extension eq "gif" || $extension eq "jpg" || $extension eq "jpeg" ) { ! print "

\n"; $count++; } else { my $filename = $_; --- 396,402 ---- $extension = "\L$extension"; if( $extension eq "gif" || $extension eq "jpg" || $extension eq "jpeg" ) { ! print "

\n"; $count++; } else { my $filename = $_; *************** *** 427,433 **** || $filename =~ /msg-.*\.doc/; &print_image( "no_image.gif", "security warning" ); ! print "Non-image attachment:$filename NOT SHOWN for security reasons.
\n"; } } return $count; --- 410,416 ---- || $filename =~ /msg-.*\.doc/; &print_image( "no_image.gif", "security warning" ); ! print "Non-image attachment:$filename NOT SHOWN for security reasons.
\n"; } } return $count; *************** *** 446,452 **** $warning =~ s/>/>/g; close( WARNING ); &print_image( "star.gif", "warning" ); ! print "$warning\n"; return 1; } --- 429,435 ---- $warning =~ s/>/>/g; close( WARNING ); &print_image( "star.gif", "warning" ); ! print "$warning\n"; return 1; } *************** *** 481,487 **** } &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 --- 464,470 ---- } &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 *************** *** 489,495 **** 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; --- 472,478 ---- 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; *************** *** 497,504 **** opendir( QUEUE, $dir ) || &error( "could not open directory $dir" ); print " !
! "; &html_print_credentials; my $file, $subject = "No Subject", $from = "From nobody"; --- 480,487 ---- opendir( QUEUE, $dir ) || &error( "could not open directory $dir" ); print " ! ! "; &html_print_credentials; my $file, $subject = "No Subject", $from = "From nobody"; *************** *** 525,544 **** } } ! 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;
  
--- 508,527 ----
            }
          }
  
!         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;
  
***************
*** 552,558 ****
              }
          }
  
!         print "
"; $form_not_empty = "yes"; close( PROLOG ); $article_count += &print_images( $newsgroup, "$dir/$subdir", $subdir ); --- 535,541 ---- } } ! print "
"; $form_not_empty = "yes"; close( PROLOG ); $article_count += &print_images( $newsgroup, "$dir/$subdir", $subdir ); *************** *** 560,577 **** } 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; } --- 543,560 ---- } 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; } *************** *** 583,591 **** my $password = $request{'password'}; print " ! ! ! \n"; } # newsgroup admin page --- 566,574 ---- my $password = $request{'password'}; print " ! ! ! \n"; } # newsgroup admin page *************** *** 593,656 **** &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; } --- 576,639 ---- &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; } *************** *** 678,696 **** &begin_html( "Edit $list_to_edit" ); print ! "
! ! "; &html_print_credentials; &link_to_help( $list_to_edit, "$list_to_edit" ); print " !

Edit this list:


! !
! !
"; &end_html; --- 661,679 ---- &begin_html( "Edit $list_to_edit" ); print ! "
! ! "; &html_print_credentials; &link_to_help( $list_to_edit, "$list_to_edit" ); print " ! Edit this list:
! !
! !
"; &end_html; *************** *** 701,717 **** &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; --- 684,700 ---- &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; *************** *** 724,748 **** &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; --- 707,731 ---- &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; *************** *** 789,797 **** &begin_html( "Request to create $newsgroup sent" ); ! print "The following request has been sent:
\n";
  
!   print "$request
\n"; &end_html; } --- 772,780 ---- &begin_html( "Request to create $newsgroup sent" ); ! print "The following request has been sent:
\n";
  
!   print "$request
\n"; &end_html; } *************** *** 814,835 **** $help .= $_ while( ); close( FILE ); ! $help =~ s/##/$base_address?action=help&topic=/g; &begin_html( "$topic_name" ); print $help; ! print "
"; ! print " ! ! ! ! "; ! ! print ""; } --- 797,809 ---- $help .= $_ while( ); close( FILE ); ! $help =~ s/##/$base_address?action=help&topic=/g; &begin_html( "$topic_name" ); print $help; ! print "
"; } *************** *** 839,842 **** 1; - --- 813,815 ----