Canadian Webweaving Page

Welcome to my Webweaving Page. There is only a few links here but I'm always searching for more. I'm also going to start working on my own contact page for Wiccans/Pagans in their area to contact each other. This is a greatly needed resource that I would like to work on.

First of all, I'll put my own contact information on me:

Alexandra:

E-mail-scow@lynx.bc.ca

Area - Vancouver, BC

Information about me - I'm sorda new to Wicca/Paganism, for the last year I've been studying and hoping to dedicate myself to the Goddess, the God and the All in the new year. I would like to meet others in my area and network. Thanks, BB & Hugs Alexandra

Lori:

E-mail: Samia @aol.com

Area - Oshawa, Ontario

Information about me - Want to meet fellow Wiccan's in my area, so I can start on the Wiccan path once again. Started learning about Wiccan in my early 20's but had to give it up for awhile, but want ot come home again. I am female in my late 30's

If you like to be part of my Webweaving page with your own ad. Please fill out the following form. (br)(br) #!/usr/local/bin/perl $mailprog = '/usr/lib/sendmail'; print "Content-type: text/html\n\n"; read (STDIN,$QUERY,$ENV{CONTENT_LENGTH}); do settags($QUERY); do settags($ENV{'PATH_INFO'}); do fixtags(); if ( $tags{'from'} =~ m/\@/ && $tags{body} ne "" ) { do mail(); } else { do form(); } do cgiFoot(); sub cgiFoot { print <

MailIt by Z. Turk.

EOM } sub mail { print "MailIt Response\n"; print "

MailIt Response

\n"; $Anon = 1 if $tags{'anon'}; # Now send mail to $tags{'to'} open (MAIL, "|$mailprog $tags{'to'}") || die "Can't open $mailprog!\n"; $mail = "scow@lynx.bc.ca"; $mail .= "From: $tags{'from'}\n"; $mail .= "Subject: $tags{'subject'}\n\n"; $mail .= "$tags{'body'}\n"; $mail .= "------------------------------------------------\n" . "Sent by http://www.fagg.uni-lj.si/cgi-bin/mailit\n" . "for $ENV{'REMOTE_HOST'} at $ENV{'REMOTE_ADDR'} \n" . "using $ENV{'HTTP_USER_AGENT'} \n" unless $Anon==1; print MAIL $mail; close (MAIL); print "This mail was sent:

\n";
        print "To: $tags{'to'}\n";
	print $mail;

        print "

\n"; } # ------------------------------------------------------------ sub form { $ENV{'PATH_INFO'} =~ s/ /\%20/g; $ENV{'PATH_INFO'} =~ s/\r/\%0D/g; $ENV{'PATH_INFO'} =~ s/\n/\%0A/g; $Anon = 1 if $tags{'anon'}; print < Mail form

Mail Form: $tags{'subject'}

EOM

        if ($tags{'from'} eq "") {
                print "   From:  - Imput name here";
        } else {
                print "   From: $tags{'from'}";
        }
        print "\n";

        if ($tags{'to'} eq "") {
                print "     To: ";
        } else {
                print "     To: $tags{'to'}";
        }
        print "\n";

        if ($tags{'subject'} eq "") {
                print "Subject: ";
        } else {
                print "Subject: $tags{'subject'}";
        }
        print "
\n";

        print "Message: ";
        if ($tags{'body'} eq "") {
                print "";
        } else {
                print "$tags{'body'}";
        }
        print "

\n"; print < Anonymously

EOM print "ANONYMOUS !!!\n" if $Anon == 1; } # ------------------------------------------------------------ sub settags { local($_) = @_; s|^/||; if (/=/) { @terms = split('&'); foreach $term (@terms) { ($tag,$val) = split('=',$term,2); # may override previous value $tags{$tag} = $val; # print "\$tag { $tag } = $val\n"; } } # No '=', so the whole string must be a query: else { $tags{'isindex'} = $_; } } sub fixtags { foreach $tag (keys(%tags)) { $tags{$tag} =~ s/\+/ /g; $tags{$tag} =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; } }

Canadian Webweaving Links

Pagan Webweaving Page: Canadian Webweaving contack page here, just click on View Postings
Weaving the Web: Go to bottom of Page for Canadian Link
Coven of the Rose Moon Networking: Look for Canada, Other Worldwide & Canadian contacts

Go Back to

Canadian Wiccan/Pagan Sites: