view release on metacpan or  search on metacpan

socialcalc/simpleedit15.pl  view on Meta::CPAN

         }
      my $func = $argvals[1];
      if ($func eq "regexget") {
         my $ua = LWP::UserAgent->new; 
         $ua->agent("WKCcallableUtilities");
         $ua->timeout(5);
         my $req = HTTP::Request->new("GET", $argvals[2]);
         $req->header('Accept' => '*/*');
         my $res = $ua->request($req);
         if ($res->is_success) {
             my $returnedhtml = $res->content;
             if ($argvals[3] && $returnedhtml =~ m/$argvals[3]/s) {
                $returnstr = $1;
                }
             else {
                $returnstr = $returnedhtml;
                }
             $returnstr = ($argvals[4] || "t") . ":" . $returnstr;
             }
         else {
             $returnstr = "t:Unable to do regexget HTTP request: " . $res->status_line;
             }
         return $returnstr;
         }
      elsif ($func eq "wait") {
         my $waittime = $argvals[2] > 0 ? $argvals[2] : 1;
         sleep $waittime < 30 ? $waittime : 30;
         return "b:0";
         }
      else {
         for (my $i=1;$i<=$nargs;$i++) {
            $returnstr .= " $argvals[$i]($argtypes[$i])";
            }
         return "t:$returnstr";
         }
      }

   my $pagename = $q->param('pagename');

   if ($q->param('newpage')) {
      $pagename = $q->param('newpagename');
      }

   $pagename =~ s/[^a-zA-Z0-9_\-]*//g;
   if (!$pagename) {
      $pagename = "home";
      $statusmessage .= "No pagename given - using '$pagename'<br>";
      }

   if ($q->param('savepageedit')) {
      my $newstr;
      $newstr = $q->param('pagetext');
      if ($q->param('edittype') eq "clean") {
         my $page = {};
         load_page($q, $pagename, $page);
         $newstr =~ s/^\[(spreadsheet|datatable|drawing)\:(.+?)\]/"[$1:$2:\n" . $page->{items}{$2}{text} . "\n:$1]"/gme;
         }
      open (PAGEFILEOUT, ">$datadir$pagename.page.txt");
      print PAGEFILEOUT $newstr;
      close PAGEFILEOUT;
      $statusmessage .= "Saved updated page '$pagename'.<br>";
      }

   if ($q->param("editpage") || $q->param("editrawpage")) { # when one of the "editpage" buttons is pressed
      return do_editpage($q, $pagename, $statusmessage);
      }

   foreach my $p ($q->param) {  # go through all the parameters
      if ($p =~ /^edit(spreadsheet|datatable):(.*)/) { # "editspreadsheet:sheetname" pressed
         return start_editsheet($pagename, $2, $q, $statusmessage);
         }
      if ($p =~ /^editdrawing:(.*)/) { # "editdrawing:sheetname" pressed
         return start_editdrawing($pagename, $1, $q, $statusmessage);
         }
      }

   if ($q->param('savespreadsheet')) { # save the edited spreadsheet
      my $page = {};
      load_page($q, $pagename, $page);
      my $pagestr = $page->{raw};
      my $sheetname = $q->param('sheetname');
      my $sheettype = $page->{items}{$sheetname}{type};

      $pagestr =~ s/^\[$sheettype\:$sheetname:.*?\:$sheettype\]/"[$sheettype:$sheetname:\n" . $q->param('newstr') . "\n:$sheettype]"/sme;

      open (PAGEFILEOUT, ">$datadir$pagename.page.txt");
      print PAGEFILEOUT $pagestr;
      close PAGEFILEOUT;
      $statusmessage =
          "Saved updated $sheettype '$sheetname' on page '$pagename'.<br>";
      }

   $response = do_displaypage($q, $pagename, $statusmessage); # Otherwise, display page

   return $response;

   }

#
# load_page($q, $pagename, \%page)
#
# Loads the specified page and puts the parts into %page:
#
#    %page{raw} - raw page text
#    %page{clean} - page text with embedded items' bodies removed
#    %page{items}{name} - hash with embedded item "name"'s info
#    %page{items}{name}{text} - text of embedded item's body
#    %page{items}{name}{type} - type embedded item (e.g., "spreadsheet")
#

sub load_page {

   my ($q, $pagename, $page) = @_;

   $page->{bodies} = {};

   open (PAGEFILEIN, "$datadir$pagename.page.txt");
   my ($rawstr, $cleanstr);
   while (my $line = <PAGEFILEIN>) {
      $line =~ s/\r//g;
      $rawstr .= $line;
      if ($line =~ m/^\[(spreadsheet|datatable|drawing)\:(.*?)\:/) {
         my $type = $1;
         my $name = $2;
         $page->{items}{$name} = {type => $type, text => ""};
         my $itemstr;
         while (my $sline = <PAGEFILEIN>) {
            $sline =~ s/\r//g;
            $rawstr .= $sline;
            last if substr($sline, 0, length($type)+2) eq ":$type]";
            $itemstr .= $sline;
            }
         $page->{items}{$name}{text} = $itemstr;
         $cleanstr .= "[$type:$name]\n";
         }
      else {
         $cleanstr .= $line;
         }
      }
   close PAGEFILEIN;
   $page->{raw} = $rawstr;
   $page->{clean} = $cleanstr;

   return;
   }

#
# $response = do_displaypage($q, $pagename, $statusmessage) - Display page
#