#!/usr/bin/perl #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #% % #% PROGRAM : MOM-preview-add-task.pl % #% CREATOR : Mark Gaither % #% CREATION DATE : Fri 17 Nov 1995 % #% DESCRIPTION : Preview data to create a MOMspider % #% instruction file. % #% % #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # flush stdout buffer $| = 1; # Print this out no matter what print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq 'POST') { # How many bytes are we supposed to receive? read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } } print <<"HTML"; MOMspider Intruction Preview

MOMspider Instruction Preview

<$in{'boundary'}
  Name $in{'info-struct-name'}
  TopURL $in{'topURL'}
  IndexURL $in{'indexURL'}
  IndexFile $in{'indexfile'}
HTML

if($in{'indextitle'} ne '' &&
   $in{'indextitle'} !~ /^\s*$/) {
  print "  IndexTitle $in{'indextitle'}\n";
}
if($in{'changewindow'} ne '' &&
   $in{'changewindow'} !~ /^\s*$/) {
  print "  ChangeWindow $in{'changewindow'}\n";
}
if($in{'expirewindow'} ne '' &&
   $in{'expirewindow'} !~ /^\s*$/) {
  print "  ExpireWindow $in{'expirewindow'}\n";
}
if($in{'emailaddress'} ne '' &&
   $in{'emailaddress'} !~ /^\s*$/) {
  print "  EmailAddress $in{'emailaddress'}\n";
}
if($in{'emailbroken'} eq 'yes') {
  print "  EmailBroken\n";
}
if($in{'emailredirected'} eq 'yes') {
  print "  EmailRedirected\n";
}
if($in{'emailchanged'} ne '' &&
   $in{'emailchanged'} !~ /^\s*$/) {
  print "  EmailChanged $in{'emailchanged'}\n";
}
if($in{'emailexpired'} ne '' &&
   $in{'emailexpired'} !~ /^\s*$/) {
  print "  EmailExpired $in{'emailexpired'}\n";
}
if($in{'exclude'} ne '' &&
   $in{'exclude'} !~ /^\s*$/) {
  @URLs = split(/\n/,$in{'exclude'});
  foreach $URL (@URLs) {
    print "  Exclude $URL\n";
  }
}

print <<"HTML";
>

If these values are correct, submit your choices.

HTML exit;