diff options
Diffstat (limited to 'www/smb2www/files/patch-Install.pl')
| -rw-r--r-- | www/smb2www/files/patch-Install.pl | 133 |
1 files changed, 91 insertions, 42 deletions
diff --git a/www/smb2www/files/patch-Install.pl b/www/smb2www/files/patch-Install.pl index 4b8c5f13d317..56c7a05d7028 100644 --- a/www/smb2www/files/patch-Install.pl +++ b/www/smb2www/files/patch-Install.pl @@ -1,61 +1,110 @@ ---- Install.pl.orig Sun Aug 2 21:31:40 1998 -+++ Install.pl Sun Mar 25 17:53:37 2001 -@@ -19,24 +19,24 @@ - if ($is_root == 1) { - while (! getpwnam($uname)) { - print "$uname is not a valid username.\n" if (! $uname eq ""); +--- ./Install.pl.orig 2009-05-11 05:39:12.000000000 +0000 ++++ ./Install.pl 2009-05-11 05:46:51.000000000 +0000 +@@ -7,38 +7,11 @@ + chop $version; + close VERSION; + +-print <<"EOF"; +- +-Welcome to the installation of SMB2WWW, release $version. +-Press <Return> to continue, or press <Ctrl-C> to stop. +-EOF + +-$foo=<STDIN>; +- +- +-if ($is_root == 1) { +- while (! getpwnam($uname)) { +- print "$uname is not a valid username.\n" if (! $uname eq ""); - print "What username shall I use to install smb2www [www-data] ? "; -+ print "What username shall I use to install smb2www [nobody] ? "; - $uname=<STDIN>; - chop $uname; +- $uname=<STDIN>; +- chop $uname; - $uname = "www-data" if ($uname eq ""); -+ $uname = "nobody" if ($uname eq ""); - } - - while (! getgrnam($gname)) { - print "$gname is not a valid groupname.\n" if (! $gname eq ""); +- } +- +- while (! getgrnam($gname)) { +- print "$gname is not a valid groupname.\n" if (! $gname eq ""); - print "What groupname shall I use to install smb2www [www-data] ? "; -+ print "What groupname shall I use to install smb2www [nobody] ? "; - $gname= <STDIN>; - chop $gname; +- $gname= <STDIN>; +- chop $gname; - $gname = "www-data" if ($gname eq ""); -+ $gname = "nobody" if ($gname eq ""); - } - } +- } +-} ++$uname = 'nobody'; ++$gname = 'nobody'; -print "Where shall I put smb2www [/usr/local/smb2www] ? "; -+print "Where shall I put smb2www [/usr/local/www/smb2www] ? "; - $dir=<STDIN>; chop $dir; +-$dir=<STDIN>; chop $dir; -if ( $dir eq "") { $dir = "/usr/local/smb2www" }; -+if ( $dir eq "") { $dir = "/usr/local/www/smb2www" }; - print "\n"; - die "Directory already exists ! Move first before continuing !" if ( -d $dir); +-print "\n"; +-die "Directory already exists ! Move first before continuing !" if ( -d $dir); ++$dir = '/usr/local/www/smb2www'; mkdir "$dir",0755 or die "Unable to create directory ! Check your permissions."; -@@ -59,9 +59,9 @@ - $smbc = ""; - while (not -x "$smbc/smbclient" ) { + print "\nDirectory $dir created successfully.\nNow creating subdirectories.\n"; +@@ -57,54 +30,24 @@ + print "done.\n\n"; + } + +-$smbc = ""; +-while (not -x "$smbc/smbclient" ) { - print "In which directory is smbclient located [/usr/local/samba/bin] ? "; -+ print "In which directory is smbclient located [/usr/local/bin] ? "; - $smbc=<STDIN>; chop $smbc; +- $smbc=<STDIN>; chop $smbc; - if ( $smbc eq "") { $smbc = "/usr/local/samba/bin" }; -+ if ( $smbc eq "") { $smbc = "/usr/local/bin" }; - print "\n"; +- print "\n"; +-} ++$smbc = "/usr/local/bin"; + + symlink "$smbc/smbclient","$dir/bin/smbclient" or die "unable to symlink smbclient to $dir/bin !\n"; + +-$perl = ""; +-while (not -x "$perl" ){ +- print "What is your perl 5 binary [/usr/bin/perl] ? "; +- $perl=<STDIN>; chop $perl; +- if ( $perl eq "") { $perl = "/usr/bin/perl" }; +- print "\n"; +-} ++$perl = "/usr/bin/perl"; + +-print "Which server shall I use as master browser ? "; +-$mbrowse=<STDIN>; chop $mbrowse; +-print "\n"; ++$mbrowse='localhost'; + + srand ( time ^ ($$ + ($$ << 15)) ); + while (length $key < 25) { + $key = $key.chr(rand(64)+64); } +-print "Which language would you like to use with SMB2WWW ?\n (english dutch finnish) [english] "; +-$language = <STDIN>; chop $language; +-if ( $language eq "" ) { $language = "english" }; +-print "\n"; +- +- +- +-print "Which path shall I use for SMB2WWW pictures on your webserver\n[/smbimg] ? "; +-$imgpath=<STDIN>; chop $imgpath; +-if ( $imgpath eq "" ) { $imgpath = "/smbimg" }; +-print "\n"; ++$language = 'english'; -@@ -100,9 +100,9 @@ - if ( $cgiroot eq "" ) { $cgiroot = "/samba" }; - print "\n"; +-print "Which path shall I use as SMB2WWW root on your webserver [/samba] ? "; +-$cgiroot=<STDIN>; chop $cgiroot; +-if ( $cgiroot eq "" ) { $cgiroot = "/samba" }; +-print "\n"; ++$imgpath='/sbming'; ++$cgiroot='/samba'; -print "Where is your mime.types file [/etc] ? "; -+print "Where is your mime.types file [/usr/local/etc/apache] ? "; - $mime=<STDIN>; chop $mime; +-$mime=<STDIN>; chop $mime; -if ( $mime eq "" ) { $mime = "/etc" }; -+if ( $mime eq "" ) { $mime = "/usr/local/etc/apache" }; - $mime= $mime."/mime.types"; - print "\n"; +-$mime= $mime."/mime.types"; +-print "\n"; ++$mime='/usr/local/etc/apache'; + + print "Now modifying scripts and configuration files...\n\n"; -@@ -124,7 +124,7 @@ +@@ -124,7 +67,7 @@ cfgdir = $dir/etc imgroot = $imgpath cgiroot = $cgiroot @@ -64,7 +113,7 @@ background = cloud.gif icon_other = world.gif icon_all = network.gif -@@ -209,6 +209,6 @@ +@@ -209,6 +152,6 @@ print "\nAdd this to your apache config:\n"; print "-------------------------------\n\n"; print "Alias $imgpath $dir/images\n"; |