/[webmail]/cgi-bin/autoconf.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /cgi-bin/autoconf.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Tue Feb 22 13:28:44 2000 UTC (24 years, 1 month ago) by dpavlin
Branch: MAIN, NikoSoft
CVS Tags: v0_5, changes, HEAD
Changes since 1.1: +0 -0 lines
File MIME type: text/plain
import verzije 0.5

1 #!/usr/local/bin/perl
2
3 use Cwd;
4 require "find.pl";
5
6 $fichier=($ARGV[0])||(".");
7
8 $dirbase= cwd;
9 $dirbase.="/";
10
11 print "NS Webmail Config File (c) 2000 NikoSoft\n\n";
12 print "Current dir: $dirbase\n";
13
14 &find($fichier);
15 foreach $fich (@fichiers) {
16 open(f,$fich);
17 print "Configured file: $fich \n";
18 @fichsortie=();
19 while(<f>) {
20 $ligne=$_;
21 $ligne=~ s/foo\/bar/$dirbase/;
22 push @fichsortie, $ligne;
23 }
24 close(f);
25 open (f,">$fich");
26 print f @fichsortie;
27 close(f);
28 }
29
30 print "\nAll files have been configured. You should now edit config.pl file and change\n";
31 print "the \$SMTPserver parameter to your SMTP server.\n";
32
33 exit;
34
35 # fonction utilisée par le module de recherche
36 sub wanted {
37 push @fichiers,$File::Find::name;
38 /^.*$/;
39 }

  ViewVC Help
Powered by ViewVC 1.1.26