|
EOF
#
# *** Look for per-item operations: Edit, Delete, Move Up, Move Down
# These have the item number coded in
#
foreach my $p (keys %params) { # go through all the parameters
# *** Edit an item
if ($p =~ /^itemedit(\d+)/) {
$params{edititemnum} = $1;
foreach my $vn (@itemtags) { # Copy each value into edit params
$params{"edit$vn"} = $datavalues{"$vn$1"};
}
$params{itemmode} = "edit"; # set mode
}
# *** Delete an item
if ($p =~ /^itemdelete(\d+)/) {
for (my $i=$1; $i < $datavalues{numitems}; $i++) {
foreach my $vn (@itemtags) { # copy each one after it down one
$datavalues{$vn . $i} = $datavalues{$vn . ($i + 1)};
}
}
foreach my $vn (@itemtags) { # Erase last one
delete $datavalues{$vn . $datavalues{numitems}};
}
if ($1 eq $datavalues{numitems} && $1 <= $params{listitemnum}) { # make sure listed page has the moved item
$params{listitemnum} -= $datavalues{maxlistitems};
$params{listitemnum} = 1 if $params{listitemnum} < 1;
}
$datavalues{numitems} -= 1;
$changed++;
}
# *** Move an item up (to a lower number)
if ($p =~ /^itemup(\d+)/) {
if ($1 > 1) {
foreach my $vn (@itemtags) { # Switch the two
my $temp = $datavalues{$vn . ($1 - 1)};
$datavalues{$vn . ($1 - 1)} = $datavalues{$vn . $1};
$datavalues{$vn . $1} = $temp;
}
if ($1 <= $params{listitemnum}) { # make sure listed page has the moved item
$params{listitemnum} -= $datavalues{maxlistitems};
$params{listitemnum} = 1 if $params{listitemnum} < 1;
}
}
$changed++;
}
# *** Move an item down (to a higher number)
if ($p =~ /^itemdown(\d+)/) {
if ($1 < $datavalues{numitems}) {
foreach my $vn (@itemtags) { # Switch the two
my $temp = $datavalues{$vn . ($1 + 1)};
$datavalues{$vn . ($1 + 1)} = $datavalues{$vn . $1};
$datavalues{$vn . $1} = $temp;
}
if ($1 + 1 >= $params{listitemnum} + $datavalues{maxlistitems}) { # make sure listed page has the moved item
$params{listitemnum} ||= 1;
$params{listitemnum} += $datavalues{maxlistitems};
}
}
$changed++;
}
# *** List a section of items
if ($p =~ /^listitem(\d+)/) {
$params{listitemnum} = $1;
}
# *** Continue from browse
if ($p =~ /^browsecontinue(\D+)(\d+)/) {
$params{itemmode} = $1;
if ($2 > 0) { # file selected
my $prefix = $1 eq "edit" ? "edit" : "new";
my @files = split(/\|/, $params{browsefilenames});
my ($name, $len) = split(/@/, @files[$2-1]);
$params{$prefix . "itemenclosureurl"} = "$datavalues{browseurlprefix}$name";
$params{$prefix . "itemenclosurelength"} = $len;
}
}
}
#
# *** Write out data file if changed
#
if ($changed && $params{feedname}) {
open (DATAFILEOUT, "> $config_values{datafile}.feed.$config_values{feedname}.txt");
foreach my $vn (sort keys %datavalues) {
# escape CR and LF
my $val = $datavalues{$vn};
$val =~ s/\\/\\\\/g;
$val =~ s/\n/\\n/g;
$val =~ s/\r/\\r/g;
print DATAFILEOUT "$vn=$val\n";
}
close DATAFILEOUT;
}
#
# ******
# *
# * Output appropriate material for the tab being displayed
# *
# ******
#
my %htmlvalue; # hash to hold values as they will be inserted into the HTML
#
# Feed
#
if ($currenttab eq "Feed") {
my $fnm = $config_values{feedname} || "*** None ***";
my $rsstitlesc = special_chars($datavalues{rsstitle});
$rsstitlesc = " [$rsstitlesc]" if $rsstitlesc;
$response .= <<"EOF";
SELECT FEED:
$fnm$rsstitlesc
EOF
# Go through file names and get list of feeds
my $feedlist; # list for selecting
my $feedlist2; # list for deleting
my $globstr = $config_values{datafile} . ".feed.*.txt";
$globstr =~ s/ /?/g; # escape spaces (bsd_glob not available)
# Note that "a c" and "abc" will both be found!!!
my $count;
foreach my $fname (glob ($globstr)) {
$fname =~ m/feed\.(.+?)\.txt$/;
my $sel;
$count++;
$sel = " selected" if $1 eq $config_values{feedname};
my $fnameclean = special_chars($1);
$feedlist .= <<"EOF";
EOF
if ($sel) {
$feedlist .= <<"EOF";
$fnameclean
|
|
|
EOF
}
else {
$feedlist .= <<"EOF";
$fnameclean
|
|
|
EOF
}
$feedlist .= <<"EOF";
EOF
html_escape(\%datavalues, \%htmlvalue, @feedtags);
if ($params{editfeedinfo} eq "Edit") {
$response .= <<"EOF";
EOF
}
elsif ($config_values{feedname}) {
my $descbr = $htmlvalue{rssdesc};
$descbr =~ s/\n/
/g; my $missingmsg1 = qq! The required value for!; my $missingmsg2 = qq!is missing. Use Edit to correct.!; my $rsstitlewarn = $datavalues{rsstitle} ? "" : "$missingmsg1 Title $missingmsg2"; my $rsslinkwarn = $datavalues{rsslink} ? "" : "$missingmsg1 Link $missingmsg2"; my $rssdescwarn = $datavalues{rssdesc} ? "" : "$missingmsg1 Description $missingmsg2"; my $nitemsstr = $datavalues{numitems} || "0"; $response .= <<"EOF"; EOF } else { $response .= <<"EOF"; Use "Create A New Feed" below to create a feed before proceeding
EOF
}
if (!$params{editfeedinfo}) {
$response .= <<"EOF";
EOF if (!$config_values{feedname}) { $response .= <<"EOF"; EOF } } if ($feedlist2 && !$params{editfeedinfo}) { $response .= <<"EOF"; EOF } } # # Items # if ($currenttab eq "Items") { my $rsstitlesc = special_chars($datavalues{rsstitle}); $response .= <<"EOF"; EOF } # # Publish # if ($currenttab eq "Publish") { my $rsstitlesc = special_chars($datavalues{rsstitle}); $response .= <<"EOF"; EOF } # # Options # if ($currenttab eq "Options") { my $rsstitlesc = special_chars($datavalues{rsstitle}); $response .= <<"EOF"; EOF } # # Show License # if ($currenttab eq "Show License") { use ListGardenLicense; $response .= <<"EOF";
$sgilicensetext
$gpllicensetext
EOF
}
# *** Output common stuff
$response .= <<"EOF";
|