odd-wiki-hive - odd-wiki-list odd-wiki-Zentrum-de odd-wiki-center-en odd-wiki-centre-fr odd-wiki-centro-it talk odd-wiki, all wikis odd-wiki, all changes changes queries special

OddWikiAllChangesOnFullPages

front

odd-wiki, all changes on full pages

http://helios.wmid.amu.edu.pl/~sheep/mattis/image/Pic.497.png The changes on full pages to the odd-wiki-list and the changes on full pages to all wikis in the odd-wiki-hive
Read the page odd-wiki, all changes on full pages explained.

This page contains an inclusion of the soup group - odd-wiki, all changes on full pages. To update it force a refresh, please.


2012-02-08

  • 18:53 UTC (diff) (history) config . . . . CronJob

    # -*- mode:cperl -*-
    
    # Banning Replacement for .htaccess which somehow doesn't
    # work anymore.
    if (GetRemoteHost() =~ /(airtelbroadband\.in
    			|tataidc\.co\.in)$/x) {
      exit;
    }
    
    $BracketWiki = 1;
    $SiteName = 'Odd Wiki';
    $RcDefault = 7;
    $SisterSiteLogoUrl = "http://www.emacswiki.org/pics/%s.png";
    # make InterMap and friends editable
    $StrangeBannedContent = 'BannedRegexps';
    %LockOnCreation = ('BannedContent' => 1,
    		   'BannedHosts' => 1,
    		   'BannedRegexps' => 1, );
    # this line is parsed by the maintenance job!
    $AdminPass="*secret*";
    $MultiUrlLimit=10;
    
    # delete $Action{ln};
    $UploadAllowed=1;
    $CalendarOnEveryPage = 0;
    $InstanceThrottleLimit = 10;
    $StaticDir = '/var/www/alex/communitywiki.org/files';
    $StaticUrl = '/files/';
    $InvisibleCookieParameters{css} = 1;
    
    umask(002); # all users have read (4) and execute (1) permissions
    
    sub MyRules {
      if (m/\G<br>/gc) {
        return '<br />';
      } elsif (pos == 0 and m/\G\#/gc) { # for any sort of script
        my $pos = length($_); # fake matching entire file
        pos = $pos;
        return $q->pre($_);
      # } elsif (m/\G&lt;chat&gt;/gc) {
      #   return '<div id="peekko"></div>';
      }
      return undef;
    }
    
    push(@MyAdminCode, \&MyMaintenanceReports);
    
    sub MyMaintenanceReports {
      my ($id, $menuref, $restref) = @_;
      my $ns = $NamespaceCurrent||$NamespacesMain;
      push(@$menuref,
           $q->a({-href=>"/maintenance/$ns.html"},
    	     'Maintenance Report'),
           $q->a({-href=>"/maintenance/$ns-despam.html"},
    	     'Despamming Report'));
    }
    
    push(@MyAdminCode, \&MyCssInstall);
    
    sub MyCssInstall {
      my ($id, $menuref, $restref) = @_;
      push(@$menuref, ScriptLink('action=css', T('Install CSS')))
        if $NamespaceCurrent;
    }
    
    *GetCss=*MyGetCss;
    
    sub MyGetCss {
      my $css = GetParam('css', '');
      if ($css) {
        # cookie
        $css =~ s/".*//; # prevent javascript injection
        foreach my $sheet (split(/\s+/, $css)) {
          return qq(<link type="text/css" rel="stylesheet" href="$sheet" />);
        }
      } elsif ($IndexHash{$StyleSheetPage}
    	   and GetPageContent($StyleSheetPage) !~ /^\s*$/) {
        # css page exists and has content
        $css = "$ScriptName?action=browse;id=" . UrlEncode($StyleSheetPage);
        return qq(<link type="text/css" rel="stylesheet" href="$css;raw=1;mime-type=text/css" />);
      } else {
        # default
        return qq(<link type="text/css" rel="stylesheet" href="/blue.css" />);
      }
    }
    
    push @MyInitVariables, \&InitPageVariables;
    
    sub InitPageVariables {
      my $id = GetId();
      if ($IndexHash{CommentsPrefix}) {
        $CommentsPrefix = GetPageContent('CommentsPrefix');
        $CommentsPrefix =~ s/\n/ /;
        $CommentsPrefix = FreeToNormal($CommentsPrefix);
        $CommentsPrefix .= '_';
        $CommentsPrefix = undef if $CommentsPrefix =~ /^$DeletedPage/;
      }
    #   $HtmlHeaders = '<script src="http://peekko.com/chat/ajax/peekko.js"></script>';
    #   $HtmlHeaders .= '<link rel="alternate" type="application/rss+xml" title="'
    #     . QuoteHtml($SiteName) . '" href="' . $ScriptName . '?action=rss" />';
    #   $HtmlHeaders .= '<link rel="alternate" type="application/rss+xml" title="'
    #     . QuoteHtml("$SiteName: $id") . '" href="' . $ScriptName . '?action=rss;rcidonly=' . $id . '" />'
    #     if $id;
      if ($IndexHash{logo}) {
        my $logo = GetPageContent('logo');
        if (TextIsFile($logo)) {
          $LogoUrl = 'logo';
        } elsif ($logo =~ /^$FullUrlPattern$/) {
          $LogoUrl = $logo;
        }
      }
    }
    
    push @MyInitVariables, \&OldWikiWarning;
    
    sub OldWikiWarning {
      my ($status, $data) = ReadFile("/home/alex/oddwiki/page/S/Status.pg");
      if ($status) {
        my %data = ParseData($data);
        my $text = $data{text};
        if ($text =~ /\* $NamespaceCurrent:HomePage .* will be deleted/) {
          $Message .= $q->p("This wiki was last modified more than half a year ago and will be deleted eventually!");
        }
      }
      if ($NamespaceCurrent and not AllPagesList()) {
        $EditAllowed = 0;
      }
    }
    
    @Debugging = (sub {
    		print GetPageContent('SideBar');
    	      });
    
    @QuestionaskerQuestions =
      (["Please say hello." => sub { shift =~ /^\s*(hi|yo|hello|hallo|hoi)\s*$/i }],
      );
    
    push(@MyInitVariables, sub {
           # crypto banning usernames like tbattlet7
           if (GetParam('title') and GetParam('username') =~ /\d$/) {
             SetParam('action', 'browse');
             SetParam('id', GetParam('title'));
           }});
    
    push(@MyInitVariables, \&MyExtraHeaders);
    
    sub MyExtraHeaders {
      my $id = GetId();
      if ($q and $id) {
        my $text;
        if (GetParam('Preview', '')) {
          $text = GetParam('text', '');
        } elsif (GetParam('action', 'browse') eq 'browse') {
          OpenPage($id);
          $text = $Page{text};
        }
        my @fonts;
        while ($text =~ /\[font=([A-Z][^]]*)\]/g) {
          push(@fonts, $1);
        }
        foreach my $font (@fonts) {
          $font =~ s/ +/+/g;
          $HtmlHeaders .= qq{<link rel="stylesheet" type="text/css" href="http://fonts.googleapis.com/css?family=$font">};
        }
      }
    }

  • 18:53 UTC (diff) (history) Status . . . . CronJob

    Current Status:




This page includes the recent 15 changes to the wikis in the odd-wiki-hive in full page view. To see the complete history click the soup group - odd-wiki, all changes on full pages and scroll down to the end of the page.


Define external redirect: chat wiki-net wiki-net ting

EditNearLinks: force a refresh