Make your own free website on Tripod.com


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: