ispman/ispman-web/cgi-bin css.cgi,1.1,1.2 whois.cgi,1.4,1.5
Joerg Delker <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30799/ispman-web/cgi-bin
Modified Files:
css.cgi whois.cgi
Log Message:
code reformatting by perltidy conforming perl style guide
Index: css.cgi
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/css.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- css.cgi 20 May 2001 18:10:34 -0000 1.1
+++ css.cgi 30 May 2004 23:35:34 -0000 1.2
@@ -1,24 +1,23 @@
#!/usr/bin/perl
use vars qw($VAR1 $r $MOD_PERL);
-if (exists $ENV{'GATEWAY_INTERFACE'}
- &&
- ($MOD_PERL = $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl\//))
+if ( exists $ENV{'GATEWAY_INTERFACE'}
+ && ( $MOD_PERL = $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl\// ) )
{
$| = 1;
require Apache;
- $r=Apache->request;
- $r->send_cgi_header("Content-type: text/css\n\n");
-} else {
- print "Content-type: text/css\n\n";
+ $r = Apache->request;
+ $r->send_cgi_header("Content-type: text/css\n\n");
+}
+else {
+ print "Content-type: text/css\n\n";
}
+do "tmpl/customerMan/css.hash";
-do "tmpl/customerMan/css.hash";
-
-for (keys %$VAR1) {
- print "$_ {\n";
- for $attr(keys %{$VAR1->{$_}}) {
- print "\t$attr: $VAR1->{$_}{$attr};\n";
- }
- print "}\n\n";
+for ( keys %$VAR1 ) {
+ print "$_ {\n";
+ for $attr ( keys %{ $VAR1->{$_} } ) {
+ print "\t$attr: $VAR1->{$_}{$attr};\n";
+ }
+ print "}\n\n";
}
Index: whois.cgi
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/whois.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- whois.cgi 30 Jul 2003 16:59:22 -0000 1.4
+++ whois.cgi 30 May 2004 23:35:34 -0000 1.5
@@ -1,14 +1,15 @@
#!/usr/bin/perl
-BEGIN{
- use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib");
+BEGIN {
+ use FindBin;
+ unshift @INC, ( $FindBin::Bin, "$FindBin::Bin/../lib" );
}
use Net::XWhois;
-my $domain=$ENV{'QUERY_STRING'}||shift;
+my $domain = $ENV{'QUERY_STRING'} || shift;
my $whois = new Net::XWhois Domain => $domain;
-if ($ENV{'QUERY_STRING'}) {
- print "Content-type: text/html\n\n";
- print qq|
+if ( $ENV{'QUERY_STRING'} ) {
+ print "Content-type: text/html\n\n";
+ print qq|
<head>
<title>Whois for domain: $domain</title>
<LINK HREF="/ispman.css" REL="stylesheet" TYPE="text/css">
-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g.
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click